ข่าว IT ล่าสุด
ถูกใจอย่าลืม Like Fanpage
ช่วยแปลงให้เป็น PASCAL ทีครับ
แสดงแล้ว 16254 ครั้ง /
กันยายน 05, 2013, 22:04:55
สมาชิกไม่มีภาพ

kosaka999

ออฟไลน์ ( it4x.com )
กระทู้ : 5
คะแนนขอบคุณ : 0
ผมลองหลายทีแล้วครับรันไม่ได้สักที
.........................................
เป็นการคำนวณค่าเช่าโรงแรม
ห้องประเภทที่ 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
รันไม่ได้เลยครับ ทั้งจอ ทั้งเครื่องพิมพ์
ช่วยทีครับผม


Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
กันยายน 07, 2013, 23:49:50
อ้างถึง
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.

ลองไปรันเทสทดสอบเองอีกทีนะครับ ยังไม่ได้ลองรันครับ ต้องแกโค๊ดเพิ่มเองด้วยครับ

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

kosaka999

ออฟไลน์ ( it4x.com )
กระทู้ : 5
คะแนนขอบคุณ : 0
กันยายน 08, 2013, 16:56:15
อ้างถึง
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 มากนะครับที่ช่วยมาตั้งเยอะ :)

 

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

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

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