รบกวนท่านที่เขียน tubo pascal ทีครับ

[kasimoto]

อ.ให้โจทย์มา
ให้เขียน ทำไห้หน้าจอบน dos แสดงแบบนี้
Welcome Program ชื่อเรา+เพื่อน

My name is ชื่อเรา+เพื่อน

score คะแนนที่เราได้

Ans เกรดอ่ะไร

Thank You
คือ 80ขึ้นไปได้ A 70ขึ้น ได้B 60ขึ้นได้ C 50ขึ้นได้D ต่ำกว่า 50 F

เค้าบอกให้ใช้ case ตัวแปร of ไรก็ไม่รู้
ปล.เค้าให้เขียนภาษา ปาสคาล ไห้คำนวน คะแนน เกรด อ่ะครับ
ช่วยทีครบ เขาจาสอบเก็บคะแนน รบกวนทีน่ะครับ

[A__Z]

เคยเรียนอยู่ครับดูแล้วน่าจะไม่ยาก จำได้แค่ เริ่มต้นด้วย begin จบด้วย end !!

[comer]

เรียนที่ไหนครับเนี่ย เหมือนการบ้านสมัยปี 1 ของผมเลย อิอิ

อยากช่วยนะ แต่ขอใช้เวลาทบทวนหน่อย ตอนนี้เขียนแต่จาว่า

[vinai55]

ใช้ if then else สิครับ
------------------------------------------
program gred;
uses wincrt;
var score : integer;
begin
clrscr;
writeln (' ******โปรแกรมคิดเกรด******');
writeln;
write (' กรอกคะแนน = ');
read (score);
if score >= 80 then
writeln('คุณได้เกรด 4')
else if
score >= 70 then
writeln('คุณได้เกรด 3')
else if
score >= 60 then
writeln('คุณได้เกรด 2')
else if
score >= 50 then
writeln('คุณได้เกรด 1')
else ('คุณได้เกรด 0')
writeln(' *******************จบโปรแกรม*******************');
readln
end.
---------------------------------------------------------
โดยประมาณครับ

[kasimoto]

Thank You มากครับท่าน

[cmo]

เค้าสั่ง case ........ of ไม่ใช่เหรอครับ