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

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.
คือต้องการออกบิลสิ่งที่เราสั่งไปพร้อมกับแสดงผลทางเครื่องพิมพ์อ่ะครับ
แล้วผมก็ไม่แน่ใจว่าโปรแกรมนี้ถูกหรือยัง ต้องเพิ่มเติมอะไรบ้าง
ช่วยต่อโปรแกรมให้ด้วยครับ  ต้องทำส่ง อาจาย์ก็เรียกเก็บแล้ว ต้องส่งถึงเรียนจบเทอมนี้ครับ

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

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

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

ต้องใช้ 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

ต้องใช้ 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

ขอบคุณมากครับผม
ผมจะลองดูครับ