Đề thi tin học lớp 11 (có bài giải)

Câu 1 Viết chương trình nhập vào diện tích hình tròn S (S>0), tính và đưa ra
chu vi hình tròn.
Câu 2 Dùng câu lệnh rẽ nhánh dạng đủ viết chương trình nhập điểm các môn toán
lý hóa tin. Hãy thực hiện xếp loại học sinh theo yêu cầu sau:
Nếu điểm tb các môn trên 5.0 đậu
Nếu điểm tb các môn nhỏ hơn 3,5 và môn toán cao hơn 5.0 thì thi lại
Nếu điểm tb các môn nhỏ hơn 3,5 và môn toán nhỏ hơn 5.0 thì ở lại
Câu 3 Áp dụng cấu trúc lặp mà biết trước số lần lặp dạng lùi viết chương trình
nhập vào 3 số nguyên dương m,n, và q. Trong đó M<=n và mN*). Tính và đưa ra màn hình tb tổng các số nằm trong khoảng từ m đến n mà chia
hết cho q.
Bài giải:
Câu 1:
var S,r:real;
begin
writeln('nhap dien tich hinh tron');readln(S);
r:=sqrt(S/3.14);
writeln('chu vi la: ',2*r*3.14:5:1);
readln;
end.
Bài 2:
var toan,ly,hoa,tin,tb:real;
begin
writeln('nhap diem: ');
write('toan: ');readln(toan);
write('ly: ');readln(ly);
write('thoa: ');readln(hoa);
write('tin: ');readln(tin);
writeln;
{Ở đây mình dùng hệ số 1 cho mỗi môn học(vì đề chưa nói rõ là mỗi môn hệ số
mấy}

tb:=(toan+ly+hoa+tin)/4;
If tb>5.0 then writeln('dau')
else If (tb<3.5) and (toan>5.0) then writeln('thi lai')
else If (tb<3.5) and (toan<5.0) then writeln('o lai ^^');
readln;
end.
Bài 3: điều kiện này là m<=n và mVar m,n,q:word;
i,s,dem:integer;


Begin
While not ((m<=n) and (mBegin
Write('Nhap m,n,q=');
Readln(m,n,q);
End;
dem:=0;
s:=0;
For i:=m to n do
If i mod q =0 then
Begin
s:=s+i;
dem:=dem+1;
end;
Write('Xuat s=',s/dem);
readln;
end.