PASCAL問題,Pascal問題

時間 2022-06-26 17:40:02

1樓:我的偶像是周瑜

歷年noip。。。找源程式太容易了吧

pascal問題

2樓:韓永芬台煙

第五題:

program

lsh5;

vara,b,n,x,p:integer;

t:array[1..100]

ofinteger;

begin

readln(n);

fora:=1ton

div2+1

dobegin

x:=0;

p:=a;

forb:=a+1ton

div2+1

dobegin

p:=p+b;

x:=x+1;

t[1]:=a;

t[1+x]:=b;

ifp=n

then

begin

forp:=1

tox+1

dowrite(t[p]:2);

writeln

endend

end;

readln

end.

這個是我自己寫的,在試驗1到100中有20,21,24,39,58,63,95,99這幾個數有點問題,望高手修改一下。

3樓:匿名使用者

program randomnumber;

var i,j,t:integer;

var a :array [1..100] of integer;

begin

randomize;

for i:=1 to 100 do a[i]:=200+i;

for i:=1 to 100 do

begin

j:=1+random(100);

t:=a[i];

a[i]:=a[j];

a[j]:=t;

end;

for i:=1 to 100 do

begin

write(a[i],' ');

if i mod 10 = 0 then writeln;

end;

end.

第二個問題是廢話

100個200..300之間的互不相同的整數那麼就只有從201-300 100個數

從大到小不就是 從300到201打一遍麼

4樓:蔚永愚秀雋

介於時間關係下面我只給出演算法分析

先求出每個數的標準分解式(比它小的所有質數的n相乘n可以為零);

再取每個質數的最大次數相乘

所得的數就是最小公倍數

(這是數學中的乙個標準方法);

5樓:匿名使用者

110.120.130.140.150.160.170.180.190.201

pascal問題 10

6樓:寧寧

var n,i,j,l:integer;

a,b:array[1..100]of char;c:char;

begin

readln(n,l);

repeat

i:=1;j:=1;

begin

read(c);

if (c<>'a')and(c<>'e')and(c<>'i')and(c<>'o')and(c<>'u')then

begin a[i]:=c; inc(i); end else begin b[i]:=c; inc(j); end;

end;

until (c=chr(10)); //換行跳出for a:=1 to l-1 do

for b:=1 to l-1 do

for i:=a+1 to l do

for j:=b+1 to l do

writeln(a[a],a[i],b[b],b[j]);

end.望採納

pascal問題(急!!!)

pascal問題:)

7樓:匿名使用者

以下是偽**,不符合語法,不完整,僅供示意不能直接編譯執行陣列 tem[1..3]

i:=1

doread tem[i]

if tem[i]=0 break;

if tem[i]>35

if i=3 then 答案增加1並且tem[1]:=tem[3]並且i:=2

else i:=i+1;

else i:=1;

until 1=3

8樓:匿名使用者

vari,max,n:longint;

a:array[-2..1000]of integer;

x:boolean;

procedure panduan;

begin

if (a[i]>=35)and(a[i-1]>=35)and(a[i-2]>=35) then

if x=false then beginx:=true; inc(max);

end;

if (a[i]<35)or(a[i-1]<35)or(a[i-2]<35) then

if x=true then x:=false;

end;

begin

readln(n);

fillchar(a,sizeof(a),0);

x:=false;

for i:=1 to n do beginread(a[i]);

panduan; end;

writeln(max);

end.

其實 那個0 可以不用管的

pascal問題

9樓:火舞旋風

一題才2分,太值了!!!!!!!

關於pascal問題

10樓:

堆是一種資料結構,支援在o(logn)的時間內插入刪除乙個元素,在o(1)的時間內找到其中的最大(或者小)值,大根堆就是在o(1)找最大值的,小根堆就是找最小值的。凡是涉及在一堆資料中頻繁插入刪除和找最值的問題都可以用

11樓:

ls寫的什麼?

大根堆表示父親比兩個兒子要大;

小根堆表示父親小於兩個兒子;

堆可以排序,維護最大值,最小值等等功能

pascal問題: 50

pascal問題,pascal問題

這是第一題 var i,j,a,n,s,t longint begin readln a,n for i 1 to n do begin s 0 for j 0 to i 1 do begin inc s,a round exp j ln 10 end inc t,s end writeln t r...

關於Pascal的問題

語法錯誤是 program esatj 後面有 程式錯誤x 90 0.7 x 改為x 90 0.7 x 100 附加題var a,b,c real procedure max var a,b real vart real begin if aend begin read a,b,c max a,b ...

pascal選數,pascal程式 選數

var n,s,i,p,x,ans longint k qword a array 1.5000000 of longint procedure init var i longint begin read n,k for i 1 to n do read a i ans 0 end function...