Giáo trình lý thuật bài tập pascal Chương I

GIAO TRINH LY THUYET VA BAI TAP TURBO PASCAL-CHUONG 1

Dang Thanh Tuan(15/3/2004)

**********0101**********

Program PTB2;

Var

a,b,c:Integer;

delta,x1,x2:Real;

Begin

Writeln('GIAI PHUONG TRINH BAC HAI');

Writeln(' --------------');

Repeat

Write('-Nhap he so a= ');

Readln(a);

Until a <>0;

Write('-Nhap he so b= ');

Readln(b);

Write('-Nhap he so c= ');

Readln(c);

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

If delta < 0 Then

Writeln('*Phuong trinh vo nghiem')

Else

If delta = 0 Then

Writeln('*Phuong trinh co 2 nghiem bang nhau X= ',-b/2*a:6:2)

Else

Begin

x1:=(-b-sqrt(delta))/2*a;

x2:=(-b+sqrt(delta))/2*a;

Writeln('*Nghiem thu nhat X1= ',x1:6:2);

Writeln('*Nghiem thu hai X2= ',x2:6:2);

End;

readln

End.

**********0102**********

Program Ao_thu;

Begin

Writeln(' BAI THO AO THU');

Writeln('Ao thu lanh leo nuoc trong veo');

Writeln('Mot chiec thuyen cau be teo teo');

Writeln('Song biec theo lan hoi gon ty');

Writeln('La vang truoc gio se dua veo');

Writeln(' NGUYEN KHUYEN');

Readln

End.

**********0103**********

Program So_hoc;

Var

so1,so2,tong,hieu,tich:Integer;

thuong:Real;

Begin

Write('-Nhap so thu nhat = ');

Readln(so1);

Write('-Nhap so thu hai = ');

Readln(so2);

tong := so1 + so2;

hieu := so1 - so2;

tich := so1 * so2;