ข่าว IT ล่าสุด
ถูกใจอย่าลืม Like Fanpage
Admin ค๊าบ ผมขออีกที มีข้อผิดพลาด
แสดงแล้ว 5353 ครั้ง /
สิงหาคม 09, 2011, 12:32:52
สมาชิกไม่มีภาพ

dekwit016

ออฟไลน์
กระทู้ : 12
คะแนนขอบคุณ : 0
Program Oat;
Uses Crt;
Var i,sum,a,b,x:integer;
Begin
  clrscr;
  write('Input Number : ');readln(a);
  write('Input Number : ');readln(b);
  sum:=0;
  i:=2;
  repeat
  sum:=sum+i;
  i:=i+2;
  x:=x+1;
  until i>b;
  writeln('Summary of even number from ',a,'..',b,' =',sum:3);
  writeln('Average of ',a,'..',b,' = ',sum/x:1:2);
  readln;
end.

พอรันนะคับ ถ้าใส่ 1,10 หรือ 2,8 ก้อได้อยู่ แต่ถ้าไปเริ่มที่ 8,12 หรือตัวอื่น ที่ไม่ได้เริ่มจาก 1หรือ 2 โปรแกรมจะมั่วเรยจ้า

อย่างใส่ a=8 b= 12 คำตอบได้ 42 ซะงั้นผลหารก้อไปไกลเรย

ผมลองแก้เปง

Program Oat;
Uses Crt;
Var i,sum,a,b,x:integer;
Begin
  clrscr;
  write('Input Number : ');readln(a);
  write('Input Number : ');readln(b);
  i:=a;
  repeat
  sum:=sum+i;
  i:=i+2;
  x:=x+1;
  until i>b;
  writeln('Summary of even number from ',a,'..',b,' =',sum:3);
  writeln('Average of ',a,'..',b,' = ',sum/x:1:2);
  readln;
end.

ดันหาเลขคู่ได้ไม่ว่าจะเริ่มตรงไหน แต่ถ้าใส่เลขคี่ จบข่าวคับ มันอาจเลขคี่ไปเรย T-T ช่วยผมด้วยนะค๊าบ


สมาชิกไม่มีภาพ

dekwit016

ออฟไลน์
กระทู้ : 12
คะแนนขอบคุณ : 0
สิงหาคม 09, 2011, 12:38:32
หรือว่าผมต้องใช้ if หรืออะไรอีกป่าวคับ เพื่อรับค่าช่วงไหนก้อได้ ที่จะคำนวนแต่เลขคู่ ไม่ว่าจะใส่ 13-25 หรือ 14-26 ก้อจะคำนวณแต่เลขคู่ T-T ปวดหัวมากมาย
« แก้ไขครั้งสุดท้าย: สิงหาคม 09, 2011, 13:16:41 โดย dekwit016 »

สมาชิกไม่มีภาพ

dekwit016

ออฟไลน์
กระทู้ : 12
คะแนนขอบคุณ : 0
สิงหาคม 09, 2011, 14:36:42
พี่ Moshi ไม่อยู่ซะแล้วหรอ T-T

Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
สิงหาคม 09, 2011, 20:02:26
ก็ ใช้ If ครับ

เช็คอีกทีว่า ค่าแรกมากกว่าคา่สองไหม ถ้าค่าแรกมากกว่าก็ให้ error หรือกลับไปวนลูปเรื่อยๆครับ

สมาชิกไม่มีภาพ

dekwit016

ออฟไลน์
กระทู้ : 12
คะแนนขอบคุณ : 0
สิงหาคม 09, 2011, 23:56:44
ไม่ได้เรยค๊าบ 4 ชั่วโมงแย้ว

โปรแกรมอ.บอกต้องแบบว่าถึงจะใส่ 15 26 ก้อต้องคำนสณแค่ตัว 16 18 20 22 24 26

หรือ 15 27 ก้อต้องคำนวณ 16 18 20 22 24 26

14 25 ก้อต้อง 14 16 18 20 22 24 T-T ไม่ออกเยยอะ ช่วยทีนะค๊าบ

สมาชิกไม่มีภาพ

dekwit016

ออฟไลน์
กระทู้ : 12
คะแนนขอบคุณ : 0
สิงหาคม 10, 2011, 12:18:45
ทำไม่ได้เรยงับ พี่ Mosh ช่วยผ๊มด้วย

สมาชิกไม่มีภาพ

dekwit016

ออฟไลน์
กระทู้ : 12
คะแนนขอบคุณ : 0
สิงหาคม 10, 2011, 13:22:52
๊Update ตอนนี้ก้อยังไม่ได้เลยงับ T-T

Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
สิงหาคม 11, 2011, 21:57:55
Program Oat;
Uses Crt;
Var i,sum,a,b,x:integer;
Begin
  clrscr;
  write('Input Number : ');readln(a);
  write('Input Number : ');readln(b);
  i:=a;
  if a<=b then
  begin
  repeat
  sum:=sum+i;
  i:=i+2;
  x:=x+1;
  until i>b;
  writeln('Summary of even number from ',a,'..',b,' =',sum:3);
  writeln('Average of ',a,'..',b,' = ',sum/x:1:2);
  readln;
  end
  else
  writeln('Error ตัวแปรแรกมีค่ามากกว่าตัวแปรที่ 2');
  readln;
end.

ลองดูครับเขียนมั่วๆ ไม่ได้ลอง test

 

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

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

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