Bài tập pascal : Lời giải, đáp án part 1 pptx

PHAN II LỜI GIẢI, ĐÁP ÁN Chương 1.. Sử dụng biểu thức câu lệnh 'writeNhap vao so a;readlna; writeNhap vao so b;readInb;... 'writeNhap vao so thu nhat: ';readinsh1; writeNhap vao so thu

PHAN II

LỜI GIẢI, ĐÁP ÁN Chương 1 Sử dụng biểu thức câu lệnh

'write(Nhap vao so a);readln(a);

write(Nhap vao so b);readIn(b);

write(Nhap vao so a (a>0,a<>1): ');readIn(a);

write(Nhap vao so x (x>0): ');readIn(x);

write(Nhap vao so to 800.000: ');readin(a1);

write(Nhap vao so to 100.000: ');readln(a2);

'write(Nhap vao so to 50.000: ’);readin(a3);

'write(Nhap vao so to 5.000: ');readIn(a4);

write(Nhap vao so to 1.000: ');readIn(a6);

'write(Nhap vao so to 200: ');readIn(a6);

writeln('Tong so tien: ',500*a1+100*a2+50*a3+5*a4+a5+0.2*a6); readin;

END

42

'write(Nhap vao so thu nhat: ');readin(sh1);

write(Nhap vao so thu hai: ');readln(sh2);

write(Nhap vao so von A (80 trieu): );readln(A);

write(Nhap vao so thang t (24 thang): ');readin(t);

write(‘Nhap vao lai suat s (1 %): ');readin(s);

A:= A*(1- exp(f'ln(s/100)) )/(1-s/100),

writeln(’Ca von va lai sau 't' thang la: ',A:25:3, trieu);

write('Nhap vao toa do x1,y1 (0,0): );readIn(x1,y1);

write('Nhap vao toa do x2,y2 (1,0): ');readIn(x2,y2);

write(Nhap vao toa do x3,y3 (0,1): );readIn(x3,y8);

var ha,hb,he, (*do dai 3 duong cao”)

ma,mb,mc, (*do dai 3 duong trung tuyen*)

44

la,Ib,lc, (“do dai 3 duong phan giac*)

s\p.a.b,c.ri,R: real;

BEGIN

'write('Nhap vao ba canh tam giac (a,b,c)=(3,4,5): ');

readin(a,b,c);

if(a+b<c)or(a+c<b)or(b+c<a) then begin

write(Khong phai 3 canh tam giac’);

writeln('Chu vi tam giac p= ',2*p,', dien tich tam giac = '\s);

'writeln(Duong cao ha,hb,hc = ',ha,', ',hb,, ',h€);

writeln(Duong trung tuyen ma,mb,m‹

writeln(Duong phan giac la,lb,lc la,', “,hb,!, ',h€);

writeln(Ban kinh duong tron noi tiep rí, ngoai tiep R = "ri, ',R);

write(Nhap vao mot so co 2 chu so: ');readIn(so);

writeIn(‘Tong cac chu so cua no la: ', so div 10 + so mod 10);

'write(Nhap vao mot so co 3 chu so: ');readin(so);

write('Nhap vao he so (a,b,c,x): ');readIn(a,b,c,x);

writeln(‘Phuong trinh: f(x)= (,a,")*x"x + (b,")*x + (‘,c,

{Bai 1.20}

Program Dien_tich_hinh_quat;

var R,alpha:real;

BEGIN

write('Nhap ban kinh (R): );readIn(R);

'write(Nhap goc quat: ');readin(alpha);

writeln(Dien tich hinh quat = ', Pi*R*R*alpha/360);

write(‘Nhap toa do(x,y): ');readin(x,y);

write('Nhap tham so(A,B,C): ');readin(A,B,©);

writeln('Khoang cach H= ',ABS(A*x+B*y+C)/sqrt(A*A+B*B));

write(Nhap tham so(A,B,C,D): );readin(A,B,C,D);

write(Nhap tham so(A1,B1,C1,D1): ');readin(A1,B1,C1,D1); writeln(Khoang cach H= ', ABS(A*A1+B*B1+C*C1)/

(sqrl(A*A+B*B+C*C)*sqrt(A1*A1+B1*B1+C1*C1));

Readin;

END

48

{Bai 1.23}

Program so_phuc;

var a1,b1,a2,b2:real;

BEGIN

write(Nhap so phuc 1(a1,b1): );readin(a1,b1);

write(Nhap so phuc 2(a2,b2): ');readIn(a2,b2);

writeln('Tong hai so: (a,b), a1+a2,’ , ',b1+b2);

writeln(‘Hiew hai so: (a,b), a1-a2,", ',b1-b2);

writeln(Tich hai so: (a,b)', a1*a2-b1*b2,', ',a1*b2+a2*b1);

writeln(Chia hai so: (a,b)', (a1*a2+b1*b2)/(a2*a2+b2*b2),', '

write('Nhap chieu cao(H): );readln(H);

write(‘Nhap thoi diem xet t: ');readin(t);

V;=gˆt,

Ts:=sqrt(2*h/g);

writeln(Van toc tai thoi diem t= ',v );

writeln(‘Thoi gian cham dat= ', Ts);

Readin;

END

4-BTLT 49

'write(Nhap vao gia trí (x): ');readin(x);

if (x>-1) and (x<=1) then f:= 5*x*x+5*x+1 else f:=abs(x-8)*(3*x"x+1);

'writeln('Gia tri cua ham F

if NgayNghi>5 then ThucLinh :=0.8*Thuclinh;

if NgayNghi<3 then ThucLinh :=1.1*Thuclinh;

writeln(‘Tien thuc linh = ',ThucLinh);

var i,n:integer;

a,b ‘real;

BEGIN

write(‘Nhap so thu a,b: ');readin(a,b);

write(Thu hien phep tinh (+ go 1,- go 2,* go 3,/ go 4): ');readin(i);

2:writeln( Thang nay co 28 ngay);

1,3,5,7,10,12:writeln(' Thang nay co 31 ngay);

2:writeln(' Thang nay co 29 ngay);

1,3,5,7,10,12:writeln(' Thang nay co 31 ngay);

2:writeln(' Thang nay co 28 ngay;

1,3,5,7,10,12:writeln(' Thang nay co 31 ngay);

'write(' Nhap so nguyen duong n= ');readin(n);

for i:=2 to n div 2 do

t;= n*10000; { rut gon tong so tien di 100 lan }

for a:=0 to t div 100 do

writeln('So lon nhat: ', max);

writeln(‘ CHUONG TRINH TINH DAN SO ');

write(’ Nam bat dau (n) = ');readin(n);

write(' Dan so nam do la A = ');readin(A);

write(' Nhap toc do tang dan so k(%) = ');readln(k);

write(' Nhap so lan dan so sau x nam la S = ');readIn(s);

begin

if (| a) = 2 then { cap sinh doi }

writeln(Cap sinh doi: ', a, ‘va’, i);