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

Dien tịch hinh tam giac '; writeln'3.. The tich hinh cau‘; 'writeln4... writelnTinh theo cong thuc Sinx = ',sinx; write'Tinh theo ham chuan cua Pascal Sinx = ',sinx; 'writeln'Tinh theo

write(‘Nhap vao he so (a,b,c): ');readin(a,b,c);

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

if delta=0 then write(‘phuong trinh co nghiem kep x1=;

else writeln(‘Phuong trinh co hai nghiem phan biet x1= ',

writeln(Phuong trinh: f(x)= (,a,)x^2 + (,b,)x + (e;) > 09;

if(a>0) then writeln(Bat phuong trinh nghiem dung voi moi x <',

(-b-sqrt(delta))/2/a,' hoac x > ', (-b+sqrt(delta))/2/a);

if(a<0) then writeln(Bat phuong trinh nghiem dung voi ',

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

wiiteln(Phuong trinh: f(x)= ax^4 + bx^2 + c = 0);

delta:=b"b-4*a*c;

if delta<0 then write(‘phuong trinh vo nghiem')

67

else if delta=0 then begin

if -b/(2*a)>=0 then write(‘phuong trinh co 2 nghiem x1 = ,

write('Nhap vao gia tri (a,b,p): '); readin(a,b,p);

write(‘Nhap vao gia tri (c,d,q): '); readin(c,d,q);

‘A’ 'Z': WriteLn(‘Chu HOA’);

'a z': WriteLn('Chu thuong);

for i:=2 to 8 do if odd{i)<>true then M:=M"i;

write(‘Tich cac so chan co 1 chu so= ',M);

readin;

END

70

'write('Nhap chieu dai, rong (d,r) = ');readin(d,r);

for i:=1 to d do write(*');writeln;

writeln(Can bac 2 cua ');

for i:=1 to 100 do write(' 'i, la ',sqrt():4:2);

readin;

'writeln(Can bac 3 cua’);

for i:=1 to 100 do write(' 'j" la ',exp((1/3)*In():4:2);

readin;

writeln('Can bac 4 cua ');

for i:=1 to 100 do write(" i," la ',exp((1/4)*ln():4:2);

write(Nhap vao mot ky tu));readln(ch);

writeln(‘Ky tu vua nhap co ma ASCII la: ',ord(ch));

ifi mod j=0 then t:=t+j;

if t=i then writein(t,' la so hoan hao’);

writeln(2 Dien tịch hinh tam giac ');

writeln('3 The tich hinh cau‘);

'writeln(4 Ket thuc ');

writeln(Tinh theo cong thuc Sin(x) = ',sinx);

write('Tinh theo ham chuan cua Pascal Sin(x) = ',sin(x));

'writeln('Tinh theo cong thuc Cos(x) = ',cosx);

'write(Tinh theo ham chuan cua Pascal Cos(x) = ',cos(x)); readin;

END

78

writeln(' Chuong Trinh Tinh So Pi

'write(Nhap eps (0<eps<1): ');readln(eps);

writeIn(Tinh theo cong thuc Pi = ',sopi"4);

'write(Tinh theo ham chuan cua Pascal Pi = ',pi);

write('Nhap so nguyen I1 ');readIn(l1);

if I1<=0 then writeln(Nhap lai I1 sao cho I1>0!);

until 11>0;

repeat

'write(Nhap so nguyen l2 = ');readIn(I2),

if 12<11 then writeln(‘Nhap lai l2 sao cho l2>11');

until 12>11;

79

'writeln(' CHUONG TRINH TINH NGHIEM CUA PHUONG TRINH’);

writeln(’ F(x) = x*x*x - 27 trong khoang [-10,10]);

write(’ Nhap gia tri sai so cua nghiem eps = "›;readIn(eps);

'writeln(' Tong cac phan tu cua day = ',tong);

'writeln(' Trung binh cong cua day la: ',tong/n);

'write(' So nhi phan tuong ung = ');

unt downto 0 do write(a[i]);

writeln('Hoc sinh thu ‘,i);

write(’ Diem mon Toan = ');readin(Toanfi]);

write(' Diem mon Van = ');readin(Van[i]);

if tb{i]>=8 then gioi:=gioi+1;

if (7<=tb[i]) and (tb[i}<8) then kha:=kha+1;

if (5<=tb[i]) and (tb[i]<7) then trungbinh:=trungbinh+1;

if van[i]<5 then vanduoi5:=vanduoi5+1;

if toan[i]<5 then toanduoi5:=toanduoi5+1;

'write(Nhap vao so luong phan tu cua day (n) = );readin(n);

for i:=1 ton do

ton do if t[i]>0 then khac:=khac+1;

writeln(Co ',khac,' so hang khac nhau:’);

if afjJ=afi] then write(‘a['j,'] ');

for i:= 1 tondo

đttrtr99* xoa mọt phan tụ ra khoi mang ****** }

write (' Mang dang co ',m,' phan tu, ban muon xoa phan tu thu : ); readin(xoa);

{nhap tap hop a}

'write('So phan tu tap hop a:’);

{ nhap tap hop b }

write('So phan tu tap hop b:’);

{viet ket qua }

'writeln('Giao cua 2 tap hop:’);

fori:= 1 tok do

writen('Phan tu thu’ i, ‘cua giao =', ci);

{phep hop: x 1A hoac x1 B}

{ viet ket qua }

writein('Hop cua 2 tap hop:');

{ viet ket qua }

writeln(‘Hieu cua 2 tap hoy