Đề kiểm tra 15 phút tin học 8

Dùng lệnh While…do.. ĐỀ 2: viết chương trình tính tổng 10 số tự nhiên đầu tiên.. Dùng lệnh For…do.

ĐỀ KIỂM TRA 15 PHÚT TIN HỌC TUẦN 33

ĐỀ 1: viết chương trình tính tổng 10 số tự nhiên đầu tiên

Dùng lệnh While…do

ĐỀ 2: viết chương trình tính tổng 10 số tự nhiên đầu tiên

Dùng lệnh For…do

ĐÁP ÁN:

Dùng lệnh

While…do

Program Tinh_tong;

Const n = 10;

Var i, tong: integer;

Begin

Tong := 0;

I := 1;

While I < n do

Begin

Tong := tong + I;

I := I + 1;

End;

Writeln ( ‘ Tong cua 10 so tu

nhien dau tien la:’, tong);

Readln;

End

0.5 0.5 0.5 0.5 1 1 1 0.5 1 1 0.5 1 0.5 0.5

Dùng lệnh For…do

Program Tinh_tong;

Const n = 10;

Var i, tong: integer;

Begin Tong := 0;

For I := 1 to 10 do Tong := tong + I;

Writeln ( ‘ Tong cua 10 so

tu nhien dau tien la:’, tong);

Readln;

End

1 1 1 1 1 1 1 1 1 1