ĐỀ KT 1T THỰC HÀNH TIN HỌC 8 (CÓ ĐÁP ÁN)

ĐỀ KIỂM TRA 1 TIẾT THỰC HÀNH
MÔN TIN HỌC 7
Thời gian làm bài: 45 phút
ĐỀ 1:
Bài 1: Tìm giá trị lớn nhất trong 4 số a,b,c,d (a,b,c,d được nhập từ bàn phím)
Bài 2: Tính chu vi và diện tích của hình tròn

Đáp án:
Câu 1:
Program Somax;
var a, b, c, d, max : integer;
begin
Write(`Nhap 4 so nguyen:`);
readln (a,b,c,d); max := a;
if max < b then max := b;
if max < c then max := c;
if max < d then max := d;
Writeln(`So lon nhat la:`,max);
Readln;
end.

Câu 2:
program hinhtron;
var r,cv,dt:real ;
begin
write(`Ban kinh r = `); readln(r);
cv:= 2*r*pi ; dt:= sqr(r)*pi;
writeln (`Chu vi = `,cv:5:2);
writeln (`Dien tich = `,dt:5:2);
Readln;
end.