IT4X เทคนิคคอมพิวเตอร์ โน๊ตบุค ข่าว IT
ข่าวสาร / ความรู้ => คนเขียนโปรแกรม => ข้อความที่เริ่มโดย: MonalizaVr ที่ กันยายน 05, 2012, 17:21:10
-
พี่ 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.
-
ขอบคุณมากครับผม :)