Giáo trình pascal

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;

thuong := so1 / so2;
Writeln('*Tong cua hai so ',so1,' va ',so2,' = ',tong);
Writeln('*Hieu cua hai so ',so1,' va ',so2,' = ',hieu);
Writeln('*Tich cua hai so ',so1,' va ',so2,' = ',tich);
Writeln('*Thuong cua hai so ',so1,' va ',so2,' = ',thuong:6:2);
Readln
End.
**********0104**********
Program Pithagore;
Var
a,b :Integer;
c:Real;
Begin
Writeln(' CHUONG TRINH TINH CANH HUYEN TAM GIAC VUONG');
Writeln('
theo dinh ly Pithagore');
Write('-Nhap canh a = ');
Readln(a);
Write('-Nhap canh b = ');
Readln(b);
c := Sqrt((a*a) + (b*b));
Writeln('*Canh huyen = ',c:6:2);
Readln
End.


**********0105**********
Program Phep_Cong;
Var
so1,so2,so3,tong :Integer;

Begin
Writeln(' CHUONG TRINH THUC HIEN PHEP CONG SO HOC');
Writeln('
co toi da 4 ky so');
Write('-Nhap so thu nhat = ');
Readln(so1);
Write('-Nhap so thu hai = ');
Readln(so2);
Write('-Nhap so thu ba = ');
Readln(so3);
tong:= so1+so2+so3;
Writeln;
Writeln;
Writeln('-------------------------------');
Writeln;
Writeln(' ',so1:4);
Writeln(' + ',so2:4);
Writeln(' ',so3:4);
Writeln(' -----');
Writeln(' = ',tong:5);
Readln
End.
**********0106**********
Program Lenh_Write;
Begin
Write('Nam ');
Write('Quoc ');
Write('Son ');
Write('Ha ');
Write('Nam ');

Write('De ');
Write('Cu ');
Readln
End.
**********0107
Program Lenh_Writeln;


Begin
Writeln('Nam ');
Writeln('Quoc ');
Writeln('Son ');
Writeln('Ha ');
Writeln('Nam ');
Writeln('De ');
Writeln('Cu ');
Readln
End.
*********0108*********
Program Tam_giac_Pascal;
Begin
Writeln('
1');
Writeln(' 1 1');
Writeln(' 1 2 1');
Writeln(' 1 3 3 1');
Writeln('1 4 6 4 1');
Readln
End.
*********0109*********

Program Hinh_tron;
Var
r:Integer;
s:Real;
Begin
Writeln('CHUONG TRINH TINH DIEN TICH HINH TRON');
Write('-Cho biet ban kinh = ');
Readln(r);
s:=3.1416 * r * r;
Writeln('*Dien tich hinh tron = ',s:6:2,' met vuong');
Readln
End.
*********0110**********
Program Khuon_dang;
Var
ky_tu :Char;
chuoi :string[24];
so_nguyen:Integer;
so_thuc:Real;


Begin
Writeln('CHUONG TRINH XUAT DU LIEU THEO KHUON DANG');
Write('-Nhap mot ky tu = ');
Readln(ky_tu);
Write('-Nhap ho ten = ');
Readln(chuoi);
Write('-Nhap mot so nguyen = ');
Readln(so_nguyen);
Write('-Nhap mot so thuc = ');

Readln(so_thuc);
Writln;
Writeln('------------------------------');
Writeln('XUAT DU LIEU RA MAN HINH');
Writeln(ky_tu);
Writeln(chuoi);
Writeln(so_nguyen);
Writeln(so_thuc);
Readln
End.