Đề thi học Kỳ II (tham khảo)

TrườngTHCS Nguyễn Khuyến


Họ và tên: ……………………….. lớp 8:\.. ĐỀ KIỂM TRA KH II


Thời gian: 45 phút Đề I

1. Phần trắc nghiệm, tự luận: (2đ)

Chọn câu đúng và đánh dấu × trước câu chọn đúng


a. Công dụng và ý nghĩa của lệnh Writeln; khi viết
trong tập tin *.pas

a) Là lệnh xuất dữ liệu ra màn hình hoặc vào file

b) Lệnh đưa con trỏ xuống 1 dòng
c) Lệnh dừng chương trình chờ ấn 1 phím bất kỳ
d) Cả 3 ý trên đều đúng
b. Lệnh Delay(200); dùng để làm gì trong chương trình Turbo pascal?

…………………………………………………………………………………………….
c. Lệnh readln; và readln(n) khác nhau ở điểm nào?
…………………………………………………………………………………………….
d. Những câu lệnh sau câu nào là câu lệnh đúng (không có lỗi ) trong ngôn ngữ lập trình pascal:
a) X:=10; If X>= 10 then writeln(' Đó là số lớn hơn hoặc =10 ')
b) X:=5; If X>= 10 then writeln(' Đó là số 10 ') else writeln(' Đó là số nhỏ hơn 10 ');
c) X:=9 For i:= 10 downto X do
d) X:=10; If X>= 10 then writeln(' Đó là số 10 ');

* Khai báo: (2đ)
2. Với bài toán nhập vào 1 mảng số thực có n phần tử (0<50).
Tìm phần tử lớn nhất trong mảng đó. Hãy khai báo biến:

Viết chương trình: (2đ)
3. Viết chương trình nhập vào
1 số nguyên. Nếu nhập vào số 1 : in ra câu chào Ông, nhập vào số 2 : in ra câu chào Bà, nhập vào số 3 : in ra câu chào Thầy cô, nhập vào số bất kỳ: in ra câu chào mọi người





4. Viết thuật toán: (2đ)


Viết thuật toán để giải bài toán
sau:


Input: một dãy số dương a[a_‑1, a­_2, a_3,
...a_n]


Output: Trung bình cộng các
số dương?






5. Viết chương trình


Chọn 1 trong 2 bài sau: (2 đ)


a) Viết chương trình nhập vào 1
mảng ký tự, và nhập vào 1 ký tự X bất kỳ từ bàn phím. Kiểm tra xem có bao nhiêu
phần tử trong mảng giống ký tự X

b) Viết chương trình nhập vào 1 mảng số nguyên, tìm xem
có bao nhiêu phần tử = 0, có bao nhiêu phần tử < 0.
Chú ý: Đây là đề tham khảo nên không có giá trị kiểm tra

(hphong)
1)
a/c
b/Ngưng làm công việc của chương trình trong 200/18.2 giây
c/readln; là nhận lện để đưa con trỏ xuống 1 dòng. readln(n); là đọc số n và xuống dòng sau khi đọc.
d/ b,d đúng
2)var a:array[1..50] of real; n:byte;maximum:real;
3)
uses crt; var n:integer; begin clrscr; write('nhap n: ');readln(n); if (n=1) then writeln('hello sir') else if (n=2) then writeln('hello madam') else if (n=3) then writeln('hello teacher') else writeln('hello everyone'); readln; end.
4)Nhập n ---> nhập A[i] với i=1-->n. ans=0. i =1-->n --> ans=ans+A[i]. ans=ans/n;
5)
a/uses crt; var s:string; x:char; i,ans:integer; begin clrscr; write('nhap xau: ');readln(s); writeln('nhap ki tu X: ');readln(x); ans:=0; for i:=1 to length(s) do if (s[i]=x) then inc(ans); writeln('co ',ans,' ki tu', x ,' trong xau'); readln; end.
b)uses crt; var a:array[1..1000] of integer; ans1,ans2,i,n:integer; begin clrscr; write('nhap do dai day so: ');readln(n); for i:=1 to n do begin write(a[',i,']= ');readln(a[i]); end; ans1:=0; ans2:=0; for i:=1 to n do begin if (a[i]=0) then inc(ans1); if (a[i]<0) then inc(ans2); end; writeln('co ',ans1,' so 0 trong day'); writeln('co ', ans2 ,' so be hon 0 trong day'); readln; end.

Signature : Windy

Bài 4 phía trên nhìn rối mắt quá >"< Không biết bài này có đúng ko nhưng cứ up lên cho mọi người coi, có gì chỉ để sửa lun.

4)
B1 : n <- bàn phím
đọc a[i..n] <- bàn phím; tong:=0; dem:=0
B2 : Nếu i > n -> B5
B3 : Nếu a[i]>0 thì tong :=tong+a[i]; dem:=dem+1
B4 : TBC:=tong/dem -> B2
B5 : In kết quả TBC
B6 : Kết thúc chương trình.

(hphong)
ừ anh gõ nhầm í em, srrr

Signature : Windy

củm ơn myheart zvà bạn gorse nha
hy vọng mình sẽ thi tốt vào chìu nay

Em nghỹ phần 1 câu b là a+b đúng chứ nhỉ?

Có ai giải thích giúp em ko?


__Nhóc__

có đề 7 thì thầy post lên luôn đi thầy.
để có gì em tham khảo tí

Thầy ơi không có đề 2 ah?


One-line. Type TV không dấu. Hai tội đó đủ để del bài và cảnh cáo. Tuy nhiên là thắc mắc chính đáng nên sẽ type lại và để nguyên.

Cleo nhân hậu :">