IT4X เทคนิคคอมพิวเตอร์ โน๊ตบุค ข่าว IT
ข่าวสาร / ความรู้ => คนเขียนโปรแกรม => ข้อความที่เริ่มโดย: nunthai ที่ ตุลาคม 10, 2011, 07:51:51
-
คือตอนนี้ผมเรียน ปวช.3 ภาควันอาทิตย์
อาจารย์ให้แก้โปรแกรมตัวนึงครับ เค้าบอกว่ามีที่ผิดอยู่ 2 จุด แต่ผมลองแก้หลายๆอย่างแล้วก็ยังไม่ได้
จึงใคร่ขอรบกวน ผู้รู้ช่วยแก้ให้หน่อยครับ จะสอบอาทิตย์หน้านี้แล้วครับ
โค๊ตที่เค้าให้มาครับ
PROGARM Case_Sample1;
USES CRT;
VAR
Salary,bonus : Real;
BEGIN
CLRSCR;Write('Enter Your Salary =');ReadLn(salary);
If Salary >0 Then
Case BONUS Of
2000 : Bonus := 2.5*Salary;
1000 : Bonus := 2*Salary;
5000 : Bonus := 1.5*Salary;
3000 : Bonus := 1*Salary;
Else
Bonus := Salary;
End
Else
Write('Your have not Salary'); clrscr;
gotoxy(35,10);write('Your Bonus=' ,Bonus:10:2,' Bath ');
writeln('PRESS ENTER TO CONTINUE0....');READLN
END.
และเค้าบอกว่ามีผิดอยู่ 2 ที่คือ
1.Salary,bonus : Real;
2.Case BONUS Of
ผมลองใส่โค๊ตหลายๆตัวแล้วยังไงก็ยังไม่ได้
ผมขอรบกวนหน่อยครับ ขอบคุณครับ
-
program dekpascal;
uses crt;
var salary : integer;
A,B,C,D,bonus : real;
BEGIN
clrscr;
write('Enter Your Salary = ');
readln(salary);
A := 2.5 * salary;
B := 2 * salary;
C := 1.5 * salary;
D := 1 * salary;
If salary > 0 Then
begin
Case salary of
2000 : bonus := A;
1000 : bonus := B;
5000 : bonus := C;
3000 : bonus := D;
else
bonus := salary;
end;end;
clrscr;
writeln('Your Bonus =',Bonus:8:2,' Bath');
writeln('Press Enter To Continue....');
readln;
end.