IT4X เทคนิคคอมพิวเตอร์ โน๊ตบุค ข่าว IT
ข่าวสาร / ความรู้ => คนเขียนโปรแกรม => ข้อความที่เริ่มโดย: dekwit016 ที่ สิงหาคม 09, 2011, 10:22:22
-
คือโจทย์ให้รับค่าเริ่มต้นและค่าสุดท้ายอะคับ แล้วให้โปรแกรมบวกเฉพาะเลขคู่ แล้วแสดง และ หาค่าเฉลี่ยของผลบวกเลขคู่
ผมทำแล้ว หาผลบวกเลขคู่ได้ แต่ Average มันได้ไม่ตรงอะคับ อย่าง a เป็น 1 b เปง 10 เลขคู่ก้อจะเปง 2 4 6 8 10 บวกกันได้ 30 แต่พอหารมันกลับไม่ได้ 6 งับ ได้แค่ 1 หรือ 2
ช่วยทีนะคับ Admid
Help me pls!!!!!!
Program Oat;
Uses Crt;
Var i,sum,a,b:integer;
Begin
clrscr;
write('Input Number : ');readln(a);
write('Input Number : ');readln(b);
sum:=0;
i:=2;
repeat
sum:=sum+i;
i:=i+2
until i>b;
writeln('Summary of even number from ',a,'..',b,' =',sum:3);
writeln('Average of ',a,'..',b,' = ',sum/i:1:2);
readln;
end.
-
ค่าเฉลี่ย ดูจากโค๊ดหารผิดนะครับ หุหุ
อาจจะเพิ่มตัวแปร x มาเพื่อหารก็ได้ครับเช่น
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.
ลองดูครับ ยังไม่ได้ลองรัน ไม่ได้ลง Pascal ไว้
-
ขอบคุณงับ
เมื่อคืนผมลองตั้ง x มาแต่ดั้นเอา x+2 เลยไม่ออก T-T
ขอบคุงมากๆคับ :-*
คราวหน้าหวังว่าผมจะมาขอรบกวนอีกได้นะค๊าบ ^^"
ใจดีแบบนี้เอา like ไปเรย 555+
-
555 ไม่ได้เขียนนานแล้วเหมือนกัน Pascal ลืมเลือนไปแล้ว