BAI TAP PASCAL TIN 8 RAT CO ICH

d/ Khởi động chương trình Câu 5 : Trong chương trình Turbo Pascal từ khoá dùng để khai báo tên chương trình là: a/ uses.. Cấu trúc lặp được sử dụng để chỉ thị cho máy tính thực hiện lặp

Bài 1: Nhập vào 2 cạnh của một hình chữ nhật In ra màn hình diện tích và chu vi của nó.

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);

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);

Write(‘nhap a=’); Readln(a);

Writeln(‘chu vi tam giac:’,2*p);

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

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

Write(‘nhap a=’); Readln(a);

Writeln(‘giai bat Phuong trinh bac nhat’);

Write(‘nhap a=’); Readln(a);

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

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

End

B

à i 6: Viết chương trình nhập sử dụng 2 biến X và Y để lưu 2 số nhập

từ bàn phím,sau đó hoán đổi giá trị của 2 biến cho nhau(x, y có giá trị tăng dần)

write('Nhap so B: '); readln(B);

write('Nhap so C: '); readln(C);

if (A+B<C) or (B+C<A) or (A+C<B)

then writeln('Day khong la ba canh cua mot tam giac') else

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');

If (n mod 2)= 0 then write(‘n la so chan’)

Else write(‘n la so le);

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: Viết chương trình giải phương trình tuyến tính:

ax + by = m

 cx + dy = nProgram giai_he_hai_an;

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

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

writeln(‘he vo nghiem’)else

Writeln(‘kiem tra diem thuoc duong tron:’);

Write(‘nhap ban kinh r=’);readln(r);

Write(‘nhap toa do tam duong tron=’);readln(x0,y0);

Write(‘nhap toa do diem A=’);readln(xa,ya);

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);

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

Begin

Clrscr;

Write(‘nhap ĐTBHKII=’); readln(ĐTBHKII);

ĐTBCN:=(ĐTBHKI+ĐTBHKII*2)/3;

If ĐTBCN < 5 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’);

Readln;

End

Bài 18: Vieát chöông trình nhập vào bán kính r1 và r2 của 2 đường tròn và khoảng cách giữa 2 tâm đường tròn là d(với r1,r2,d>0) Xác định vị trí tương đối giữa 2 đường tròn(cắt nhau, tiếp xúc nhau hay không cắt nhau)

Writeln(‘vi tri tuong doi giua 2 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 2 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’);

Write(‘nhap so thu tu’,i);readln(x);

If (x mod 2=0) and(x mod 3=0) thenDem:=dem+1;

End;

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

Câu 1:

Nêu cú pháp của câu lệnh điều kiện dạng đầy đủ trong Pascal?

Câu 2:Cho các câu lệnh sau:

a) if (15 mod 2) = 0 then X:= X + 1

b) if X > 5 then X:= X + 1;

Giá tri của X là bao nhiêu nếu giá trị của X trước đó là 2

Câu 3 : Các câu lệnh Pascal sau đây được viết đúng hay sai?

a) if x:= 5 then a = b;

b) if x > 4; then a:= b;

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

d) if x > 4 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ừ khoá 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 bằng cách:

a) Nháy đúp chuột vào biểu tượng trên màn hình nền

b) Nháy đúp chuột vào biểu tượng trên màn hình nền

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

d) Cà hai cách ở hai câu a và c

Câu 7 : Trong các tên sau, tên nào là hợp lệ trong 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 được xác định từ trước và không được phép sử dụng cho mục đích

khác đượ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 những đáp án đúng Trong những câu sau

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

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

c Cấu trúc lệnh lặp là : for…to…do

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

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

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

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

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

d Cấu trúc lệnh lặp là : 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 = 1 to 100 do writeln(‘A’)

b For i = 1.9 to 1 do writeln(‘A’)

c For i = 10 to 1 do writeln(‘A’)

d For i = 1 to 10.8 do writeln(‘A’)

Câu 12: Điền vào những chỗ trỗng trong mỗi câu sau.

a while…… là câu lệnh lặp với số lần chưa biết trước trong pascal

b Câu lệnh lặp While do có dạng While< … > do<… >;

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

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

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

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

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

Câu 14: Trong câu lệnh lặp for i:=1 to 100 do begin … end; câu lệnh ghép được thực hiện bao

nhiêu lần ( hay bao nhiêu vòng lặp được thực hiện)?

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+ 1 ;

Câu 19: Để khai báo biến mảng kiểu số nguyên trong Pascal có dạng:

Var <tên biến mảng>:array [<chỉ số đầu> <chỉ số cuối>] of integer;

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

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

Câu 21Phát biểu nào sau đây là đúng ?

A Cấu trúc lặp được sử dụng để chỉ thị cho máy tính thực hiện lặp lại một vài hoạt động nào đó cho đến khi một điều kiện nào đó được thoả mãn

B Chỉ ngôn ngữ lập trình Pascal mới có các câu lệnh lặp để thể hiện cấu trúc lặp

C 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 for…do

Câu 22 : Lệnh lặp nào sau đây là đúng?

A For <biến đếm>= <giá trị đầu> to <giá trị cuôí> do <câu lệnh>

B For <biến đếm>:= <giá trị đầu> to <giá trị cuôí> do <câu lệnh>

C For <biến đếm>:= <giá trị cuôí> downto <giá trị đầu> do <câu lệnh>

D For <biến đếm>: <giá trị cuôí> downto <giá trị đầu> do <câu lệnh>

Câu 23 : Câu lệnh pascal nào sau đây là hợp lệ?

A For i:=100 to 1 do writeln(‘A’);

B For i:=1.5 to 10.5 do writeln(‘A’);

C For i= 1 to 10 do writeln(‘A’);

D For i:= 1 to 10 do writeln(‘A’);

Câu 24 : Pascal sử dụng câu lệnh lặp nào sau đây để 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 đú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 do <điều kiện> <câu lệnh>;

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

Câu 26 : Em được 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 sẽ in ra màn hình nội dung gì?

Program vidu;

Var i: integer;

BEGIN

For i:=1 to 10 do

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

Readln;

END

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

B 1 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 trong pascal:

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

lần chưa biết trước?

Câu 30 : Hãy chỉ ra lỗi trong các câu lệnh sau và viết lại cho đúng:

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

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

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

Câu 31 Để tìm giá trị lớn nhất của 2 số a, b thì 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ả 3 câu đều đúng

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

a Integer b Char

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 dữ liệu Integer có giá trị lớn nhất là

Câu 35 a là biến dữ liệu kiểu số nguyên Muốn xuất giá trị của a thì ta viết

a Writeln('a*a') b Readln(' a*a ')

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>;

c If <đk> then < câu lệnh 1>,<câu lệnh 2>;

d Cả a,b,c đều sai

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

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

Begin

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

hiểu và thực hiện được

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

ngôn ngữ lập trình

d) Cấu trúc chung của 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ữ cái đứng trước đáp án đúng trong các câu sau:

Câu 1: Máy tính có thể hiểu trực tiếp ngôn ngữ nào trong các ngôn ngữ dưới đây?

A Ngôn ngữ tự nhiên B Ngôn ngữ lập trình

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

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

Câu 48 : Tên hợp lệ trong 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 trong ngôn ngữ lập trình Pascal là:

Câu 49: Để chạy một 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ý của một 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 trong phép chia của hai số nguyên 16 và 5 là:

A 16 div 5 = 1 B 16 mod 5 = 1 C 16 div 5 = 3 D 16 mod 5 = 3

Câu 52 : A được khai báo là biến với kiểu dữ liệu số nguyên, X là biến với kiểu dữ 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 nào sau đây là đúng:

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

Câu 54 Cho các câu lệnh sau hay chỉ ra câu lệnh đúng:

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

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

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

Câu 56 Cấu trúc của 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 nào dưới đây có thể dùng làm điều kiện trong câu lệnh rẽ nhánh (IF .

If a>b then x:=a else x:=b;

Write(x);

End

a xuất ra màn hình số nhỏ nhất trong 2 số a, b đã nhập

b xuất ra màn hình số lớn nhất trong 2 số a, b đã nhập

c chương trình không thực hiện được do lỗi khai báo kiểu dữ liệu

d đảo giá trị của 2 biến a, b cho nhau

Câu 60 Ví dụ nào dưới đây không diễn tả những hoạt động được lặp đi lặp lại trong cuộc

sống?

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

b Mỗi lần khởi động máy tính của em sẽ thực hiện cùng các hoạt động kiểm tra các thành phần củamáy tính,sau đó khởi động hệ điều hành theo 1 trình tự đã được quy định trước

Câu 64Các câu lệnh Pascal nào sau hợp lệ :

a) for i:=100 to 1 do writeln(‘A’)

b) for i:= 1.5 to 10.5 do writeln(‘A’)

c) for i:= 1 to 10 do writeln(‘A’)

d) for i:=1 to 10 do writeln(‘A’);

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

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

A/ for i:= 10 to 1 do Writeln(‘O’);

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

C/ for i:= 1 to 10 do Writeln(‘O’);

D/ for i:= 1 to 10 do; Writeln(‘O’);

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

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

B/ đưa con trỏ chuột về vị trí cột 5 của hàng hiện tại

C/ đưa con trỏ chuột về cột 7 của hàng hiện tại

D/ đưa con trỏ chuột về cột 5, hàng 7

Câu 69 : Từ nào sau đây không phải từ khoá?

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

a) Program V D; b) Program Vi_du;

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

if (a+b)*(a+b) <=100 then s:=(a+b)*(a+b)

else s:= 2*a*b;

Khi nhập a = 5, b = 6 thì kết quả s bằng:

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

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

if (a+b)*(a+b) <=100 then s:=(a+b)*(a+b)

Câu 87 : Câu nào sau đây đúng khi nói về biến:

a) Biến là đại lượng do người lập trình đặt

b) Biến có giá trị không đổi trong suốt quá trình thực hiện chương trình

c) Có một số biến có sẵn trong 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 (x2 −x1 ) 2 + (y2 −y1 ) 2 trong toán học được biểu diễn trong 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ủa câu lệnh gán trong Pascal là:

a) Var <tên biến>: <kiểu dữ 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 nào sau đây:

Câu 92:Số biến có thể khai báo tối đa trong một chương trình là bao nhiêu ?

A Chỉ một biến cho mỗi kiểu dữ liệu B 10 biến

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

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

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

B Máy tự động in ra tên của biến

C Biến đó phải được sử dụng trong chương trình

D Không được sử dụng biến đó trong chương chình

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ị

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

For i : = 1 to 10 do begin … end ;

câu lệnh ghép được thực hiện bao nhiêu lần ? (nói cách khác, bao nhiêu vòng lặp được thực hiện ?)

Câu 98:Dưới đây là một đoạn chương trình Pascal :