ข่าว IT ล่าสุด
ถูกใจอย่าลืม Like Fanpage
เขียนโปรแกรม เรียง ค่า
แสดงแล้ว 7194 ครั้ง /
กันยายน 05, 2012, 17:21:10

MonalizaVr

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

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

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


MonalizaVr

ออฟไลน์
กระทู้ : 6
คะแนนขอบคุณ : 0
กันยายน 06, 2012, 21:35:06
ถ้าพี่ admin ว่าง ก็ ช่วยด้วยนะครับ

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

Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
กันยายน 08, 2012, 17:36:09
ไม่ได้เขีนโค๊ดเองนะครับ พอดีช่วงนี้ติดงานแล้วครับ

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

ที่มา >> 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.

MonalizaVr

ออฟไลน์
กระทู้ : 6
คะแนนขอบคุณ : 0
กันยายน 12, 2012, 23:50:41
ขอบคุณมากครับผม  :)

 

ด้วยฟังค์ชั่น ตอบด่วน คุณสามารถใช้โค๊ดและ เครื่องหมายแสดงอารมณ์ได้ เหมือนการตั้งกระทู้ธรรมดา แต่สามารถทำได้สะดวกกว่า

ระวัง: หัวข้อนี้ไม่มีการอัพเดทมานานถึง 120 วัน

แจ้งเตือน: โพสของคุณจะไม่แสดงจนกว่าผู้ดูแลจะอนุมัติ.
ชื่อ: อีเมล์: