BT Pascal tin 8 nang cao

Câu 94 : Biến được khai báo với kiểu dữ liệu số thực có thể lưu các giá trị nào trong các giá trị dưới đây :.. Một số nguyên bất kì.[r]

(1)

Bài 1: Nhập vào cạnh hình chữ nhật In

hình diện tích chu vi nó.

Program hcn; Uses crt;

Var a,b,s,c:real; Begin

Clrscr;

Writeln(‘Tinh chu vi va dien tich hcn’); Write(‘nhap chieu dai:’); Readln(a); Write(‘nhap chieu rong:’); Readln(b); S:=a*b;

C:=(a+b)*2;

Writeln(‘Dien tich hinh chu nhat la:’,S); Writeln(‘Chu vi hinh chu nhat la:’,C); Readln;

End

Bài 2:Nhập vào bán kính hình trịn.In hình diện

tích chu vi nó.

Program hinh_tron; Uses crt;

Var R, S, P: real; Const pi=3.14; Begin

Clrscr;

Writeln(‘Dien tich va chu vi hinh tron:’); Write(‘nhap ban kinh:’); Readln(R);

S:=pi*R*R; P:=2*pi*R;

Writeln(‘dien tich cua hinh tron la:’,S); Writeln(‘chu vi cua hinh tron la:’,P); Readln;

End

B

i : Tính tam giác: Nhập vào ba số a,b,c Kiểm tra

xem độ dài ba cạnh hay khơng, khơng

thì in hình ' Khong la ba canh cua mot tam

giac' Ngược lại, in diện tích, chu vi tam giác màn

hình.

Program Tam_giac; Uses crt;

Var a,b,c,s,p:real; Begin

Clrscr;

Writeln(‘bai toan tam giac’); Write(‘nhap a=’); Readln(a);

(2)

Write(‘nhap b=’); Readln(b); Write(‘nhap c=’); Readln(c);

If ((a+b)>c) and ((b+c)>a) and ((a+c)>b) then Begin

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c)); Writeln(‘chu vi tam giac:’,2*p);

Writeln(‘dien tich hinh tam giac:’,s); End;

Else

Writeln(a,b,c khong phai la canh cua tam giac’); Readln;

End

B

i : Viết chương trình giải phương trình bậc 1

(ax + b = 0)

Program GIAI_PHUONG_TRINH_BAC_NHAT; Uses crt;

Var a,b,x:real; Begin

Clrscr;

Writeln(‘giai phuong trinh bac nhat:ax+b=0’); Write(‘nhap a=’); Readln(a);

Write(‘nhap b=’); Readln(b); If (a=0)then

If (b=0) then

Writeln(‘phuong trinh co vo so nghiem’); Else

Writeln(‘phuong trinh vo nghiem’); Else

Writeln(‘phuong trinh co nghiem x=’,-b/a); Readln;

End

B

i : Viết chương trình giải bất phương trình bậc (ax

+ b >= 0)

Program BAT_PHUONG_TRINH_BACI; Uses crt;

Var a,b:real; Begin

Clrscr;

Writeln(‘giai bat Phuong trinh bac nhat’); Write(‘nhap a=’); Readln(a);

Write(‘nhapb=’); Readln(b); If a<>0 then

If a>0 then writeln(‘bat phuong trinh co nghiem:x>=’,-b/a); Else writeln(‘bat phuong trinh co nghiem:x<=’-b/a);

Else

If b>=0 then

Writeln(‘bat phuong trinh co vo so nghiem’); Else writeln(‘bat phuong trinh vo nghiem’);

(3)

B

i 6:

Vi

ế

t ch

ươ

ng trình nh

ậ

p s

ử

d

ụ

ng bi

ế

n X Y

để

l

ư

u s

ố

nh

ậ

p

t

ừ

bàn phím,sau

đ

ó hốn

đổ

i giá tr

ị

c

ủ

a bi

ế

n cho nhau(x, y có giá

tr

ị

t

ă

ng d

ầ

n)

Cách 1:

Program hoan_doi; uses crt;

var X,Y,Z: real; begin

clrscr;

write('Nhap so X = '); readln(Y); write('Nhap so Y = '); readln(Y); if X>Y then

begin Z:=X; X:=Y; Y:=Z; End;

writeln(X,’ ’,Y); readln

end

Cách 2:

Program hoan_doi; uses crt;

var X,Y,Z: real; begin

clrscr;

write('Nhap so X = '); readln(Y); write('Nhap so Y = '); readln(Y); if X<=Y then

begin

X:=X+Y; Y:=X-Y; X:=X-Y; End;

writeln(X,’ ’,Y); readln

end

Bài7

:

Vi

ế

t ch

ươ

ng trình nh

ậ

p s

ố

th

ự

c a,b,c t

ừ

bàn phím vào

máy tính,sau

đ

ó ki

ể

m tra s

ố

đ

ó có th

ể

c

ạ

nh c

ủ

a tam giác

đề

u,tam giác cân ho

ặ

c tam giác vuông hay không ghi k

ế

t

qu

ả

hình.

var A, B, C, X: integer; begin

clrscr;

write('Nhap so A: '); readln(A); write('Nhap so B: '); readln(B); write('Nhap so C: '); readln(C); if (A+B<C) or (B+C<A) or (A+C<B)

(4)

if (A*A=B*B+C*C) or (B*B=A*A+C*C) or (C*C=A*A+B*B) then writeln('Day la ba canh cua tam giac vuong') else if (A=B) and(B=C) and (A=C)

then writeln('Day la ba canh cua tam giac deu') else if (A=B) or (B=C) or (C=A)

then writeln('Day la ba canh cua tam giac can') else writeln('Day chi la ba canh cua tam giac thuong'); readln;

end

Bài8:

Vi

ế

t ch

ư

ong trình nh

ậ

p s

ố

t

ự

nhiên vào máy tính ghi

ra hình k

ế

t qu

ả

s

ố

đ

ã nh

ậ

p s

ố

ch

ẳ

n hay l

ẽ

.

Program chan_le; Uses crt;

Var n:real; Begin

Clrscr;

Write(‘nhap so n=’); readln(n);

If (n mod 2)= then write(‘n la so chan’) Else write(‘n la so le);

Readln; End

Bài 9

:

Tìm giá tr

ị

l

ớ

n nh

ấ

t s

ố

a,b,c,d(a,b,c,d

đượ

c nh

ậ

p

t

ừ

bàn phím)

Program Tim_so_lon_nhat; Uses crt;

Var a,b,c,d,max:real; Begin

Clrscr;

Writeln(‘Tim so lon nhat so a,b,c,d’); Write(‘nhap so a=’);readln(a);

Write(‘nhap so b=’);readln(b); Wtite(‘nhap so c=’);readln(c); Write(‘nhap so d=’);readln(d); Max:=a;

If b>max then max:=b; If c>max then max:=c; If d>max then max:=d;

Writeln(‘so lon nhat la’:,max:4:2); Readln;

End

Bài 10

:

V

iết chương trình giải phương trình tuyến tính:



ax



by



m





cx



dy



n

Program giai_he_hai_an; Uses crt;

(5)

begin clrscr;

Writeln(‘giai he hai an:’); Write('Nhap a=');readln(a); Write('Nhap b=');readln(b); Write('Nhap c=');readln(c); Write('Nhap m=');readln(m); Write('Nhap n=');readln(n); dd:=a*d-b*c;

dx:=m*d-b*n; dy:=a*n-c*m; if dd=0 then

if(dx=0) and(dy=0) then

writeln(‘he vo so nghiem hoac vo nghiem’) else

writeln(‘he vo nghiem’) else

Begin

Write(‘he co nghiem:’);

Writeln(‘x=’,dx/dd,’va y=’,dy/dd); End;

Readln; End

Bài 11:

Nhập vào tâm bán kính đường trịn.Sau nhập vào

một điểm A(x,y) kiểm tra xem có thuộc đường trịn hay

không?

Program KIEMTRADIEMTHUOCDUONGTRON; Uses crt;

Var x0,y0,xa,ya,d,r:real; Begin

Writeln(‘kiem tra diem thuoc duong tron:’); Write(‘nhap ban kinh r=’);readln(r);

Write(‘nhap toa tam duong tron=’);readln(x0,y0); Write(‘nhap toa diem A=’);readln(xa,ya);

d:=sqrt(sqr(xa-x0)+sqr(ya-y0)); if r=d then

writeln(‘diem A nam tren duong tron’) else

if d>r then writeln(‘diem A nam ngoai duong tron’) else writeln(‘diem A nam duong tron);

Readln; End

Bài 12:

Viết chương trình tính x

(với x,y số thực)

Uses crt;

Var x,y,z:real; Begin

(6)

Write(‘nhap x=’);readln(x); Write(‘nhap y=’);readln(y); If x>0 then

Begin

Z:=exp(y*ln(x)); Writeln(‘x^y=’,z); End;

Else

Writeln(‘khong tinh duoc vi x la so am’); Readln;

End

Bài 13:

Viết chương trình tính x

Uses crt;

Var I,n,x:integer; Lt:real;

Begin

Clrscr;

Writeln(‘tinh x luy thua n); Write(‘nhap x=’); readln(x); Write(‘nhap n=’); readln(n); Lt:=1;

For i:=1 to n Lt:=lt*x;

Writeln(x,’^’,n,’=’,lt:4:2); Readln;

End

Bài 14:

Vieát chương trình tính n!

Uses crt;

Var I,n,gt:integer; Begin

Clrscr;

Writeln(‘tinh n giai thua:’); Writeln(‘nhap n=’);readln(n); Gt:=1;

For i:=1 to n Gt:=gt*i;

Writeln(n,’!=’,gt); Readln;

End

Bài 15:

Viết chương trình nh

ập vào số nguyên dương x Hãy xác định số x có chia hết

cho hay không?

Program Chia_het_3; Uses crt;

(7)

Clrscr;

Write(‘nhap x=’); readln(x); If (x mod 3)= then

Writeln(‘x chia het cho 3:’)

Else writeln(‘x khong chia het cho 3:’); Readln;

End

Bài 16:

ập chiều dài,chiều rộng hình chữ nhật,bán kính hình trịn

So sánh diện tích hình chữ nhật hình trịn

.

Program so_sánh; Uses crt;

Var a,b,r,s1,s2:real; Const pi=3.14;

Begin

Clrscr;

Writeln(‘so sánh dien tich hcn & hinh tron’); Write(‘nhap chieu dai=’);readln(a);

Write(‘nhap chieu rong=’);readln(b);

Write(‘nhap ban kinh hinh tron=’); readln(r); S1:=a*b;

S2:=r*r*3.14;

If s1>s2 then writeln(‘dien tich hinh chu nhat lon hon hinh tron’)

Else writeln(‘dien tich hinh tron lon hon hinh chu nhat’); Readln;

End

Bài 17:

Viết chương trình tính

điểm trung bình học sinh ,dữ liệu nhập vào

ĐTBHKI,ĐTBHKII In hình ĐTBCN học sinh với

ĐTBCN=(ĐTBHKI+ĐTBHKII*2)/3,và xếp loại học lực biết:

+ ĐTBCN <5 ,xếp loại: Yếu.

+ 5=< ĐTBCN<6.5,xếp loại: Tbình.

+ 6.5=<ĐTBCN<8,xếp loại: Khá.

+ ĐTBCN>=8,xếp loại: Giỏi.

Uses crt;

Var ĐTBHKI,ĐTBHKII,ĐTBCN:real; Begin

Clrscr;

Write(‘nhap ĐTBHKI

=’); readln(ĐTBHKI);

Write(‘nhap ĐTBHKII=’); readln(ĐTBHKII); ĐTBCN:=(ĐTBHKI+ĐTBHKII*2)/3;

If ĐTBCN < then writeln(‘xep loai=’Yeu’);

If 5=<ĐTBCN<6.5 then writeln(‘xep loai=’Tbinh’); If 6.5=<ĐTBCN<8 then wrtieln(‘xep loai=’Kha’) Else writeln(‘xep loai=’Gioi’);

(8)

End

Bài 18:

ập vào bán kính r1 r2 đường tròn khoảng cách

giữa tâm đường tròn d(với r1,r2,d>0) Xác định vị trí tương đối đường trịn(cắt

nhau, tiếp xúc hay không cắt nhau)

Program bai18; Uses crt;

Var r1,r2,d:real; Begin

Clrscr;

Writeln(‘vi tri tuong doi giua duong tron’);

Write(‘nhap ban kinh duong tron 1,r1=’); readln(r1); Write(‘nhap ban kinh duong tron 2,r2=’); readln(r2);

Write(‘nhap khoang cach giua tam duong tron d=’); readln(d); If r1+r2=d then writeln(‘hai duong tron tiep xuc ngoai’);

If r1+r2>d then writeln(‘hai duong tron cat nhau’);

If r1+r2<d then writeln(‘hai duong tron khong cat nhau’); Readln;

End

Bài 19:

Viết chương trình nhập n số nguyên Đếm số vừa chia hết cho vừa

chia hết Xuất kết hình

Program bai19; Uses crt;

Var i,n,dem:integer; X;real;

Begin

Clrscr;

Write(‘nhap so luong so’); readln(n); Dem:=0;

For i:=1 to n Begin

Write(‘nhap so thu tu’,i);readln(x); If (x mod 2=0) and(x mod 3=0) then Dem:=dem+1;

End;

Writeln(‘so luong cac so chia het cho va la:’dem); Readln;

End

Bài 20:

Viết chương trình tính tích 10 số tự nhiên đầu tiên.

{ Dùng while do… }

Program tich; Uses crt; Const n=10;

Var i, tich:integer; Begin

(9)

while i<=n begin

tich:=tich*i; i:=i+1;

end;

writeln(‘tich cua 10 so tu nhien dau tien la=’,tich); readln;

End

{ Duøng For do… }

Var i,n:integer; Begin

Clrscr; Tich:=1;

For i:=1 to 10 begin

tich:=tich*i; i:=i+1;

end;

writeln(‘tich cua 10 so tu nhien dau tien la=’,tich); readln;

End

Bài 21:

Viết chương trình tính tổng 100 số tự nhiên đầu tiên.

{ Dùng while do… }

Program tong; Uses crt; Const n=100;

Var i, tong:integer; Begin

Clrscr; Tong:=0; i:=1;

while i<=n begin

tong:=tong+i; i:=i+1;

end;

writeln(‘tong cua 100 so tu nhien dau tien la=’,tong); readln;

End

{ Duøng For do… }

Var i,n:integer; Begin

(10)

Tong:=0;

For i:=1 to 100 begin

tong:=tong+i; i:=i+1;

End;

Writeln(‘tong cua 100 so tu nhien dau tien la=’,tong); Readln;

End

Câu 1:

Nêu cú pháp câu lệnh điều kiện dạng đầy đủ Pascal? Câu 2: Cho câu lệnh sau:

a) if (15 mod 2) = then X:= X + b) if X > then X:= X + 1;

Giá tri X giá trị X trước

Câu 3: Các câu lệnh Pascal sau viết hay sai?

a) if x:= then a = b; b) if x > 4; then a:= b; c) if x > then a:=b; m:=n;

(11)

d) if x > then a:=b; else m:=n;

Câu 4: Trong chương trình Turbo Pascal, tổ hợp phím Alt + F9 dùng để:

a/ Dịch chương trình c/ Lưu chương trình b/ Chạy chương trình d/ Khởi động chương trình

Câu 5: Trong chương trình Turbo Pascal từ khố dùng để khai báo tên chương trình là:

a/ uses b/ Begin c/ Program d/ End

Câu 6: Khởi động Turbo Pascal cách:

a) Nháy đúp chuột vào biểu tượng hình b) Nháy đúp chuột vào biểu tượng hình

c) Nháy đúp chuột vào tên tệp Turbo.exe thư mục chứa tệp d) Cà hai cách hai câu a c

Câu 7: Trong tên sau, tên hợp lệ ngôn ngữ Pascal:

a/ Dien tich; b/ Begin; c/ Tamthoi; d/ 5-Hoa-hong;

Câu 8: Những tên có ý nghĩa xác định từ trước khơng phép sử dụng cho mục đích khác gọi là:

a/ Tên có sẵn b/ Tên riêng c/ Từ khóa d/ Biến

Câu 9: Háy khoanh tròn đáp án Trong câu sau

a Cấu trúc lệnh lặp : for…to…do; b Cấu trúc lệnh lặp : for…to…do c Cấu trúc lệnh lặp : for…to…do d Cấu trúc lệnh lặp : do…to…for

Câu 10: Điền (đúng), (Sai) Sau câu sau

a Cấu trúc lệnh lặp : for ( giá trị đầu) to ( giá trị cuối) do; b Cấu trúc lệnh lặp : for ( giá trị cuối) to ( giá trị đầu) do;

c Cấu trúc lệnh lặp : do ( giá trị cuối) to ( giá trị đầu) for; d Cấu trúc lệnh lặp : do ( giá trị đầu) to ( giá trị cuối) for;

Câu 11: Các câu lệnh pascal sau có hợp lý không

a For i = to 100 do writeln(‘A’) b For i = 1.9 to 1 do writeln(‘A’) c For i = 10 to do writeln(‘A’) d For i = to 10.8 do writeln(‘A’)

Câu 12: Điền vào chỗ trỗng câu sau

a while…… câu lệnh lặp với số lần chưa biết trước pascal b Câu lệnh lặp While có dạng While< … > do<… >;

Câu 13: Chọn câu đúng:

A for i:= to 10; do x:= x + 1; B for i:= 10 to 1 do x:= x + 1; C for i:= to 10 do x:= x + 1;

D for i:= to 10 for j:= to 10 do x:= x + 1;

Câu 14: Trong câu lệnh lặp for i:=1 to 100 begin … end; câu lệnh ghép thực bao nhiêu lần ( hay vòng lặp thực hiện)?

a/ 100 lần b/ lần c/ Không lần d/ 99 lần

Câu 15: Cách khai báo biến mảng Pascal sau đúng?

A x: array1 100 of integer;

B y: array1 100 of integer;

C z: array1 n of real;

(12)

Câu 16: Dưới đọan chương trình Pascal: For i:= to 10 do

Begin ………… End;

Sau thực đọan chương trình trên, giá trị i là: A

B 10 C 11

D Không xác định

Câu 17: Hãy tìm hiểu đoạn chương trình sau đây:

x:= 0; tong:= 0;

While tong <=20 do Begin

Writeln (tong); Tong:= tong + 1;

End;

x:= tong;

Sau đọan chương trình thực hiện, giá trị x bao nhiêu? A 20

B 21

C Không xác định D

Câu 18: Trong câu lệnh lặp Pascal sau đây, câu đúng

A While i:= do t:=10;

B While x<=y ; do Writeln (‘y khong nho hon x’) ; C While 1 = 1; do Writeln (‘Dung’) ;

D While (n mod i<> 0) do i:= i+ ;

Câu 19: Để khai báo biến mảng kiểu số nguyên Pascal có dạng: Var <tên biến mảng>:array [<chỉ số đầu> <chỉ số cuối>] of integer; Trong đó:

A Chỉ số đầu = số cuối B Chỉ số đầu > số cuối C Chỉ số đầu < số cuối D Chỉ số đầu <> số cuối

Câu 20: Ghépmỗi ý cột A với ý cột B để khẳng định đúng.

Cột A Cột B Đáp án

1/ Câu lệnh lặp với số lần cho

trước Pascal a/ - ……

2/ Ta thay câu lệnh For …

do câu lệnh b/ While … do - ……

3/ c/ For … do - ……

Câu 21 Phát biểu sau ?

(13)

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ệnhfor…do Câu 22: 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í> downto <giá trị đầu> <câu lệnh> D For <biến đếm>: <giá trị cí> downto <giá trị đầu> <câu lệnh>

Câu 23: 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 24: Pascal sử dụng câu lệnh lặp sau để lặp với số lần chưa biết trước? a/ For…do; b/While…do; c/ If then; d/ If…then…else;

Câu 25 : Câu lệnh lặp while…do có dạng là: A While <điều kiện> <câu lệnh> do;

B While <câu lệnh> <câu lệnh> do; C While <điều kiện> <câu lệnh>; D While <điều kiện> <câu lệnh>;

Câu 26 : Em học vẽ hình với phần mềm nào?

a/ Pascal; b/ Geogebra; c/ Mario; d/ Finger Break out;

Câu 27: Chương trình pascal sau in hình nội dung gì?

Program vidu; Var i: integer; BEGIN

For i:=1 to 10

Writeln(‘Day la lan lap thu ‘,i); Readln;

END

A. câu “Day la lan lap thu i”;

B. câu “Day la lan lap thu ‘, i”;

C. 10 “Day la lan lap thu ‘, i”;

D. 10 câu Day la lan lap thu i” với i theo thứ tự từ 1->10; Câu 28: Xem ví dụ sau pascal:

Uses crt; Var i:integer; Begin

Clrscr; I:=1

while i<15 begin

Writeln(‘0’); i:=i+1

End; Readln; End

(14)

A 1; B 15;

C 115; D 14;

Câu 29: Hãy phát biểu khác biệt câu lệnh lặp với số lần biết trước câu lệnh lặp với số lần chưa biết trước?

Câu 30: Hãy lỗi câu lệnh sau viết lại cho đúng:

a) X:= 8; while x:=8 x:= x+3; b) X:= 8; while x = x = x+3;

c) S:= 0; n:= 1; while S <= n:= n+1; S:= S+n;

Câu 31. Để tìm giá trị lớn số a, b ta viết:

a) Max:=a;If b>Max then Max:=b;

b) If (a>b) then Max:=a;If (b>a) then Max:=b; c) Max:=b;If a>Max then Max:=a;

d) Cả câu

Câu 32. Biến a nhận giá trị ; -1 ; ; 2,3 Ta khai báo a thuộc kiểu dữ liệu nào?

a Integer b Char

c Real d Integer Longint

Câu 33 If Then Else là:

a Vòng lặp xác định b Vịng lặp khơng xác định c Câu lệnh điều kiện d Một khai báo

Câu 34. Kiểu liệu Integer có giá trị lớn là

a 32768 b 32767

c tỉ d -32768 +32767

Câu 35 a biến liệu kiểu số nguyên Muốn xuất giá trị a2 ta viết

a Writeln('a*a') b Readln(' a*a ') c Writeln(a*a) d Writwln(a2)

Câu 36 IF a>8 THEN b:=3 ELSE b:=5; Khi a nhận giá trị b nhận giá trị nào?

a b c d

Câu 37 Khi soạn thảo xong chương trình Pascal, ta muốn lưu chương trình lại ta nhấn phím:

a F9 b Ctrl + F9 c F2 d Ctrl + F2

Câu 38 Khi soạn thảo xong chương trình Pascal, ta muốn kiểm tra xem có lỗi khơng ta nhấn phím:

a F9 b F3 c F2 d F1

Câu 39. Khi chương trình Pascal hết lỗi, ta muốn chạy chương trình nhấn phím:

a F9 b Ctrl + F9 c F2 d Ctrl + F2

Câu 40 Viết biểu thức toán a3-b3 sang Pascal ta viết là:

a a3-b3 b a*a*a-b*b*b

c a.a.a-b.b.b d aaa-bbb

Câu 41: Để thực phép tính tổng hai số nguyên a b ta thực sau :

a Tong=a+b; b Tong:=a+b; c Tong:a+b; d Tong(a+b);

Câu 42: Câu lệnh điều kiện dạng đầy đủ là:

a If < đk > then < câu lệnh 1> Else <câu lệnh 2>; b If <đk > then < câu lệnh>;

(15)

d Cả a,b,c sai

Câu 43: Điền dấu x vào ô lựa chọn (1 điểm)

Nội dung Đúng Sai

a) Lệnh khai báo tên chương trình ngơn ngữ lập trình Pascal Begin

b) Chương trình máy tính dãy lệnh mà máy tính hiểu thực

c) Ngôn ngữ dùng để viết chương trình máy tính gọi ngơn ngữ lập trình

d) Cấu trúc chung chương trình bắt buộc phải có phần khai báo

Câu 44: Khoanh tròn vào chữ đứng trước đáp án câu sau:

Câu 1: Máy tính hiểu trực tiếp ngôn ngữ ngôn ngữ đây? A Ngôn ngữ tự nhiên B Ngôn ngữ lập trình

C Ngơn ngữ máy D Ngơn ngữ …

Câu 46: Trong ngơn ngữ lập trình Pascal, từ khơng phải từ khóa là:

A Uses B Program C End D Computer

Câu 47: Dãy kí tự 20n10 thuộc kiểu liệu

A String B Integer C Real D Char

Câu 48: Tên hợp lệ ngôn ngữ Pascal là:

A 16abc; B Hinh thang; C D15; D Program;

Câu 49: Từ khóa để khai báo biến ngơn ngữ lập trình Pascal là:

A Const B Var C Real D End

Câu 49: Để chạy chương trình Pascal ta nhấn tổ hợp phím

A Ctrl+F9 B Alt+F9 C Shitf+F9 D Ctrl+Shift+F9

Câu 50: Cấu trúc chung hợp lý chương trình Pascal là:

A Begin -> Program -> End B Program -> End -> Begin

C End -> Program -> Begin D Program -> Begin -> End

Câu 51: Phần nguyên phép chia hai số nguyên 16 là:

A 16 div = B 16 mod = C 16 div = D 16 mod =

Câu 52: A khai báo biến với kiểu liệu số nguyên, X biến với kiểu liệu xâu Phép gán hợp lệ là:

A A:= 4.5; B X:= ‘1234’; C X:= 57; D A:= ‘LamDong’;

Câu 53: Trong Pascal khai báo sau đúng:

A Var hs : real; B Var 5hs : real; C Const hs : real; D Var S = 24;

Câu 54. Cho câu lệnh sau hay câu lệnh đúng:

a for i:=1 to 10; x:=x+1 c for i:=1 to 10 x:=x+1

b for i:=10 to x:=x+1 d for i:= to 10 for j:=1 to 10 x:=x+1

Câu 55.Cho đoạn chương trình sau:

x:=0; tong:=0;

while tong<=20 do

begin

writeln(tong); tong:=tong+1; end;

x:=tong;

(16)

Câu 56. Cấu trúc câu lệnh rẽ nhánh IF – THEN (dạng đủ) là:

A) If <điều kiện> then <câu lệnh1> else <câu lệnh 2>; B) If <điều kiện> then <câu lệnh1>;

C) If <câu lệnh 1> then <điều kiện> else <câu lệnh 2>; D) If <câu lệnh> then <điều kiện>;

Câu 57. Biểu thức dùng làm điều kiện câu lệnh rẽ nhánh (IF . THEN )

a 2*x+m b m>n c sqr(m) d x:=m

Câu 58. Lệnh viết câu lệnh gán :

a x : = 15; b x := 15 c x = 15 d x : 15

Câu 59. Chương trình sau cho kết gi ?

Program vd;

Var a, b,: real; x,: integer ; Begin readln(a, b);

If a>b then x:=a else x:=b; Write(x);

End

a xuất hình số nhỏ số a, b nhập b xuất hình số lớn số a, b nhập

c chương trình khơng thực lỗi khai báo kiểu liệu d đảo giá trị biến a, b cho

Câu 60. Ví dụ không diễn tả hoạt động lặp lặp lại sống?

a Hàng ngày em đặt đồng hồ báo thức lúc để dậy sớm tập thể dục

b Mỗi lần khởi động máy tính em thực hoạt động kiểm tra thành phần

của máy tính,sau khởi động hệ điều hành theo trình tự quy định trước

c ngày học lần

d Làm thơ

Câu 61: Cho S i biến nguyên Khi chạy đoạn chương trình :

s:=0;

for i:=1 to 10 s := s+i; writeln(s);

Kết in lên hình :

a s = 11 b s = 55 c s = 101 d s = 100

Câu 62: Cho S i biến nguyên Khi chạy đoạn chương trình :

s:=0;

for i:=1 to s := s+2*i; writeln(s);

(17)

a s = 72 b s = 100 c s = 101 d s = 55

Câu 63: Cho S i biến nguyên Khi chạy đoạn chương trình :

s:=1;

for i:=1 to s := s *i; writeln(s);

Kết in lên hình :

a s = 72 b s = 101 c s = 55 d s = 120

Câu 64: Các 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:=1 to 10 writeln(‘A’);

Câu 65: Sau thực đoạn chương trình sau, giá trị biến k bao nhiêu?

k: = 0;

For i:= to k:= k + 2;

A/ k = B/ k = C/ k = D/ k =

Câu 66 : Hãy cho biết số lần lặp câu lệnh for sau đây: “for i:=1 to … ”

A/ lần B/ lần C/ lần D/ lần

Câu 67 : Tìm câu lệnh hợp lệ câu lệnh sau:

A/ for i:= 10 to Writeln(‘O’); B/ for i:= 1.5 to 5.6 Writeln(‘O’); C/ for i:= to 10 Writeln(‘O’); D/ for i:= to 10 do; Writeln(‘O’);

Câu 68 : Câu lệnh Gotoxy(5,7) có tác dụng:

A/ đưa trỏ chuột hàng 5, cột7

B/ đưa trỏ chuột vị trí cột hàng C/ đưa trỏ chuột cột hàng D/ đưa trỏ chuột cột 5, hàng

Câu 69: Từ sau không phải từ khoá?

a) SQRT b) Begin

c) Var d) Program

Câu 70: Từ sau không phải tên chuẩn?

a) ABS b) SQR

c) Program d)Byte

Câu 71: Câu lệnh sau khai báo hằng:

a) Const n = 20; b) Const n : 20;

c) Const n := 20; d) Const n 20;

Câu 72: Tên sau người lập trình đặt:

a) Var b) Real

c) End d) n

Câu 73: Khai báo sau đúng:

a) Program V D; b) Program Vi_du;

c) Program VD d) Program: V_D;

Câu 74: Câu lệnh sau câu lệnh gán?

a) x = b) x:

c) x and d) x:= x +5;

(18)

a) Writeln(‘Nhập x = ’); b) Write(x);

c) Writeln(x); d) Readln(x);

Câu 76: Câu lệnh sau dùng để in giá trị lưu biến x hình?

a) Writeln(x); b) Write(x);

c) Write(x: 3); d) Cả A, B, C

Câu 77: Hãy đọc đoạn chương trình sau:

s:=0;

for i:= to s:= s + i;

Sau thực xong, kết s bằng:

a) 15 b) c) d) Kết khác

s:=1;

for i:= to s:= s * i;

a) b) 120 c) d) Kết khác

if (a+b)*(a+b) <=100 then s:=(a+b)*(a+b) else s:= 2*a*b; Khi nhập a = 5, b = kết s bằng:

a) 121 b) 49 c) 60 d) Kết khác

if (a+b)*(a+b) <=100 then s:=(a+b)*(a+b) else s:= 2*a*b; Khi nhập a = 5, b = kết s bằng:

a) 121 b) 49 c) 20 d)Kết khác

s:=0;

for i:= to s:= s * i;

a) b) 15

c) 120 d) Kết khác

if (a >= b then s:=(a+b)*sqrt(a - b) else s:= a*b; Khi nhập a = 5, b = kết s bằng:

a) b) 12

if (a >= b then s:=(a+b)*sqrt(a - b) else s:= a*b; Khi nhập a = 1, b = kết s bằng:

a) 12 b)- 24

c) d) Kết khác

Câu 84: Hãy đọc đoạn chương trình sau:

(19)

a) b)

c) d) Kết khác

Câu 85: Cho đoạn chương trình sau:

n:=5; i:=1;s:= 0; While (i < = n)

begin s:=s+i; i:=i+1; end;

Sau thực xong đoạn chương trình ta kết là:

a) b)

Câu 86 : Trong biểu diễn sau đây, biểu diễn Pascal:

a) 5.5 b) ‘HOA’ c) V5 d) ‘55’

Câu 87: Câu sau nói biến: a) Biến đại lượng người lập trình đặt

b) Biến có giá trị khơng đổi suốt q trình thực chương trình c) Có số biến có sẵn chương trình, khơng cần khai báo d) Tên biến có độ dài tùy ý

Câu 88: Chương trình dịch dùng để làm gì?

a) Để chuyển chương trình từ ngơn ngữ máy sang ngơn ngữ bậc cao b) Để chuyển chương trình từ ngơn ngữ bậc cao sang hợp ngữ

c) Để chuyển chương trình từ ngôn ngữ bậc cao sang ngôn ngữ máy

d) Để chuyển chương trình từ ngơn ngữ máy sang hợp ngữ

Câu 89: Biểu thức

y2− y1¿2

x2− x1¿2+¿ ¿ √¿

toán học biểu diễn Pascal là:

a) sqr(x2-x1)*(x2-x1)+(y2-y1)*(y2-y1) b) sqr((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1))

c) sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)) d) sqrt[(x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)]

Câu 90: Cú pháp câu lệnh gán Pascal là:

a) Var <tên biến>: <kiểu liệu>; b) <tên biến> := <giá trị>;

c) const <tên hằng> = <giá trị>; d) uses <tên thư viện>;

Câu 91: Trong Pascal, muốn dịch chương trình ta dùng tổ hợp phím sau đây:

a) Alt + F9 b) Ctrl + F9 c) Alt + F3 d) Ctrl + S

Câu 92: Số biến khai báo tối đa chương trình ?

A Chỉ biến cho kiểu liệu B 10 biến

C Chỉ hạn chế dung lượng nhớ D Không giới hạn

Câu 93: Khi ta khai báo biến :

A Máy tính dành riêng phần nhớ để lưu trữ giá trị biến suốt trình hoạt động chương trình

B Máy tự động in tên biến

C Biến phải sử dụng chương trình D Khơng sử dụng biến chương chình

Câu 94: Biến khai báo với kiểu liệu số thực lưu giá trị giá trị dưới :

A Một số nguyên

(20)

C Một số thực D Một dãy chữ số

Câu 95: Chọn câu lệnh Pascal hợp lệ câu sau :

A If x : = a + b then x : = x + 1; B If a > b then max = a;

C If a > b then max : = a ; else max : = b; D If = then x : = 100;

Câu 96: Gán giá trị X Sau cho máy thực câu lệnh If X mod = then X := X + 1;

thì giá trị X ?

A B

C D

Câu 97: Trong câu lệnh lặp :

For i : = to 10 begin … end ;

câu lệnh ghép thực lần ? (nói cách khác, vịng lặp thực ?)

A Không lần B lần

C lần D 10 lần

Câu 98: Dưới đoạn chương trình Pascal : For i : = to 10 do

Begin ……. End

Sau thực đoạn chương trình trên, giá trị i :

A B 10

C 11 D Không xác định

Câu 99: Sau thực đoạn chương trình Pascal : For i : = to m do

Begin y : = x x : = y - 1

End.

chúng ta nhận kết ?

A x = x – m ; B x = i – m;

C x : = x – i ; D i = x = y – 1;

Câu 100: Đoạn lệnh sau :

So : = 1;

While So < 10 writeln(So); So : = So + 1

sẽ cho kết ? A In số từ đến 9; B In số từ đến 10;

C In vô hạn số 1, số viết dòng; D Không phương án

Câu 101: Hãy tìm hiểu đoạn chương trình sau :

(21)

Begin Writeln(tong); Tong : = tong + 1;

End; X : = tong;

Sau đoạn chương trình thực hiện, giá trị x ?

A 20 B 21