ĐỀ KIỂM TRA HỌC KỲ I Môn: Tin học.. Writeln‘ Ket qua la: ’ M ; Readln End; Em hãy cho biết chương trình trên có những lỗi nào về mặt cú pháp hãy chỉ ra và sửa lại... ĐỀ KIỂM TRA HỌC KỲ
Trang 1ĐỀ KIỂM TRA HỌC KỲ I
Môn: Tin học
Thời gian: 45'
Trong ngôn ngữ lập trình Pascal hãïy thực hiện các yêu
cầu sau:
Câu 1: Nêu cú pháp và sự thực hiện của câu lệnh While - Do
Câu 2: Cho chương trình sau:
Program Cau1;
Var m,n:word;
Begin
Write(“ M= “);
Readln(M) ; Write(‘ N = ’) ; Readln(‘N’); WHILE M <> N DO; Begin IF M > N THEN M := M -N; ELSE N := N - M; End Writeln(‘ Ket qua la: ’ M) ; Readln End; Em hãy cho biết chương trình trên có những lỗi nào về mặt cú pháp (hãy chỉ ra và sửa lại) Cho biết kết quả trên màn hình như thế nào khi nhập: m=25, n=18 Câu 3: Viết chương trình để nhập vào một số nguyên dương bất kỳ rồi cho biết số vừa nhập có phải là số có 2 chữ số không? Cau 4: Viết chương trình kiểm tra một số nguyên dương được nhập vào từ bàn phím có phải là số nguyên tố không (số nguyên tố là số chỉ có 2 ước là 1 và chính nó) Bài làm
Họ và tên:
Lớp:
Điểm Đề 1
Trang 2ĐỀ KIỂM TRA HỌC KỲ I
Môn: Tin học
Thời gian: 45'
Trong ngôn ngữ lập trình Pascal hãïy thực hiện các yêu
cầu sau:
Câu 1: Nếu cú pháp và sự thực hiện của câu lệnh For - Do ở dạng
tiến
Câu 2: Cho biết giá trị nào sẽ hiện lên màn hình khi thực hiện chương
trình sau:
Program Cau1;
Var r:integer;
Begin
i:=7;
While i>1 do
Begin
if i mod 2<>0 then i:=i*3+1 else i:=i div 2;
Writeln(i);
End;
Readln;
End
Câu 3: Viết chương trình để nhập vào 2 số nguyên bất kì rồi cho biết
số lớn nhất của 2 số vừa nhập
Câu 4: Viết chương trình để nhập vào 2 số nguyên dương m, n (với
m<n) rồi cho biết tổng của các số chia hết cho 3 hoặc 5 trong phạm vi từ m đến n
Bài làm
Họ và tên:
Lớp:
Điểm Đề 2