คนเขียนโปรแกรม

ช่วย ออกบิล พร้อมกับแสดงผลทางเครื่องพิมพ์ โปรแกรมนี้ให้หน่อยครับ PASCAL

kosaka999
👁 33,833 ครั้ง · 💬 4 ตอบ
program Restaurant;
uses WinCrt;
var Food : string[30];
var Amount : integer;
var Price, Total : real;
begin
  Write('Input Food: ');      Readln(Food);
  Write('Input Price: ');      Readln(Price); 
Write('Input Amount: ');  Readln(Amount);
  Total := Price * Amount;
  Writeln('Food:', Food);
  Writeln('Price: ', Price:1:2);
  Writeln('Amount: ', Amount);
  Writeln('Total: ', Total:1:2);
end.
คือต้องการออกบิลสิ่งที่เราสั่งไปพร้อมกับแสดงผลทางเครื่องพิมพ์อ่ะครับ
แล้วผมก็ไม่แน่ใจว่าโปรแกรมนี้ถูกหรือยัง ต้องเพิ่มเติมอะไรบ้าง
ช่วยต่อโปรแกรมให้ด้วยครับ  ต้องทำส่ง อาจาย์ก็เรียกเก็บแล้ว ต้องส่งถึงเรียนจบเทอมนี้ครับ
🏷️ หัวข้อที่เกี่ยวข้อง
amount price food total writeln var write input readln อมก บแสดงผลทางเคร องพ มพ บแล วย

💬 การตอบกลับ 4

#1
Moshi
Moshi
16,996 โพสต์
ถ้าผมจำไม่ผิด Pascal จะพิมพ์ได้ผ่าน port LPT1 เท่านั้นนะครับ สมัยนี้ก็หาใช้ยากครับ
#2
kosaka999
kosaka999
5 โพสต์
— Moshi link=topic=18889.msg34696#msg34696 date=1378256673

ถ้าผมจำไม่ผิด Pascal จะพิมพ์ได้ผ่าน port LPT1 เท่านั้นนะครับ สมัยนี้ก็หาใช้ยากครับ

ขอแค่ตัวโค้ดที่รันได้ก็พอครับ ไม่ได้ใช้พิมพ์ออกทางเครื่องพิมพ์จริง แค่แสดงผลเฉยๆครับ
ผมต้องทำเป็นรายงานส่งอาจารย์
(นอกเรื่องนิดหน่อยตอนบ่ายเข้าหาเย็นผมเข้าเว็ปไม่ได้ ปรับปรุงเว็บหรอครับ)
(ผมตกใจมาก เพราะผมหวังพึ่งพี่คนเดียว ช่วยหน่อยนะครับ)
#3
Moshi
Moshi
16,996 โพสต์
ต้องใช้ freepascal นะครับ อ่านมาจากนี้

> http://community.freepascal.org/bboards/message?message_id=704903&forum_id=24082

ยังไม่ได้ทดสอบเพราะตอนนี้ผมใช้ osx แล้วไม่ได้ลง Pascal ไว้ลองครับ

PROGRAM sample;
Uses Printer;

VAR
  lst: text;
BEGIN {main program}
  assign (lst, 'lpt1');
  rewrite (lst);
  writeln (lst, 'Test print to printer');
  close (lst)
END. {main program}





ลองหาอ่านข้อมูลเพิ่มเติมดูอีกทีนะครับ

> http://www.freepascal.org/docs-html/rtl/printer/index.html
#4
kosaka999
kosaka999
5 โพสต์
— Moshi link=topic=18889.msg34706#msg34706 date=1378307982

ต้องใช้ freepascal นะครับ อ่านมาจากนี้

> http://community.freepascal.org/bboards/message?message_id=704903&forum_id=24082

ยังไม่ได้ทดสอบเพราะตอนนี้ผมใช้ osx แล้วไม่ได้ลง Pascal ไว้ลองครับ

[quote]PROGRAM sample;
Uses Printer;

VAR
  lst: text;
BEGIN {main program}
  assign (lst, 'lpt1');
  rewrite (lst);
  writeln (lst, 'Test print to printer');
  close (lst)
END. {main program}





ลองหาอ่านข้อมูลเพิ่มเติมดูอีกทีนะครับ

> http://www.freepascal.org/docs-html/rtl/printer/index.html
[/quote]
ขอบคุณมากครับผม
ผมจะลองดูครับ