[r]
(1)Đề kiểm tra 45 làm máy tính Câu 1: Cho chơng trình sau:
Program CT
Uses crt;
Begin
Clrsrc;
Writeln (Chao cac ban); Writeln (da den voi); Writeln (Turbo Pascal); Readln;
End
Hãy chỉnh sửa chơng trình để kết in dong chữ: Chao cac ban da den voi Turbo Pascal Lưu tờn tợ̀p: Cau1_ten_lop.pas (tờn và lớp của em) vào thư mục du_lieu ụ̉ đĩa D D:\du_lieu\cau1_ten_lop.pas
Ví dụ : D:\du_lieu\cau1_Quynh_8D.pas
Câu 2: Tìm lỗi viết lại chơng trình sau cho đúng:
Var cv, dt, r: real Const pi := 3,14; Begin;
r = 2,5 cv = 2*pi*r; dt = pi*r*r;
Writeln(‘Chu vi la := cv’); Writeln(‘Dien tich la := dt’);
(2)Lưu tên tệp: Cau2_ten_lop.pas (tên và lớp của em) vào thư mục du_lieu ổ đĩa D D:\du_lieu\cau2_ten_lop.pas
Ví dụ : D:\du_lieu\cau2_Quynh_8D.pas
C©u 3 :
Với chương trình được viết sau ( Nội dung là nhập 02 số nguyên từ bàn phím in màn hình trước và sau hoán đổi hai số)
Program hoan_doi; Var x, y, z: integer; Begin
Read(x,y);
Writeln(x, ‘ ‘,y); z:=x;
x:=y; y:=z;
Writeln(x, ‘ ‘,y); Readln
End.
Em viết lại chương trình và thêm vào chương trình những lệnh nào? để nhập và in màn hình người sử dụng thấy rõ ràng, minh bạch
Lưu tên tệp: Cau3_ten_lop.pas (tên và lớp của em) vào thư mục du_lieu ổ đĩa D D:\du_lieu\cau3_ten_lop.pas