Viết chương trình nhập vào một mảng các số nguyên.Ghi ra màn hình giá trị trung bình cộng của mảng đó và các phần tử nhỏ hơn giá trị trung bình cộng của mảng..[r]
(1)ĐỀ CƯƠNG ÔN TẬP CUỐI NĂM TIN HỌC NĂM HỌC 2011 – 2012 I - PHẦN TRẮC NGHIỆM.
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 Không đưa kết gì
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 4: Trong ngơn ngữ Pascal, đoạn chương trình sau đưa hình kết gì? For i:=1 to write (i,’ ‘);
a b 1
c Đưa 10 dấu cách d Không đưa kết gì
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 cho đến đ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 6: Câu lệnh pascal sau hợp lệ?
a.For i:=100 to writeln(‘A’); b For i:=1.5 to 10.5 writeln(‘A’); c For i= to 10 writeln(‘A’); d For i:= to 10 writeln(‘A’); Câu 7: Khi viết câu lệnh lặp for do…
a Giá trị đầu giá trị cuối b Giá trị cuối phải lớn giá trị đầu c Giá trị đầu lớn giá trị cuối d Tất sai.
Câu 8: 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 9: 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 10: điều kiện vịng lặp chưa xác định khỏi vịng lăp là:
a.Điều kiện đúng b Điều kiện sai
c Số lần lặp phụ thuộc vào điều kiện khỏi vịng lặp điều kiện khơng cịn nữa. d Số lần lặp phụ thuộc vào điều kiện khỏi vịng lặp điều kiện cịn đúng.
Câu 11: Câu lệnh viết cú pháp là:
a While <điều kiện> to <câu lệnh>; b While <điều kiện> <câu lệnh>;
c While <điều kiện> to <câu lệnh1> <câu lệnh 2>; d While <điều kiện>; <câu lệnh>; Câu 12: Cú pháp câu lệnh lặp for … … ?
a For (biến đếm):=(giá trị đầu) to (giá trị cuối) (câu lệnh);
b If (điều kiện) then (câu lệnh); c Var n, i:interger; d Phải kết hợp a, b c Câu 13: 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 14: 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
(2)Câu 15: Câu lệnh gotoxy(a,b) có tác dụng
a Đưa trỏ hàng b b Đưa trỏ cột a c Đưa trỏ cột a hàng b d Tất đúng. Câu 16: Câu lệnh pascal sau hợp lệ?
a For i:=100 to writeln(‘A’) b For i= to 10 writeln(‘A’); c For i:=1.5 to 10.5 writeln(‘A’) d For i:= to 10 writeln(‘A’); Câu 17: 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 18: 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 19: 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 20: 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 55 C 121 D 151
Câu 21: 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 22: 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; 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ừ 100 Đế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 + i i:= i + 1;
Writeln(‘ Tong cac so tu nhien tu 100 den 1000 la:’,S); Readln; End
Bài Viết chương trình nhập vào mảng số nguyên.Ghi hình giá trị trung bình cộng của mảng phần tử nhỏ giá trị trung bình cộng mảng
Bài 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 Viết chương trình tính tổng:
1 1
1
2 S
n
(3)ĐÁ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; tbc: real;
Begin
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;
(4)(5)