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