
6538130065b80f291de0e53adc6658fe.ppt
- Количество слайдов: 13
บทท 9 การรบและแสดงผลขอมล • OUTLINE • คำสงรบขอม ล – read, readln – อานโดยฟ งกช น readkey • คำสงแสดงผลข อมล – write, writeln – การพมพแบบก ำหนดรปแบบ writeln(n: m) – คำสงพมพอ อกทางเครอ ง – คำส งจดหน 1
คำสงแสดงผลขอมล • คำสงแสดงผลขอมล writeln write, – เปนคำสงทใชพมพขอคว าม หรอ ตวแปร หรอ นพจน รปแบบ writeln (‘ขอความ ’) writln (ตวแปร 1, ตวแปร 2…. ) 2
คำสงแสดงผลขอมล • คำสง write เมอเขยนแลวเคอรเซอรอยบ รรทดเดม • คำสง writeln เมอเขยนแลวเคอรเซอร รรทดใหม ขน บ 3
การพมพแบบกำหนดรปแบบ • การพมพแบบกำหนดรปแบบ ใชคำสง รปแบบ writeln(ขอมล : จำนวนคอลมน ) • กรณ กำหนดคอลมนกวาง การพมพจะ เตมทละคอลมนจากขวาไปซาย 4
การพมพแบบกำหนดรปแบบ • หากตวแปรเปนแบบ Real และไมกำหนดรปแบบการพมพ จะแสดงในรปของทศนยมยกกำลง เชน 6. 89000000 E+01 รปแบบ writeln(real : a: b) • a จำนวนคอลมนทใชทงหมด b จำนวนเลขหลงจดทศนยม 5
คำสงพมพออกทางเครอ ง • รปแบบ writeln(lst, ขอความ ) • เนองจาก lst เปนตวแปรอยในยนต printer จงตองประการ USES printer ทสวนหวของโปรแกรม • หากมการใชหลายย นต ใหใช , คน 6
คำส งจดหนาจอ • คำส ง clrscr เปนคำสงลบหนาจอ พรอมเลอน เคอรเซอร ไปอยม มซายของหนาจอ • คำสง gotoxy (col, row) ทำหนาท เคอรเซอร ไปยงตำแ หนงทระบบนหนาจอ เชน goto (20, 4) คอไปทคอลมน 20 7
โปรแกรมคำส PROGRAM write 1; USES Wincrt; VAR a : integer; b : real; temp : string; begin a : = 20; b : = 12. 5; temp =: //////////' งจดหนาจอ gotoxy (10, 10); writeln(temp); write(a: 3); writeln('**', b: 15: 2); writeln('a: ', a*b: 5: 1); gotoxy (10, 15); writeln(temp); readln; end. 8
คำสงรบขอมล • คำสง read และ readln เปนการใหคาตวแปรโดยการป อนขอมลทางแปนพมพ หรอ อานจากหนวยความจำสำรอง • ประเภทขอมลทอานเปนไดท กประเภท ยกเวน บลน • คำสงจะรอใหผใชปอนขอม 9
คำสงรบขอมล รปแบบ readln( ตวแปร 1, ตวแปร 2…) หรอ readln; • คำสง read เคอรเซอรจะอย ทเดม • คำสง readln เคอรเซอรจะขนบรรทดใหม 10
ตวอยางโปรแกรม writeln และ readln PROGRAM writeread; USES Wincrt; VAR age : integer; name : string[30]; begin write('Enter your name: '); readln(name); write('Enter your age: '); readln(age); writeln(name, ' is ', age, ' year old. '); 11
ฟงกชน Readkey • Readkey เปนฟงกชนอยในยนต crt เมอจะใชตองม USES • ใชรบขอมลแบบ Char เทานน • เครองจะรอรบขอมล เมอไดแลวไมตองกด Enter รปแบบ 12 ตวแปร : = readkey
โปรแกรม readkey Program readkey 1; uses wincrt; var ch: char; begin write('Press any key on keyboard: '); ch : = readkey; writeln('You press character==> ', ch); 13
6538130065b80f291de0e53adc6658fe.ppt