KIỂM TRA CHẤT LƯỢNG HKI Môn: Tin học Năm học: 2016-2017 Lý thuyết + Thực hành Đề: Câu 1: (1 điểm) Hãy viết cấu trúc câu lệnh điều kiện Câu 2: (1 điểm) Ngơn ngữ lập trình gì? Câu 3: (4 điểm) Sửa lỗi sai chương trình sau (Biết chương trình dùng để tính tổng số chẵn từ đến n) Program begin_end; Var n:string; i,s: integer; Begin Clrscr; Writeln(‘Nhap so n: ‘); readln(n); For i=1 to n If (n mod 0) then s:=s+i Writeln(‘Tong = ‘,s); End Câu 4: (2 điểm) Viết chương trình nhập độ dài cạnh tam giác (kiểu số nguyên) Kiểm tra xem độ dài có phải số Py-ta-go khơng? Câu 5: (2 điểm) Viết chương trình tính tích số chẵn khoảng từ đến 20 - Hết - Câu Câu Câu HƯỚNG DẪN CHẤM BÀI Cấu trúc: - Dạng thiếu: if then ; - Dạng đủ: If then Else ; Ngôn ngữ lập trình tập hợp kí hiệu quy tắc viết lệnh Program baitap; Uses crt; Var n:integer; i,s: integer; Begin Clrscr; Writeln(‘Nhap so n: ‘); readln(n); S:=0; For i:=1 to n ThuVienDeThi.com 0.5 đ 0.5đ 1đ 1đ 1đ 1đ 0.25đ 0.5đ Câu Câu If (I mod = 0) then s:=s+i; Writeln(‘Tong = ‘,s); End Program bai4; Uses crt; Var a,b,c:integer; Begin Clrscr; Write(‘Nhap a,b,c: ‘); readln(a,b,c); If (a+b>c) and (a+c>b) and (b+c>a) then writeln(a,’ , ‘,b,’ , ‘,c,’ La bo so Py-ta-go’) Else writeln(a,’ , ’,b,’ , ‘,c,’ Khong la bo so Py-ta-go’); Readln; End Uses crt; Var I,t:integer; Begin Clrscr; T:=1; For i:=1 to 20 If (i mod = 0) then t:=t*i; Writeln(‘Tich = ‘,t); Readln; End ThuVienDeThi.com 0.25đ 0.25đ 0.75đ 0.5đ 0.5đ 0.25đ 0.25đ 0.5đ 0.5đ 0.5đ ...Câu Câu If (I mod = 0) then s:=s +i; Writeln(‘Tong = ‘,s); End Program bai4; Uses crt; Var a,b,c:integer; Begin Clrscr; Write(‘Nhap a,b,c: ‘); readln(a,b,c); If (a+b>c) and (a+c>b)... then writeln(a,’ , ‘,b,’ , ‘,c,’ La bo so Py-ta-go’) Else writeln(a,’ , ’,b,’ , ‘,c,’ Khong la bo so Py-ta-go’); Readln; End Uses crt; Var I, t:integer; Begin Clrscr; T:=1; For i: =1 to 20 If (i mod... I, t:integer; Begin Clrscr; T:=1; For i: =1 to 20 If (i mod = 0) then t:=t *i; Writeln(‘Tich = ‘,t); Readln; End ThuVienDeThi.com 0.25đ 0.25đ 0.75đ 0.5đ 0.5đ 0.25đ 0.25đ 0.5đ 0.5đ 0.5đ