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...