Kiem tra 1 tiet_lan 1_De bai lam tren may tinh

[r]

Đề kiểm tra 45 ‘ làm trên máy tính Câu 1: Cho chơng trình sau:

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 trên để kết quả in ra 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 và 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’);

Readln;

End

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 như sau ( Nội dung là nhập 02 số nguyên từ bàn phím in ra màn hình trước và sau khi 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 trên những lệnh nào? để khi nhập và in ra màn hình người sử dụng thấy rõ ràng, minh bạch hơn

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

Ví dụ : D:\du_lieu\cau3_Quynh_8D.pas