De kiem tra tin 8 ki 2

Bieát tröôùc soá laàn laëp nhöng giôùi haïn laø >=100 Câu 2: Trong ngôn ngữ lập trình Pascal câu lệnh nào sau đây là đúng:A. Taát caû caùc kieåu treân ñeàu ñöôïc.[r]

ĐỀ KIỂM TRA HỌC KỲ II

I/ Khoanh troứn chửừ caựi ủửựng trửụực phửụng aựn em cho laứ ủuựng:

Caõu 1: Voứng laởp While <ẹieàu kieọn> do <Caõu leọnh>; laứ voứng laởp:

A Bieỏt trửụực soỏ laàn laởp B Chửa bieỏt trửụực soỏ laàn laởp

C Bieỏt trửụực soỏ laàn laởp nhửng giụựi haùn laứ <=100 D Bieỏt trửụực soỏ laàn laởp nhửng giụựi haùn laứ >=100

Cõu 2: Trong ngụn ngữ lập trỡnh Pascal cõu lệnh nào sau đõy là đỳng:

A If a=5 then a:=a+1; else a:=a+2; B If a=5 then a:=a+1else a:=a+2;

C If a=5 then a=a+1; else a=a+2; D If a=5 then a:=a+1else a:=a+2

Caõu 3: Sau khi thửùc hieọn ủoaùn chửụng trỡnh sau, giaự trũ cuỷa bieỏn S baống bao nhieõu:

s:=0;

for i:=1 to 5 do s := s+i;

Caõu 4: Vụựi ngoõn ngửừ laọp trỡnh Passcal caõu leọnh laởp for i:=1 to 10 do x:=x+1; thỡ bieỏn ủeỏm i

phaỷi ủửụùc khai baựo laứ kieồu dửừ lieọu gỡ ?

A Interger; B real; C string; D Taỏt caỷ caực kieồu treõn ủeàu ủửụùc

Caõu 5: Choùn khai baựo hụùp leọ:

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 A Chuyển các biểu thức đợc viết trong pascal sau đây thành các biểu thức toán:

1 (a+b)*(a+b)-x/y; b/ b/(a*a +c)

2 a*a/((2*b+c)*(2*b+c)) d/ 1 + 1/ 2 +1 / (2*3) + 1 / (3*4) + 1 / (4*5).

B Hãy viết các phép so sánh sau bằng kí hiệu pascal:

1 (a + b > c ) và ( b + c > a) và (a + c > b )

2 (x < a1 ) hoặc (x > a2 );

3 (diem >= 6) và (diem < 8);

4 (a2 <10) hoặc ( a chia hết cho 3);

III/ ẹieàn X vaứo caực oõ sao cho phuứ hụùp:

a) if a>b then max:=a; else max:=b;

b) if a>b then min:=b else min:=a;

c) for i:=1 to 50 do x:=x+1;

d) for i:=1.5 to 10 do m:=m + 1;

IV/ Gạch chân dưới những câu lệnh em cho là sai rồi viết lại cho đúng:

Program Tinh_tong;

Uses crt;

Var N, i: Integer;

S: Longint;

BEGIN clrscr;

Write(‘Nhap vao so N =’ ); Readln(N);

S:=0 For i =1 to N do S:=S+i;

Writeln(‘Tong cua’,N,’so tu nhien dau tien s = ‘, s); Readln

END .

V/ Viết chương trình giải quyết bài toán: a Nhập vào chiều cao của 3 bạn Huy, Nam, An Tính chiều cao trung bình rồi thông báo kết quả ra màn hình b Nhập vào 1 số nguyên, kiểm tra chẳn hay lẽ rồi thông báo kết quả ra màn hình.