De thi hki tin 8 2016-2017
Chia sẻ bởi Lý Thái Huy |
Ngày 17/10/2018 |
45
Chia sẻ tài liệu: de thi hki tin 8 2016-2017 thuộc Tin học 8
Nội dung tài liệu:
KIỂ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;
- Dạng đủ:
If <điều kiện> then
Else;
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
If (I mod 2 = 0) then s:=s+i;
Writeln(‘Tong = ‘,s);
End.
1đ
1đ
1đ
0.25đ
0.5đ
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đ
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
- Dạng đủ:
If <điều kiện> then
Else
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
If (I mod 2 = 0) then s:=s+i;
Writeln(‘Tong = ‘,s);
End.
1đ
1đ
1đ
0.25đ
0.5đ
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đ
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Lý Thái Huy
Dung lượng: 36,50KB|
Lượt tài: 1
Loại file: doc
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)