Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (55.29 KB, 1 trang )
KIỂM TRA THỰC HÀNH 1 TIẾT
II. Đề bài:
Câu 1. Em hãy viết chương trình tính tổng các số chẳn từ 1 đến 100 (6đ)
Câu 2. Em hãy dịch và sửa lỗi chương trình (nếu có) (2đ)
Câu 3. Em hãy chạy chương trình và kiểm tra kết quả (2đ)
III. Đáp án:
Câu Nội dung Điểm
Câu 1:
Viết chương trình
tính tổng các số chẳn
từ 1 đến 100 (sử
dụng vòng lặp không
xác đinh)
Program tinh_tong_cac_so_chan;
Var i, S: Integer;
Begin
S:= 0;
i:= 2;
While i <= 100 do
Begin
S:= S+ i;
i:= i + 2;
End;
Writeln( ‘ Tong cac so chẳn tu 1 den 100 =’, S);
Readln;
End.
1đ
1đ
3đ
1đ