Ngôn ngữ Pascal thể hiện cấu trúc lặp với số lần lặp cho trước bằng câu lệnh while …do Câu 7: Câu lệnh lặp while ...do có dạng đúng là:?. a.a[r]
(1)Câu hỏi ôn tập kiểm tra tiết môn tin học 8 Câu 1: Trong ngôn ngữ lập trình Pascal câu lệnh sau đúng:
a If a:=5 then a:=d+1 else a:=d+2; b If a=5 then a:=d+1else a:=d; c If a=5 then a:=d+1 else a=d+2; d If a=5 then a=d+1else a:=d+2; Câu 2: Trong ngơn ngữ Pascal, đoạn chương trình sau đưa hình kết gì?
For i:=1 to 10 write (i,‘,’ );
a 10 b 10 1
c Đưa 10 dấu cách c 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,
Câu 17: Mọi ngơn ngữ lập trình có câu lệnh để thể hiện:
a Cấu trúc lặp b Cấu trúc rẽ nhánh c a b sai. d a b Câu 18: Khi viết câu lệnh lặp for to do…
a Giá trị đầu giá trị cuối b Tất sai.
c Giá trị đầu lớn giá trị cuối d Giá trị cuối phải lớn giá trị đầu Câu 20: Câu lệnh pascal sau hợp lệ?
a For i:=1 to 10 writeln(‘A’) b For i= to 10 writeln(‘A’); c For i:=1.5 to 10 writeln(‘A’) d For i:= 10 to writeln(‘A’); Câu 15: Lệnh lặp sau đúng?
a For <biến đếm >= <giá trị đầu > to <giá trị cí > <câu lệnh >; b For <biến đếm >:= <giá trị đầu > to <giá trị cí > <câu lệnh >; c For <biến đếm >:= <giá trị cí > to <giá trị đầu > <câu lệnh >; d For <biến đếm >: <giá trị đầu > to <câu lệnh > <giá trị cuối >; Câu 16: Vòng lặp while vòng lặp:
a Biết trước số lần lặp b Chưa biết trước số lần lặp
c Biết trước số lần lặp giới hạn <=100 d Biết trước số lần lặp giới hạn >=100 Câu 23: Để khai báo biến mảng a gồm 10 phần tử , phần tử có kiểu liệu real ta khai báo:
A var a: array[10] of real; B var a: array[1;10] of real; C var a: array[1:10]: of real; D var a: array[1 10] of real; Câu 24: Cho đoạn chương trình sau:
n:=1;
While n<10 do
Begin n:=n+1; Writeln(‘ xin chao’); end;
Khi thực chương trình câu “ xin chao” viết hình lần?
A B.9 C 10 D Vịng lặp vơ tận
Câu 21: Em hiểu câu lệnh lặp theo nghĩa đây?
a Một lệnh thay cho nhiều lệnh. b Các câu lệnh viết lặp lặp lai nhiều lần. c.Vì câu lệnh có tên lệnh lặp d Cả a, b, c sai.
Câu 22: Tìm giá trị S đọan chương trình đây: S := 0; For i := to S := S + i;
a S = 0 b S = 1 c S = 5 d S = 15
Câu 3: Sau thực đoạn chương trình j:= 0; for i:= to j:=j+2; g/trị in hình là?
a 8 b 10 c 4 d 6
Câu 5: Phát biểu sau đúng?
a Cấu trúc lặp sử dụng để thị cho máy tính thực lặp lại vài hoạt động điều kiện thoả mãn
b Chỉ ngơn ngữ lập trình Pascal có câu lệnh lặp để thể cấu trúc lặp.
c Ngôn ngữ Pascal thể cấu trúc lặp với số lần lặp cho trước câu lệnh while …do Câu 7: Câu lệnh lặp while có dạng là:
(2)Câu 8: Cấu trúc rẽ nhánh dạng đầy đủ ngơn ngữ lập trình Pascal có dạng:
a if <câu lệnh 1> then <câu lệnh 2>; b if <điều kiện1> then <câu lệnh1>; c if <điều kiện> then < câu lệnh 1> else <câu lệnh 2>;d if <điều kiện> then <câu lệnh>;
Câu 10: Tìm giá trị S đọan chương trình đây: S := 0;
For i := to S := S + i;
a S = 0 b S = 1 c S = 5 d S = 15
Câu 11: Khi câu lệnh For…to…do kết thúc?
a Khi biến đếm lớn giá trị cuối b Khi biến đếm nhỏ giá trị cuối c Khi biến đếm giá trị cuối d Khi biến đếm lớn giá trị đầu Câu 26: Hãy tìm hiểu đoạn chương trình sau
i:=1; j:=1; k:=1;
While i<=6 i:=i+1; j:=j+1; k:=k+j; Space:=’ ’;
Write(I,space,j,space,k);
Sau thực đoạn CT trên, lệnh Write in hình g/trị i, j, k bao nhiêu?
A 2,3,4 B 7,2,3 C 7,3,6 D 6,3,7
Câu 27: Sau thực đoạn chương trình sau, giá trị biến S bao nhiêu: s:=1;
for i:=1 to s := s*i;
A.120 B 24 C 121 D 151
Câu 28: Phần thân chương trình bắt đầu từ khóa::
A End B Begin C.Uses D.Var
Câu 29: Cú pháp khai báo biến mảng Pascal là:
A.var <Tên mảng> ; array [<chỉ số đầu> <chỉ số cuối>] of <kiểu liệu >; B.var <Tên mảng> : array [<chỉ số đầu>…<chỉ số cuối>] of <kiểu liệu >; C.var <Tên mảng> : array [<chỉ số đầu> <chỉ số cuối>] of <kiểu liệu >; D.var <Tên mảng> array [<chỉ số đầu>…<chỉ số cuối>] for <kiểu liệu >; Câu 30: Chọn khai báo hợp lệ:
A Var a,b: array[1 n] of real; C Var a,b: array[1 : n] of Integer; B Var a,b: array[1 100] of real; D Var a,b: array[1 … 100] of real; Câu 31:Khi thực câu lệnh for i:= 1.5 to writeln(i); sẽ viết hình?
A Khơng thực giá trị đầu khơng phải số nguyên B.Giá trị biến đếm C Viết số 1.5 viết số D Chỉ viết số mà thơi Câu 32: Với ngơn ngữ lập trình Passcal câu lệnh lặp for i:=1 to 10 x:=x+1; biến đếm i phải khai báo kiểu liệu gì?
A.real ; B.Interger ; C string D Tất kiểu II - PHẦN TỰ LUẬN :
Bài Tìm lỗi chương trình sửa lỗi chương trình cho đúng:
Tính Tổng Các Số Tự Nhiên Từ 10 Đến 1000 (Vòng lặp với số lần lặp chưa biết) Program tinh_tong;
Var i S: Integer; Begin
i: 100; S = 0;
While i >= 1000 S:= S + 1/i i:= i + 1;
Writeln(‘ Tong la:’ S); Readln; End
(3)Bài 3 Viết chương trình tính tổng: S = 1+2+3+…+n
Trong n số nguyên nhập từ bàn phím Bài 4 Viết chương trình tính tổng:
1 1
1
2 S
n
Trong n số nguyên nhập từ bàn phím
Bài 5: Viết chương trình nhập vào mảng số nguyên Ghi hình phần tử có giá trị lẽ. Bài 6: Viết chương trình nhập vào mảng số nguyên Ghi hình phần tử có giá trị lớn nhất, nhỏ dãy số
ĐÁP ÁN - PHẦN TỰ LUẬN : Bài 1.
Program tinh_tong;
Var i, S: Integer; Begin
i:= 100; S: = 0;
While i <=1000 do S:= S + i; i:= i + 1;
Writeln(‘ Tong cac so tu nhien tu 100 den 1000 la:’,S); Readln; End.
Bài
Chương trình viết sau: Program tbc;
Var a: array[1 100] of integer; i, n, tong: integer;
(4)Write(‘Nhap vao so phan tu cua mang n= (<=100) :’); readln(n); Write(‘Nhap so nguyen:’);
For i:=1 to n do
Begin write(‘a[‘,i,’]:’); readln(a[i]); end; Tong:=0;
For i:=1 to n tong:=tong+a[i]; tbc:=tong/n;
Writeln(‘Trung binh cong cua mang la:’, tbc:10:2); Writeln(‘ cac phan tu nho hon tbc la:’);
For i:=1 to n do
If a[i]<tbc then write(a[i]:5); Readln;
End. Bài 3.
Program Tong; Uses crt;
Var S: real; n, i: integer; Begin
Clrscr;
Write(‘Nhap so n = ‘); Readln(n); S:= 0;
For i:= to n S: = S + i;
Writeln(‘Tong can tim la: ‘, S:6:2); Readln
End Bài 4.
Program Tong_Nghich_Dao; Uses crt;
Var S: real; n, i: integer; Begin
Clrscr;
Write(‘Nhap so n = ‘); Readln(n); S:= 0;
For i:= to n S: = S + 1/i;
Writeln(‘Tong can tim la: ‘, S:6:2); Readln
(5)