Bài giảng Ngôn ngữ lập trình Pascal: Chương 4 - Thủ tục vào ra dữ liệu

Bài giảng Ngôn ngữ lập trình Pascal: Chương 4 - Thủ tục vào ra dữ liệu nêu lên khái niệm về thủ tục và hàm; các thủ tục viết dữ liệu ra màn hình Write và Writeln; thủ tục vào dữ liệu Read và Readln. Mời các bạn tham khảo bài giảng để bổ sung thêm kiến thức về lĩnh vực này.

Chương Thủ tục vào - liệu I Các thủ tục viết liệu hình: Write Writeln; II Thủ tục vào liệu: Read Readln; 4.1 Khái niệm thủ tục (procedure) hàm (function)  Thủ tục chương trình con, gọi dùng câu lệnh độc lập  Hàm chương trình con, gọi cho ta giá trị vô hướng thông qua tên hàm Hàm xuất biểu thức hàm gọi dùng độc lập câu lệnh 4.2 I Các thủ tục viết liệu hình: Write Writeln; Có mẫu viết  WRITE(Item1, Item2, , ItemN);  WRITELN(Item1, Item2, , ItemN); (đọc WRITE LINE)  WRITELN; + Các Item biến, hàm, biểu thức, hằng, giá trị vô hướng, xâu kí tự  Sự khác câu lệnh ? 4.3 Màn hình  80 cột kí tự 80 Màn hình: văn đồ hoạ  Màn hình văn bản: thường chia thành 80 cột x 25 hàng kí tự Đơn vị tính kí tự (Con trỏ hình, cursor)  Mỗi kí tự cấu tạo ma trận điểm: thí dụ 8x14, nên số điểm chiều ngang 8x80=640 điểm, số điểm chiều dọc 14x25=350 điểm 25  Màn hình đồ hoạ: đơn vị tính điểm 4.4  Thủ tục WRITE(Item1, Item2, ,ItemN); tương đương Begin WRITE(Item1); WRITE(Item2); WRITE(ItemN); End; 4.5  WRITELN(Item1, Item2, , ItemN); tương đương Begin WRITE(Item1, Item2, ,ItemN); WRITELN; End;  WRITELN; 4.6 Viết kiểu số nguyên Cách viết không qui cách Var I:integer; Begin I:=123; Writeln(I); Writeln(-30567); Readln; End Màn hình kết 123 -30567 4.7 Cách viết có qui cách Var I: integer; Begin Writeln('12345678'); I:=123; Writeln(I:8); Writeln(-30567:8); Readln; End 12345678 123 -30567 4.8 Var I: integer; Begin Writeln('1234567812345678'); I:=123; Write(I:8); Writeln(-30567:8); Readln; 1234567812345678 End 123 -30567 4.9 Viết kiểu số thực Cách viết không qui cách Var 1.2345600000E+02 R: Real; 3.1400000000E+00 Begin R:=123.456; Writeln(R); Write(3.14); End Hai dấu cách đầu 4.10 Cách viết có qui cách số thực R:  Mẫu 1: R: :  Mẫu 2: R:  xin xem thí dụ dễ hiểu 4.11 Cách viết có qui cách: mẫu Writeln(73.123456789:12:6); Writeln(R:12:6) ; Writeln(3.14:12:6); 123456789012 73.123457 123.456000 3.140000 4.12 Cách viết có qui cách: mẫu Write(73.123456789:12); cho kết (lưu ý có làm trịn): 7.312346E+01 4.13 Viết kiểu kí tự ABC Const Bell=#7; Var Y Ch:Char; Y Begin ABC Writeln('ABC'); I’m Paul Ch:='Y'; Writeln(ch); Writeln(ch:4); Writeln('ABC':5); Write('I''m Paul',#7, chr(7), Bell); 4.14 End 4 Viết kiểu Boolean Var OK: Boolean; Begin OK := < 5; TRUE Writeln(OK); TRUE Writeln(OK:7); FALSE Writeln(3 > 5); End 4.15 In máy in USES PRINTER; Var Begin Writeln(Lst, I:5, J:8, R:12:5, OK); End Lst phần phải thêm vào để in sang máy in 4.16 Các thủ tục trình bầy hình  GotoXY(X, Y); biến WhereX, WhereY  ClsScr;  ClrEol;  TextColor(Color: Byte);  TextBackGround(Color: byte);  Bảng mầu: 16 mầu, có tên định nghĩa sẵn gọi theo số 4.17 USES CRT; Var PASCAL X, Y: byte; Begin PASCAL TextBackGround(Black); PASCAL ClrScr; X :=10; Y:=2; GotoXY(X, Y); PASCAL TextColor(Red); Write('PASCAL'); GotoXY(X-4,Y+1); TextColor(Green); Write('PASCAL'); GotoXY(X+2,Y+2); TextColor(LightBlue + Blink); Write('PASCAL'); GotoXY(X, Y+3); TextColor(14); Writeln('PASCAL'); 4.18 End II Thủ tục vào liệu: Read Readln; Có mẫu viết  Read(Biến1, Biến2, , BiếnN);  ReadLn(Biến1, Biến2, , BiếnN);  ReadLn;  Chỉ có Biến tham số  Sự khác câu lệnh ? 4.19 Var I, J: integer; XX, ZZZ: Real; Begin Readln(I, XX, ZZZ, J); End 1.25 85.2 33 4.20 Begin Readln(I); Readln(XX); Readln(ZZZ); Readln(J); End; 5 1.25  85.2  33  4.21 Kết hợp Write Readln để đối thoại Write(' I = '); Write(' XX = '); Readln(I); Readln(XX); I =  XX = 1.25  Một số hàm nhập kí tự Hàm ReadKey Ch:=ReadKey; Hàm KeyPressed phát ấn phím  xin xem kĩ ví dụ chương sau 4.22 Câu hỏi ôn tập lớp Có thể dùng Readln để đọc khơng ? Readln có qui cách khơng ? Ví dụ : Readln(I: 4); Trong thực tế, viết writeln(' Hai nghiệm thực : '); ? Hãy viết hình kí tự, sau mã số ASCII theo dạng sau: '0': 48 4.23 ...Khái niệm thủ tục (procedure) hàm (function)  Thủ tục chương trình con, gọi dùng câu lệnh độc lập  Hàm chương trình con, gọi cho ta giá trị vô hướng thông... Writeln('12 345 67812 345 678'); I:=123; Write(I:8); Writeln (-3 0567:8); Readln; 12 345 67812 345 678 End 123 -3 0567 4. 9 Viết kiểu số thực Cách viết không qui cách Var 1.2 345 600000E+02 R: Real; 3. 140 0000000E+00... hiểu 4. 11 Cách viết có qui cách: mẫu Writeln(73.12 345 6789:12:6); Writeln(R:12:6) ; Writeln(3. 14: 12:6); 12 345 6789012 73.12 345 7 123 .45 6000 3. 140 000 4. 12 Cách viết có qui cách: mẫu Write(73.12 345 6789:12);