Bài ôn tập ngôn ngữ lập trình Pascal

Viết mệnh đề gán Pascal cho các trường hợp sau để tính trị của biểu thức và gán trị cho biến tương ứng.. Giả định tất cả các biến thuộc kiểu real, trừ trường hợp có ghi rõ.[r]

BÀI ÔN

PHẦN CƠ SỞ.

I PHẦN LÝ THUYẾT

1 Các danh  pascal nào $% &'( là ) ! ?

2 Cho >?= @< nào $% &'( là nguyên, =C #D không G <(A:=C6

3 Các @< V nào $% &'( ) ! ?

 ‘isnt’ ‘t’  ‘constant’  ‘S1.98’  ‘DON’T’  ‘12+34’

 ’’’twas’  ‘A’‘B’‘C’

4 Hãy Q?= các &#[ >? &\ khai báo >?6

a Item, Number và Job E\ real

b ShoeSize E\ integer

c Mileage E\ real, Cost và Distance E\ integer

d Alpha và Beta E\ integer, Code E\ char,

e Root E\ real, và RootExists E\ boolean

5 Hãy Q?= các &#[ @< &D= tên cho các @< Q% tên =$^< _<6

a 1.25 Q% tên Coefficient

b 40.0 Q% tên RegHours và 1.5 Q% tên OvertimeFactor

c 1776 Q% tên Year, ‘F’ Q% Female và ký =C =,c< Q% Blank

d True Q% tên Exists, 0 Q% Zero, * Q% Asterisk, e nháy &^ Q% Apostrophe và V CPSC151A Q% Course

6 Tìm =,g các >\ =_ sau và <G thích =[ sao >\ =_ không ) !6

a 9-5-3

b 2 div 3+3/5

c 9 div 2/5

d 9/2 div 5

e 2.0/4

f (2+3) mod 2

g 7 mod 5 mod 3

h (7 mod 5) mod 3

i 7 mod (5 mod 3)

j (7 mod 5 mod 3)

k 25*1/2

l 25*1 div 2

m 25*(1 div 2)

n -3.0*5.0

o 5.0*-3.0

p 12/2*3

q ((12+3) div 2)/(8-(5+1))

r ((1`2+3) div 2)/(8-5+1)

s (12+3 div 2)/(8-5+1)

t sqrt(sqr(4))

u sqrt(sqr(-4))

v sqr(sqrt(4))

w sqr(sqrt(-4))

x trunc(8/5)+round(8/5)

7 ? R1 và R2 E\ Real, I1 I2 I3 E\ integer và R1=2.0, R2=3.0, I1=4, I2=5, I3=8, tìm =,g

m6

a R1 + R2 + R2

b I3 div 3

c I3/3

d (R1+R2) * I1

e I3 div I2 * 5.1

f Sqr(I1) / sqr(R1)

g Sqr(I2) / sqr(R1)

h Sqrt(R1 + R2 + I1)

8 n?= >\ =_ Pascal &\ tính:

a 10 + 5B - 4AC

b Ba !o m  4-n chia cho 2 !o m2+n2

c. p >q hai m a+3b2

d p >q hai m trung bình r< m m và n

e |A / (m+n)| ( |x| là =,g =(= &t m x)

f $)< =C Amount làm tròn &? o =,p0 <o e=

9

E\ boolean Hãy xác &g 0 &v gán Pascal nào $% &'( ) ! ? không ) ! hãy

<G thích =[ sao

a xValue := 2.71828

b 3 := Number

c Grade := ’B+’

d Number := Number+1

e xValue := 1

f Greade := A

g Number+1 := Number

h Xvalue := ’1’

i Found := Grade

j yValue := yValue

k xValue := A

l Grade := Grade+10

m Found := ’True’

n xValue := Number

o Number := yValue

10 R1, R2, R3 và xCoord là các >? =C Q% R1 =0, R2 =3.0, R3 =4.0; I1, I2 và I3 là các >? nguyên Q% I1 =8, I2 =5; Numeral và Symbol là các >? ký =C Q% Numeral =’2’ Hãy cho

>?= =,g gán cho các >? trong các =,$x< ) sau #D cho >?= lý do 0 &v không ) !6

a xCoord := (R1+R2) * R2

b xCoord := R2+R1/R3) * 2

c xCoord := I1 / I2+5

d I3 := I1 div I2 + 5

e xCoord := sqr(I2) / sqr(I1)

f I3 := sqr(I2) / sqr(I1)

g Symbol := 4

h Symbol := Numeral

i Symbol := ’4’

j Symbol := R3

k R1 := 2

l R1 := ’2’

m R1 := Numeral

n I1 := I1 + 2

o I3 := 1 + Numeral

p I3 := round(sqr(I1 mod I2)/R3)

11.n?= ! gán thay &y =,g m >? nguyên Number Q% các =,$x< ) sau:

a

b

c

d r< ký t C G m Number vào Number

e

12.n?= 0 &v gán Pascal cho các =,$x< ) sau &\ tính =,g m >\ =_ và gán =,g cho >?

a Distance >@< Rate !o Time

b X &$) =p< lên 0r= !$)< DeltaX

c Resistance >@<:S: + 1/R2 + 1/R3)

d TArea là  tích hình tam giác có [ &( là b, v cao là h

e Price >@< ba ký t t cùng m t nguyên StockNumber Q% e e0 =q phân ~

=,$% hai ký t t (ví  ? StockNumber là 1758316 thì Price &$) gán =,g 3.16)

f Tax &$) làm tròn =% =,g nguyên <o e=

13.n% 0V =,$x< ) $% &'(B hãy xác &g =,g m các >? nguyên a, b và c sao cho hai >\

=_ có =,g khác nhau:

a A * (b div c) và a * b div c

b a div b và a * (1/b)

c (a + b) div c và a div c + b div c

14

Hãy cho >?= chính xác E?= Re= trong các =,$x< ) sau và <G thích =[ sao >g !V S? có):

a writeln(Rho); writeln(Rho+1); writeln(Rho+2);

b write(Rho); write(Rho+1); writeln(Rho+2);

c write(‘Alpha=’); write(Alpha:9:3); write(‘Beta=’:7); writeln(Beta:7:4);

d writeln(Rho:5, 2*Rho:5); writeln ;writeln(Beta:10:5);

e writeln(Alpha:8:1,Rho:5); writeln(‘Tolerance:’ Beta:8:5);

f writeln(‘Alpha=’,Alpha:12:5); writeln(‘Beta=’,Beta:6:2,’:4,’Rho=’,Rho:6);

writeln(Alpha+4.0+Rho:15:3);

g write (‘Tolerance =’ :8 ) ; writeln (Beta : 5 : 3 ) ; writeln ; writeln;

writeln (Rho : 2 , Alpha : 4 : 2) ;

h writeln ( 10 * Alpha : 8 : 1 , trunc (10 * Alpha) : 8 , round ( 10 * Alpha ) :8 ) ;

writeln ( sqr ( Rho div 100 ) : 5 , sqrt ( Rho div 100 ) : 5 ) ;

i writeln ( ‘ Rho =’ : 7 , Rho : 8 : 2 ) ;writeln ( ‘ * * * * * ‘ ) ;

j write (Alpha : 10 ) ; write ; writeln ( Beta : 10 );

15

và Y là >? =C Q% X = 2559.50 và Y = 8.015 Hãy cho >?= chính xác E?= Re= trong các

=,$x< ) sau :

a writeln( ‘ Newbalance = ‘ : I , X : J : 2 ) ; writeln( C : I mod 10 , Y : J : J – 6 ) ;

b write( ‘ I = ‘ , I ) ; write( I : I ) ; writeln( ‘ J = ‘ : J , J : J ) ;writeln ; writeln( I : J , J : I ) ;

writeln( trunc ( X / J ) : J , J – Y : I : J , D : J div 7 ) 16

7173 và –0.00247 , C là >? ký =C có giá =,g là ‘F’ Hãy Q?= ! &\ &$) các E?= Re= trong

=z< =,$x< ) sau :

a 56.7173 F 39

-5117PDQ-0.00247

b 56.717 _-0.0025 * * * 39 F

_56.72 _39-5117

c ROOTS_ARE 56.717_AND_-0.00247

d APPROXIMATE_ANGLES: 56.7_AND _-0.0

MAGNITUDES_ARE _39 _AND 5117

17

>? nào và <G thích lí do sai S? có) khi =C  các ! sau Q% =,g q =$^< _< :

a readln (A, B, C, X, Y, Z ) ; q6 1 2 3

3 4 5 6

read (X, Y) ;

readln (Z);

readln (X, Y);

read (Z);

readln (Y);

readln ;

readln (Z);

II PHẦN THỰC HÀNH

Gõ vào máy và

{ = = = = = = = = = = = = = = = = = = = = = = = = = = = }

{ Notes : hien thi hang chuoi , nguyen va thuc }

{ = = = = = = = = = = = = = = = = = = = = = = = = = = = }

Begin

writeln( ‘ Day la chuong trinh dau tien cua toi ‘) ;

writeln ;

writeln( ‘ Day la mot chuoi ‘ );

writeln( ‘ Day la mot so nguyen : ‘ , 12345);

writeln( ‘ Day la mot so thuc ( dang dong ) : ‘ ,123.45 );

writeln( ‘ Day la mot so thuc ( dang tinh ) : ‘ ,123.45:7:3);

writeln ;

write( ‘ xem xong bam Enter ; ) ; readln ;

End

Hướng dẫn (Trong môi trường Windows)

1 Kích #[= $^< trình Windows Explorer &\ =[# 0r= folder ˆ dùng !$ =,‰ các file

$^< trình m Pascal (Ví 6 C:\BT_PAS)

2 Kích

3 Thông qua menu [Options] -> [Directories] xác !q giá =,g C:\BT_PAS cho 0 [EXE and TPU directories] -> [OK]

4 Thông qua menu [File]-> [Change Dir] Ž =$ 0 làm Q 0% là C:\BT_PAS

5 Thông qua menu [Options] -> [SAVE BP.TP] &\ !$ ![ các xác !q trên

6 4~ € y #[ =G# 0% ([File]-> [New])

7 Gõ $^< trình Q% r dung trên vào € y #[ =G# Gõ xong e F2 S&\ !$ lên & Q% tên BT1_1.PAS)

8 e phím F9 &\ biên g $^< trình trên ? có !V thì € !V S% e F2 &\ Save

g thành công

9 e Ctrl_F9 S<‰ phím Ctrl và e F9) &\ [( $^< trình

Gõ vào máy và

Program BT1_2;

(*

Date :dd/mm/yyyy

Notes : Nhap so nguyen va chuoi roi xuat ra man hinh

*)

Uses crt; (* Thu vien CRT chua thu tuc CLRSCR xoa man hinh *)

Var I: integer;

S: string[20]; (* khai bao chuoi s co chieu dai 20 *)

Begin

Clrscr;

Write(‘Hay go vao mot so nguyen’); Readln(i);

Writeln(‘so cua ban la’,i);

Write(;’Hay go vao mot chuoi:’); Readln(s);

Write(‘chuoi cua ban la’,s); Writeln;

Write(‘xem xong bam Enter’):readln;

End

Gõ vào máy và

Program: BT1_3;

(*

Date :dd/mm/yyyy

Notes : Nhap 2 so thuc , cong, tru, nhan, chia 2 so roi hien thi ( so thu hai khac 0)

*)

Uses crt;

Var so1, so2, cong, tru, nhan , chia:real;

Begin

Clrscr;

Write(‘cho so thu nhat :’); readln(so1);

Write(‘cho so thu hai :’); readln(so2);

Cong:=so1+so2; Tru:=so1-so2; Nhan:=so1*so2; Chia:=so1/so2;

Writeln;

Writeln(‘so1+so2=’,cong);

Writeln(‘so1-so2=’,tru);

Writeln(‘so1*so2=’,nhan);

Writeln(‘so1/so2=’,chia);

Writeln;

Writeln(‘so1+so2=’,cong:10:3);

Writeln(‘so1-so2=’,tru:10:3);

Writeln(‘so*so2=’,nhan:10:3);

Writeln(‘so1/so2=’,chia:10:3);

Writeln;

Write(‘Nhan xet va xem xong bam Enter’); readln;

End

Gõ vào máy và     trình BT1_4.pas sau

Program:BT_4;

(*

Date:dd/mm/yyyy

Notes:hien thi 3 hinh tam giac

*)

uses crt;

Begin

clrscr;

write(‘ * * * * * * * * * ’);

write(‘ * * * * * * * * * * * ‘ );

write(‘ * * * * * * * * * * * * * ‘);

write(‘ * * * * * * * * * * * * * * *’);

write(‘xem xong bam enter’);readln;

End

'(  trình BT_5 PAS tính + tích hình ch, - khi /( chi0u dài và chi0u 12 ( 3 4 trên màn hình có +7g:

= = = = = = = = = = = = = = = = == = =

TINH DIEN TICH HINH CHU NHAT

= = = = = = == = == = = = = = = = = =

Xin cho biet chieu dai : xxxx

Xin cho biet chieu rong : xxxx

Dien tich la : xxxxxxxx

Hướng dẫn.

q6 Dai ,Rong

+e= : Dien tich

Giải thuật

1 Nhap Dai va Rong

2 Tính Dien tich = Dai * Rong

3 +e= Dien Tich

Vi (t  trình BT_6.PAS tính + tích và chu vi hình tròn khi /( bán kính, ( 3 4 trên màn hình có +7

= = = = = = = = = = = = = = = = = = = = = = =

TINH DIEN TICH & CHU VI HINH TRON

= = = = = = = = = = = = = = = = = = = = = = =

Xin cho biet ban kinh:xxx.x

Chu vi :xxxxxx.x

Dien tich :xxxxxx.x

Hướng dẫn:

q6 kinh

+e=6 Chu vi Dien tich

Giải thuật:

1 q bán kính

2 Tính chu vi =2*ban kinh*pi

3 Dien tich =ban kinh*chu vi*pi (pi là @< =,g &$) &g < ‘ m Unit CRT)

4 +e= Chu vi,Dien tich

V (  trình BT1_7.PAS tính ;2  2 tích,  và + < hai = nguyên, (

3 4 trên màn hình có +7:

= = = = = = = = = = = = = == = == = = = == = = = = = = = = = = = =

TINH TONG, HIEU, TICH, THUONG, DU CUA HAI SO NGUYEN

= = = = = == = = = = = = = = = = = = = = = = = = = = = = = = = = = =

Cho biet so thu nhat: xx

Cho biet so thu hai: xx

Hướng dẫn

q6#B So2

+e=6 Tong, Hieu, Tich, Thuong,Du

Giải thuật:

1 q6 So1, So2

2 Tính Tong = So1+So2

Hieu = So1-So2 Tich = So1*So2 Thuong = So1/So2

Du = So1 MOD So2

3 +e= Tong, Hieu, Tich, Thuong, Du

LỆNH RẺ NHÁNH

I PHẦN LÝ THUYẾT

1

Q% 0Ž =,g m a,b,c

e a and (b or c) f (a and b) or (a and c)

2 n?= >\ =_ Bool >\ =g các &v E sau:

a x !% ^ 3

b y <‰ 2 và 5

c R âm và Z $^<

d Alpha và Beta &v $^<

e Alpha và Beta cùng e S$^< #D âm)

f -5 < x < 5

g a “ ^ 6 hay !% ^ 5

h p = q = r

i ” 0r= trong hai =,$x< )6 x “ ^ 3 #D y “ ^ 3

3 Cho 3 >? Bool a, b và c, hãy Q?= >\ =_ Bool &\

a •–< ? và ” ? a và b &–<B c sai

b •–< ? và ” ? a &–< v à ít e= b hay c &–<

c •–< ? ” ? #D a #D b &–<

4 n?= ! &Ž ba t =C và gán =,g True #D false cho các >? Bool sau:

a Triangle: True ? ba t =C có =\ >\ =g v dài các [ m 0r= tam giác và false

b Equilateral: True ? Triangle là True và tam giác là &v (ba [ >@< nhau )

c Isoceles: True ? Triangle là True và tam giác là cân (ít e= có hai [ >@< nhau )

d Scalene: True ? Triangle là True và tam giác là ! ( không có hai [ >@< nhau )

5 n?= 0 &v Pascal cho 0V =,$x< ) sau:

a ? TaxCode là ‘T’ =p< Price >@< cách r< TaxRate vào nó

b ? Code là 1, &Ž =,g vào x và y , tính và in =y< m x và y

c ? A ~ <‰ 0 và 5 ,cho B >@< 1/ A2 , ? không cho B >@< A2

d Gán =,g True cho >? Bool LeapYear ? >? nguyên Year có =,g là p0 o

S p0 o là >r t m 4 , ? là >r t m 100 thì G là >r t m 400 )

e Gán =,g cho Cost =$^< _< Q% =,g m Distance theo >G< sau :

0 &? 100

% ^ 100 $< không !% ^ 500

% ^ 500 $< “ ^ 1000

1000 #D ^

5.00 8.00 10.00 12.00

f \ =g t ngày =$^< _< Q% =,g m tháng Month (1,2,…,12) Dùng o (d) &\ xác

&g t ngày ? =,g t m Month là 2, <G &g Year &Z có =,g

6 Hãy cho >?= E?= Re= m &#[ $^< trình sau:

Number : = 4;

Alpha : = -1.0;

If Number > 0 then

If Alpha > 0 then Writeln(‘First writeln’) Else Writeln(‘Second writeln’);

Writeln(‘Third writeln’);

7 4r= sinh viên dùng ! if sau trong $^< trình:

If Honors = True then

If Awards = True then

GoodStudent:=False

Else if Honors = false then

GoodStudent:=False;

a Hãy Q?= 0r= 0 &v if =$^< &$^< Q% ! trên

b n?= 0r= 0 &v gán =$^< &$^< Q% 0 &v if trên

8 n?= 0 &v case trong các =,$x< ) sau:

a ? =,g >? ký =C TransCode là ‘D’, =p<!/ lên 0r= =,g Amount B? TransCode là ‘W’ <G0 >%= Balance 0r= =,g là Amount; ? TransCode là ‘P’,

\ =g =,g Balance

b \ =g tên tháng #D thông báo sai =$^< _< Q% =,g tháng m >? Month

c \ =g t ngày =$^< _< m t Month

II PHẦN THỰC HÀNH

Gõ vào máy và

Progam BT2_1;

(*

Date: dd/mm/yyyy

Notes: Nhap hai so nguyen va cho biet so nao nho hon

*)

Uses crt;

Var num1,num2:real; C:char;

Begin

Clrscr;

{ - Nhap hai so -}

Write(‘Cho biet so thu nhat:’); readln(num1);

Write(‘Cho so thu hai:’)readln; readln(num2);

Writeln;

{ - Kiem tra - }

If (num1<num2) then

Writeln(‘so thu nhat nho hon so thu hai’);

{ - Ket thuc -}

Gotoxy(28,25); { &$ &\0 nháy trên màn hình &? Qg trí r= 28, dòng 25}

Write(‘ xem xong e nút >e= E—˜Tw

C:=readkey; {hàm readkey x e 0r= phím và có =,g là kí =C &Z e…

End

Gõ vào máy và

Program BT2_2;

(*

Date:dd/mm/yyyy

Notes:Nhap hai so nguyen va cho biet so nao nho hon

Tuong tu nhu BT2_1 nhung co cai tien

*)

Uses Crt;

Var num1,num2:real;

c:char;

begin

clrscr;

{Nhap hai so}

write(‘cho so thu nhat:’); readln(num1);

write(‘cho so thu hai:’); readln(num2);

writeln;

{kiem tra}

if (num1<num2) then

Writeln(‘So thu nhat nho hon o thu hai’)

Else

Writeln(‘So thu nhat lon hon so thu hai hay bang so thu hai’);

{ket thuc}

gotoxy(28,25); „$ \0 nháy trên màn hình &? Qg trí r= 28,dòng 25}

write(‘Xem xong nhan nut bat ky.’);

c:=readkey; {hàm readkey x 0r= phím và có =,g là ký =C &Z e }

end

Gõ vào máy và

Program:BT2_3;

(*

Date:dd/mm/yyyy

Notes:nhap hai so nguyen va cho biet so nao nho hon

Tuong tu nhu BT2_2 nhung co cai tien

*)

Uses CRT;

Var Num1,Num2: real;

C :char;

Begin

Clrscr;

(*_ _ _Nhap hai so_ _ _*)

Write(‘Cho so thu nhat:’); readln(Num1);

Write(‘Cho so thu hai:’); readln(Num2);

Writeln;

(*_ _ _Kiem tra_ _ _ *)

If (Num1<Num2) then

Writeln(‘So thu nhat nho hon so thu hai’)

Else

If (Num1> Num2) then

Writeln(‘So thu nhat lon hon so thu hai’) Else

Writeln(‘So thu nhat bang so thu hai’);

(* _ _ _Ket thuc_ _ _ *)

Gotoxy(28,25); (* &$ &\0 nháy trên màn hình &? Qg trí r= 28, dong 25 *)

Write(‘xem xong nhan nut bat ky’);

C :=readkey;

(* hàm readkey x e 0r= phím và có =,g là kí =C &Z e *)

End

n?= $^< trinh BT2_4.PAS q vào 0r= t nguyên và cho >?= &{ là ™ hay !š †?= jG trên màn hình có [<6

= = = = = = = = = = = = = = = = = = = = = =

KIEM TRA MOT SO LA CHAN HAY LE

= = = = = = = = = = = = = = = = = = = = = =

Cho mot so nguyen: 1234

Do la so chan

Hướng dẫn

q6#

+e=6 Thông báo

Giải thuật:

1 q so

2 ? so MOD 2 = 0

3 \ thi thông báo ” •{ là t ‘˜

4 ? không \ =g thông báo ˜•{ là t !š˜

'(  trìng BT2_5.PAS -& vào > tên và ; < 2 > viên, so sánh /( ai ?@ ;  AB /C ) E( 3 4 trên màn hình có +7!

= = = = = = = = = = = = = = = = =

SO SANH TUOI HAI HOC VIEN

= = = = = = = = = = = = = = = = =

Hoc vien 1-> Ho ten : XXXXXXXX Tuoi : XX

Hoc vien 2-> Ho ten: YYYYYYYY Tuoi : YY

Hoc vien XXXXXXXX lon tuoi hon YYYYYYY

Hướng dẫn

q : Ho Ten 1,Tuoi1, Ho Ten2 ,Tuoi2

+e= : Thông báo

q6#

+e=6 Thông báo

Giải thuật:

1 q so

2 ? so MOD =

3 \ thi thông báo ” •{ t ‘˜

4 ? không \ =g thông báo ˜•{ t !š˜

''(... * * * * * * * *’);

write(‘xem xong bam enter’);readln;

End

''(  trình BT_5 PAS tính + tích hình ch, - /( chi0u dài chi0u 12 ( hình có +7g:

=... Dai va Rong

2 Tính Dien tich = Dai * Rong

3 +e= Dien Tich

Vi (t  trình BT_6.PAS tính + tích chu vi hình trịn /( bán kính, ( hình có +7

= = = =