SỞ GD & ĐT TỈNH DAK LAK TRƯỜNG PTTH LÊ HỮU TRÁC ĐỀ THI HỌC KỲ I Môn Tin học – thời gian 45 phút Câu 1 2đ: Viết lại các biểu thức toán học sau sang dạng biểu diễn tương ứng trong Pascal: [r]
(1)SỞ GD & ĐT TỈNH DAK LAK TRƯỜNG PTTH LÊ HỮU TRÁC ĐỀ THI HỌC KỲ I (Môn Tin học – thời gian 45 phút) Câu (2đ): Viết lại các biểu thức toán học sau sang dạng biểu diễn tương ứng Pascal: a x y z b a2 b2 c b b 4ac 2a d x y z 1 Câu 2(3đ): Viết chương trình nhập vào số nguyên và in màn hình số lơn nhất: Câu 3(5đ): Hãy viết chương trình tìm Ước số chung lớn hai số a, b nhập từ bàn phím (dùng lệnh Repeat….Until) Lop11.com (2) ĐÁP ÁN Câu 1: a b c d (x + y) / z; (1/2) * (sqrt(sqr(a) + sqr(b)) ); (–b + (sqrt(sqr(b) – 4*a*c)))/(2*a); (x + y) / (sqrt(z + 1); Câu 2: program solonnhat; var a, b, c, d, max1, max2: integer; BEGIN Writeln('Go vao 04 so nguyen ');readln(a, b, c, d); If a > b Then max1:= a Else Max1:= b; If c > d Then max2:= c Else Max2:= d; writeln('So lon nhat 04 so la:'); Begin If max1 > max2 Then Writeln(max1) Else Writeln(max2); End; readln END Câu 3: program solonnhat; var a, b, ucln: integer; BEGIN Writeln('Go vao 02 so muon tim UCLN ');readln(a, b); Repeat If a > b Then a:= a - b Else b:= b - a; Until a = b; ucln:= a; writeln('Uoc chung lon nhat la:', a); readln END Lop11.com (3)