IT4X เทคนิคคอมพิวเตอร์ โน๊ตบุค ข่าว IT
ข่าวสาร / ความรู้ => คนเขียนโปรแกรม => ข้อความที่เริ่มโดย: kosaka999 ที่ กันยายน 03, 2013, 21:22:30
-
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
ขอบคุณมากครับผม
ผมจะลองดูครับ