翻譯成pascal語言 任意輸入3個數,讓它們從小到大排列

2025-03-26 12:00:03 字數 2363 閱讀 6017

翻譯成pascal語言:隨意輸入5個數求他們的總數。急急急!!!!!!!!

1樓:

我採用邊讀邊輸的方法,也可採用wby仁兄的存陣列的方法,但比較麻煩。

注:『//』後面不是程式,是註釋。

var i,x,tot:lonignt; //longint為長整型,也可用短整型integer

begintot:=0; //tot為總數,必須先初始化為0;

for i:=1 to 5 do //乙個1至5的迴圈,即處理5次,也可用while語句。

beginread(x); //每次讀入1個數,輸入的數需用空格隔開或者輸乙個換一行。

inc(tot,x); //把讀入的數累加起來,inc(tot,x)相當於 tot:=tot+x

end;write(tot); //輸出。

end.

2樓:網友

program a1;

vara:array[1..100]of integer;

i:longint;

beginfor i:=1 to 5 do read(a[i]);

begini:=i+a[i];

end;write(i);

end.我除錯了,對的,lz別急了。

我還可以告訴您,上面三位都錯了,陣列輸入必須for i:=1 to 5 do read(a[i]);

才行,他們的不對。

pascal語言:任意輸入2個3位數,按由小到大順序排列

3樓:pascal真人

同志們有病! print是qb語言!要隔開輸出!

一號方案:vara1,a2,a3:longint;

beginreadln(a1,a2);

if a1>a2 then begin a3:=a1; a1:=a2; a2:=a3; end;

write(a1,' ',a2);

end.二號方案:

var a,b:longint;

beginreadln(a,b);

if a>b then write(b,' ',a) else write(a,' ',b);

end.同志們記住:現代計算機是32位的,用32位的longint比16位的integer快吖!

pascal語言:輸入10個數,要求對這批數從大到小排序並輸出

4樓:網友

你可能還沒學過procedure過程吧?

它其實就相當於乙個小程式,在下面的程式中,當執行到sort這個過程時,會自動跳入第四行的。

procedure sort;」

然後進行排序,此時的i,j,t被重新定義,且只在這個過程中有用,同時也新定義了乙個布林型的變數flag,用來指示。

這一次是否有交換。

氣泡排序:var a:array[1..100000]of longint;

i,n:longint;

procedure sort;

var i,j,t:longint;

flag:boolean;

begini:=1;

repeat

flag:=false;

for j:=1 to n-i do

if a[j]e do dec(d);

if c<=d

thenbegin

f:=a[c]; a[c]:=a[d]; a[d]:=f;

inc(c);

dec(d);

end;until c>d;

祝學習愉快!

5樓:巧菡

var a:array[1..1000]of longint;

tmp,i,j:integer;

beginfor i:=1 to 10 do

read(a[i]);

for i:=1 to 9 do

for j:=i+1 to 10 do

if a[i]a[i]:=a[j];

a[j]:=tmp;

end;for i:=1 to 10 do

write(a[i],' ');

end.希望能幫助你哦!

不懂可以繼續問我哦!

用pascal語言:輸入乙個三位數的整數,將數字位置重新排列,組成乙個儘可大的三位數。例如:輸入213,重

6樓:網友

if(b>=c)and(c>=a)then writeln(b,c,a>; 應該是『)』最後一行 writeln(a,b,a); 應該是(c,b,a);

倒數第二行 的readln 可以刪去。求採納。

翻譯成拼音,拼音翻譯成漢字

1 ji o xi 2 b ng s ng 3 l ng j 4 s s 5 di n zh 6 f xi n 7 tu t ng 純手工翻譯,望採納 西安微營銷培訓翻譯成拼音 拼音翻譯成漢字 是ch u寫出漢子嗎?漢語裡ch u有很多個,下面這些填上都可以。仇籌愁綢稠酬惆 要翻譯的是chou嗎?有...

拼音翻譯成漢字,漢字翻譯成拼音?

第9個音應該是拼錯了,拼音裡沒有xa這樣的拼法,是xia。正確的句子是 n k b k y b y o di xi w y g r n?你可不可以不要丟下我一個人?拼音翻譯成漢字 ji r w sh y zh baini o,假 如我是du 一隻 鳥 k y f id oy w ngw j zhid...

翻譯成漢字,數字翻譯成漢字

0 代表 你抄 1 代表 要 2 代表 愛 bai 3 代表 想 4 代表 是 世 5 代表 du我zhi 6 代表 又dao 7 代表 親 起 去 8 代表 扒 爸 發 9 代表 久 就 酒 舅 救 諧音就好了要我你愛去我愛你你你世 數字翻譯成漢字 翻譯成漢字 translate 英 tr ns ...