เขียนโปรแกรม เรียง ค่า

พี่ admin ครับ ผมงงเรื่อง for มากเลย อาจารย์ให้ ทำโจทย์คือ รับค่า มา 10 ค่า แล้วนำมาเรียงจากมากไปหาน้อยอ่ะครับ

พี่ admin ช่วยผมด้วยนะครับ คิดไม่ออกจริง ๆๆ ลองเองแล้ว ให้อาจารย์ดูแล้ว เค้าบอกว่าผมเขียนเยอะเิกินไป ช่วยด้วยนะครับ

ขอบคุณล่วงหน้านะครับ พี่ admin 

ถ้าพี่ admin ว่าง ก็ ช่วยด้วยนะครับ

ขอบคุณล่วงหน้าครับ
 

ไม่ได้เขีนโค๊ดเองนะครับ พอดีช่วงนี้ติดงานแล้วครับ

หามาอัพเดทให้ครับ

ที่มา >> http://www.vcharkarn.com/vcafe/82739

1.จงเขียนโปรแกรมรับเลขมา 3 จำนวน แล้วเรียงจากมากไปน้อย

----------------------------------------------------------------------------

Program p1;

Uses crt;

Const MyNum = 3;

Var Num : array[1..MyNum] of Integer;

Temp : Integer;

i,j : byte;

Begin

clrscr;

for i:= 1 to MyNum do

begin

Write(i,'.Enter Number : ');

Readln(Num);

end;



for j:=1 to MyNum do

for i:=1 to MyNum do

begin

if Num[i+1] > Num then

begin

Temp := Num;

Num := Num[i+1];

Num[i+1] := Temp;

end;

end;





for i:=1 to MyNum do

Write(' ',Num);

Readln;

End.



2.จงเขียนโปรแกรมรับเลขมา 3 จำนวน แล้วเรียงจากน้อยไปมาก

----------------------------------------------------------------------------

Program p2;

Uses crt;

Const MyNum = 3;

Var Num : array[1..MyNum] of Integer;

Temp : Integer;

i,j : byte;

Begin

clrscr;

for i:= 1 to MyNum do

begin

Write(i,'.Enter Number : ');

Readln(Num);

end;



for j:=1 to MyNum do

for i:=1 to MyNum do

begin

if Num[i+1] < Num then

begin

Temp := Num;

Num := Num[i+1];

Num[i+1] := Temp;

end;

end;





for i:=1 to MyNum do

Write(' ',Num);

Readln;

End.

3.จงเขียนโปรแกรมรับเลขมาไม่จำกัดจำนวน แต่ให้หยุดเมื่อผู้ใช้ป้อน -999

- เลขน้อยที่สุดคือเลขใด ?

- เลขมากที่สุดคือเลขใด ?

----------------------------------------------------------------------------

Program p3;

Uses Crt;

Var Num,Min,Max,Temp : integer;



Begin

Temp := 0;

clrscr;

Repeat

if Num
if Num>Max then Max := Num;



Write('Enter Number : ');

Readln(Num);



if Temp = 0 then begin

Temp := 1;

Min := Num;

Max := Num;

end;



Until Num = -999;



Writeln('Min = ',Min,'Max = ',Max);

Readln;

End.

4.จงเขียนโปรแกรมให้แสดงผลดังนี้ (เรียงเป็นรูป 3 เหลี่ยม)

1

1 2

1 2 3

...

1 2 3 4 5 6 7 8 9

...

1 2 3

1 2

1

----------------------------------------------------------------------------

Program p4;

Uses Crt;

Var Row,i,j : Byte;

Begin

Row := 9;

Clrscr;

for i := 1 to Row do begin

for j:=1 to i do

Write(' ',j);

Writeln;

end;

for i:=Row-1 downto 1 do begin

for j:=1 to i do

Write(' ',j);

Writeln;

end;

Readln;

End.



5.จงเขียนโปรแกรมให้แสดงผลดังนี้

1

1 2

1 2 3

1 2 3 4

1 2 3 4 5

1 2 3 4 5 6

1 2 3 4 5 6 7

1 2 3 4 5 6 7 8

1 2 3 4 5 6 7 8 9

----------------------------------------------------------------------------

Program p5;

Uses Crt;

Var Row,i,j : Byte;

Begin

Row := 9;

Clrscr;

for i := 1 to Row do begin

for j:=1 to i do

Write(' ',j);

Writeln;

end;

Readln;

End.

ขอบคุณมากครับผม