IT4X เทคนิคคอมพิวเตอร์ โน๊ตบุค ข่าว IT
ข่าวสาร / ความรู้ => คนเขียนโปรแกรม => ข้อความที่เริ่มโดย: kosaka999 ที่ กันยายน 05, 2013, 22:04:55
-
ผมลองหลายทีแล้วครับรันไม่ได้สักที
.........................................
เป็นการคำนวณค่าเช่าโรงแรม
ห้องประเภทที่ 1 ค่าห้อง 500
ห้องประเภทที่ 2 ค่าห้อง 800
ห้องประเภทที่ 3 ค่าห้อง 1000
ห้องประเภทที่ 4 ค่าห้อง 1500
กำหนดส่วนลด ดังนี้
ประเภทที่ 1 และ 2 ลด 10%
ประเภทที่ 3 และ 4 ลด 20%
ตัวแปร
1.ค่าเช่า : RENT 2.ส่วนลด : DISCOUNT
3.ค่าเช่าสุทธิ : NET 4.จำนวนวัน : DAY
5.ประเภทห้อง : ROOM
CLS
RENT = 0
DISCOUNT = 0
NET = 0
INPUT “ENTER DAY”; DAY
INPUT “ENTER ROOM”; ROOM
IF ROOM = 1 THEN
RENT = DAY * 500
DISCOUNT = RENT * .1
ELSEIF ROOM = 2 THEN
RENT = DAY * 800
DISCOUNT = RENT * .1
ELSEIF ROOM = 3 THEN
RENT = DAY * 1000
DISCOUNT = RENT * .2
ELSE
RENT = DAY * 1500
DISCOUNT = RENT * .2
END IF
NET = RENT – DISCOUNT
PRINT
PRINT”=========================”
PRINT” RENT = ”; RENT
PRINT” DISCOUNT = ”; DISCOUNT
PRINT” NET = ”; NET
PRINT “=========================”
END
รันไม่ได้เลยครับ ทั้งจอ ทั้งเครื่องพิมพ์
ช่วยทีครับผม
-
program it4x;
uses crt;
var room,day:integer;
rent,discount,net:real;
begin
clrscr;
write('ENTER DAY = ');
readln(day);
write('ENTER ROOM = ');
readln(room);
case room of
1:begin
rent:=day*500
discount:=rent*(10/100)
end;
2:begin
rent:=day*800
discount:=rent*(10/100)
end;
3:begin
rent:=day*1000
discount:=rent*(20/100)
end;
4:begin
rent:=day*1500
discount:=rent*(20/100)
end;
else
writeln('ROOM ERROR');
end;
net:=rent-discount
writeln('NET = ',net:1:2);
readln;
end.
ลองไปรันเทสทดสอบเองอีกทีนะครับ ยังไม่ได้ลองรันครับ ต้องแกโค๊ดเพิ่มเองด้วยครับ
-
program it4x;
uses crt;
var room,day:integer;
rent,discount,net:real;
begin
clrscr;
write('ENTER DAY = ');
readln(day);
write('ENTER ROOM = ');
readln(room);
case room of
1:begin
rent:=day*500
discount:=rent*(10/100)
end;
2:begin
rent:=day*800
discount:=rent*(10/100)
end;
3:begin
rent:=day*1000
discount:=rent*(20/100)
end;
4:begin
rent:=day*1500
discount:=rent*(20/100)
end;
else
writeln('ROOM ERROR');
end;
net:=rent-discount
writeln('NET = ',net:1:2);
readln;
end.
ลองไปรันเทสทดสอบเองอีกทีนะครับ ยังไม่ได้ลองรันครับ ต้องแกโค๊ดเพิ่มเองด้วยครับ
ต้องขอขอบคุณอีกครั้งครับ ผมลองเอาแก้แล้วรันได้แล้ว :-*
แล้วผมก็คิดพิลึกใส่โค้ด printer เข้าไป รันไม่ได้เลยแฮะ :D
อาจารย์บอกว่าถ้าใครแสดงผลทางเครื่องพิมพ์ได้เอาคะแนนไปเพิ่มอีก
ไอ้เราก็อยากได้ ยิ่งไม่มีคะแนนกับเพื่อน อันนี้ก็งานสุดท้ายที่เหลือแล้ว :P
ทำไงดีเนี่ย :P
ขอบคุณพี่ Moshi มากนะครับที่ช่วยมาตั้งเยอะ :)