Đề KT lần 2 Tin học 8

Chia sẻ bởi lê trẩn mỹ tiên | Ngày 17/10/2018 | 40

Chia sẻ tài liệu: Đề KT lần 2 Tin học 8 thuộc Tin học 8

Nội dung tài liệu:

PHÒNG GD & ĐT VŨNG LIÊM
TRƯỜNG THCS LƯU VĂN MÓT
ĐỀ KIỂM TRA 1 TIẾT (THỰC HÀNH)
MÔN: TIN HỌC 8 (Lần 2)
NĂM HỌC 2014- 2015
ĐỀ:
Viết chương trình nhập 3 số dương a, b và c từ bàn phím, kiểm tra và in ra màn hình kết quả kiểm tra 3 số đó có thể là độ dài các cạnh của một tam giác hay không.

ĐÁP ÁN – BIỂU ĐIỂM

Program ba_canh_mot_tam_giac;
Uses crt; 0,5 điểm
Var a, b, c: real; 1 điểm
Begin
Clrscr; 0,5 điểm
Write(‘Nhap so a = ‘); Readln(a); 1 điểm
Write(‘Nhap so b = ‘); Readln(b); 1 điểm
Write(‘Nhap so c = ‘); Readln(c); 1 điểm
If (a+b>c) and (b+c>a) and (c+a>b) then 1 điểm
Writeln(a, b, c ,‘la ba canh cua mot tam giac!’) 1,5 điểm
Else Writeln(a, b, c ,‘ khong la ba canh cua mot tam giac!’); 1,5 điểm
Readln
End. 1 điểm

GVBM




Nguyễn Trường Thái





















PHÒNG GD & ĐT VŨNG LIÊM
TRƯỜNG THCS LƯU VĂN MÓT
ĐỀ KIỂM TRA 1 TIẾT (THỰC HÀNH)
MÔN: TIN HỌC 8 (Lần 2)
NĂM HỌC 2014- 2015
ĐỀ:
Viết chương trình nhập chiều cao của hai bạn Bình và An, in ra màn hình kết quả so sánh chiều cao của hai bạn, chẳng hạn “Bạn Bình cao hơn”.

ĐÁP ÁN – BIỂU ĐIỂM

Program ai_cao_hon;
Uses crt; 0,5 điểm
Var an, binh: real; 1 điểm
Begin
Clrscr; 0,5 điểm
Write(‘Nhap chieu cao cua An = ‘); Readln(an); 1 điểm
Write(‘Nhap chieu cao cua Binh = ‘); Readln(binh); 1 điểm
If an>binh then Writeln(‘Ban An cao hon!’); 1,5 điểm
If an Else Writeln(‘Hai ban cao bang nhau’); 1,5 điểm
Readln
End. 1 điểm

GVBM




Nguyễn Trường Thái






* 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ê trẩn mỹ tiên
Dung lượng: 30,00KB| Lượt tài: 1
Loại file: doc
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)