§Ò 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 đoạn chơng trình sau để giải toán: Nhập vào ba cạnh tam giác , sau tính diện tích 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 hình ? x := 3; y:= 5; writeln(‘x = ‘, x , ‘ y = ‘, y); -> x = y = tg:=x ; x :=y; y:= tg; writeln(‘x =’, x , ‘ y = ’, y); - > x = y = … §Ị 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 đoạn chơng trình sau để giải toán: Nhập vào ba cạnh tam giác , sau tính diện tích 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 hình ? … x := 5; y:= 3; writeln(‘x = ‘, x , ‘ y = ‘, y); tg:=x ; x :=y; y:= tg; writeln(‘x =’, x , ‘ y = ’, y); …