Đề và đáp án thi môn tin học 11 (2010-2011)

Đề 1:

Viết CT pascal dạng chương trình Menu thực hiện giải các bài toán sau"
'1': Giải hệ phương trình bặc I: ax+by=m and cx+dy=n
'2': Tìm số có 3 chữ số thoả (abc = a^3+b^3+c^3)
'3': Thoát chương trình

Đáp án:

Code:: program baithi;
var ch:char;
procedure hept;
var a,b,c,d,m,n,P,dx,dy:integer; x,y:real;
begin
write('nhap a,b,c,d,m,n:');readln(a,b,c,d,m,n);
P:=a*d-c*b; dx:=m*d-n*b; dy:=a*n-c*m;
if p<>0 then
begin
x:=dx/p; y:=dy/p;
writeln('nghiem la x=',x:9:2,'y=',y:9:2);
end
else
begin
if (dx=0) and (dy=0) then writeln('he vo so nghiem')
else writeln('he vo nghiem');
end;
end;
procedure timso;
var a,b,c:byte;
begin
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if (a*100+b*10+c)=(a*a*a+b*b*b+c*c*c) then writeln(a,b,c);
end;
begin
repeat
writeln('1: giai he pt');
writeln('2: tim so co 3 chu so');
writeln('3: thoat chuong trinh');
writeln('nhap lua chon:');readln(ch);
case ch of
'1':hept;
'2':timso;
'3': exit;
end;
until ch='3';
readln
end.

Đề 2:

Viết CT pascal dạng chương trình Menu thực hiện giải các bài toán sau"
'1': Xác định vị trí tương đối của đường tròn tâm I(a,b), BK R, và điềm A(x,y)
'2': Kiểm tra và in ra màn hình những số nguyên tố nhỏ hơn N
'3': Thoát chương trình

Đáp án:

Code:: program baithi;
var ch:char;
procedure vitri;
var a,b,x,y:integer; IA,r:real;
begin
write('nhap tam I:');readln(a,b);
write('nhap A:');readln(x,y);
write('nhap BK:');readln(r);
IA:=sqrt(sqr(x-a)+sqr(y-b));
if IA>r then writeln('A nam ngoai duong tron')
else
begin
if IA=r then writeln('A nam tren duong tron')
else writeln('A nam trong duong tron');
end;
end;
procedure songuyento;
var n,i,t:integer;
begin
write('nhap gia tri N:');readln(N);
if n<2 then write('khong co so nguyen to nao')
else
begin
write('so nguyen to <=n la:');
for i:=2 to n do
begin
t:=1;
repeat
t:=t+1;
until ((i mod t)=0) or (sqr(t)>i);
if (sqr(t)>i) then write(i:9);
end;
end;
writeln;
end;
begin
repeat
writeln('1: tim vi tri tuong doi');
writeln('2: tim so nguyen to <=N');
writeln('3: thoat chuong trinh');
writeln('nhap lua chon:');readln(ch);
case ch of
'1':vitri;
'2':songuyento;
'3': exit;
end;
until ch='3';
readln
end.