§Ò kiÓm tra 10 phót khèi 11 ®¹i trµ

§Ò kiÓm tra 10 phót khèi 11 ®¹i trµ §Ò kiÓm tra 10 phót khèi 11 ®¹i trµ Hä tªn Líp M ®Ò 301 C©u 1 T×m lçi cña ®o¹n ch¬ng tr×nh sau ®Ó gi¶i bµi to¸n NhËp vµo ba c¹nh cña tam gi¸c , sau ®ã tÝnh diÖn tÝc[.]

Đề kiểm tra 10 phút khối 11 đại trà

Họ tên:………Lớp:………

Mã đề 301

Câu 1: Tìm lỗi của đoạn chơng trình sau để giải bài toán:

Nhập vào ba cạnh của tam giác , sau đó tính diện tích và bán kính đờng tròn ngoại tiếp tam giác

Program VD2 ;

Var a, b, c ,p, S, R : real;

Begin

Write(‘Nhap vao ba canh cua tam giac :’); Readln(a, b , c);

p := (a + b + c) /2;

S := sqrt(p*(p-a)*(p-b)*(p-c)) ;

R:= a*b*c/(4*S);

Writeln(‘ Dien tich tam giac la S = ‘ , S : 8: 1);

Writeln(‘ Ban kinh duong tron ngoai tiep tam giac R = ‘ , R:8:2 );

Readln

End

Câu 2: Hãy cho biết sau đoạn chơng trình sau trên màn hình hiện gì ?

…

x := 3; y:= 5;

writeln(‘x = ‘, x , ‘ y = ‘, y); -> x = 3 y = 5

tg:=x ; x :=y; y:= tg;

writeln(‘x =’, x , ‘ y = ’, y); - > x = 5 y = 3

…

Đề kiểm tra 10 phút khối 11 đại trà

Họ tên:………Lớp:………

Mã đề 302

Câu 1: Tìm lỗi của đoạn chơng trình sau để giải bài toán:

Nhập vào ba cạnh của tam giác , sau đó tính diện tích và bán kính đờng tròn nội tiếp tam giác

Program VD3 ;

Var a, b, c , S, r : real;

Begin

Write(‘Nhap vao ba canh cua tam giac :’); Readln(a, b , c);

p := (a + b + c) /2;

S := sqrt(p*(p-a)*(p-b)*(p-c)) ;

R:= S/p;

Writeln(‘ Dien tich tam giac la S = ‘ , S : 8:3);

Writeln(‘ Ban kinh duong tron noi tiep tam giac r = ‘ , R:8:2 );

Readln

End

Câu 2: Hãy cho biết sau đoạn chơng trình sau trên màn hình hiện gì ?

…

x := 5; y:= 3;

writeln(‘x = ‘, x , ‘ y = ‘, y);

tg:=x ; x :=y; y:= tg;

writeln(‘x =’, x , ‘ y = ’, y);

…