Bài tập pascal

Bài 1: vào 2 hình . In ra màn hình tích và chu vi nó.
Program hcn;
Uses crt;
Var a,b,s,c:real;
Begin
Clrscr;
Writeln(‘Tinh chu vi va dien tich hcn’);
Write(‘nhap chieu dai:’); Readln(a);
Write(‘nhap chieu rong:’); Readln(b);
S:=a*b;
C:=(a+b)*2;
Writeln(‘Dien tich hinh chu nhat la:’,S);
Writeln(‘Chu vi hinh chu nhat la:’,C);
Readln;
End.
Bài 2:vào bán kính hình tròn.In ra màn hình tích và chu vi nó.
Program hinh_tron;
Uses crt;
Var R, S, P: real;
Const pi=3.14;
Begin
Clrscr;
Writeln(‘Dien tich va chu vi hinh tron:’);
Write(‘nhap ban kinh:’); Readln(R);
S:=pi*R*R;
P:=2*pi*R;
Writeln(‘dien tich cua hinh tron la:’,S);
Writeln(‘chu vi cua hinh tron la:’,P);
Readln;
End.
Bài 3 : Tính tam giác: vào ba a,b,c kì. tra xem nó có là độ dài ba hay không, không thì in ra màn hình ` Khong la ba canh cua mot tam giac`. , thì in tích, chu vi tam giác ra màn hình.
Program Tam_giac;
Uses crt;
Var a,b,c,s,p:real;
Begin
Clrscr;
Writeln(‘bai toan tam giac’);
Write(‘nhap a=’); Readln(a);
Write(‘nhap b=’); Readln(b);
Write(‘nhap c=’); Readln(c);
If ((a+b)>c) and ((b+c)>a) and ((a+c)>b) then
Begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
Writeln(‘chu vi tam giac:’,2*p);
Writeln(‘dien tich hinh tam giac:’,s);
End;
Else
Writeln(a,b,c khong phai la 3 canh cua tam giac’);
Readln;
End.
Bài 4: trình trình 1 (ax + b = 0)
Program GIAI_PHUONG_TRINH_BAC_NHAT;
Uses crt;
Var a,b,x:real;
Begin
Clrscr;
Writeln(‘giai phuong trinh bac nhat:ax+b=0’);
Write(‘nhap a=’); Readln(a);
Write(‘nhap b=’); Readln(b);
If (a=0)then
If (b=0) then
Writeln(‘phuong trinh co vo so nghiem’);
Else
Writeln(‘phuong trinh vo nghiem’);
Else
Writeln(‘phuong trinh co nghiem x=’,-b/a);
Readln;
End.
Bài 5: trình trình 1 (ax + b >= 0)
Program BAT_PHUONG_TRINH_BACI;
Uses crt;
Var a,b:real;
Begin
Clrscr;
Writeln(‘giai bat Phuong trinh bac nhat’);
Write(‘nhap a=’); Readln(a);
Write(‘nhapb=’); Readln(b);
If a<>0 then
If a>0 then writeln(‘bat phuong trinh co nghiem:x>=’,-b/a);
Else writeln(‘bat phuong trinh co nghiem:x<=’-b/a);
Else
If b>=0 then
Writeln(‘bat phuong trinh co vo so nghiem’);
Else writeln(‘bat phuong trinh vo nghiem’);
Readln;
End.
Bài 6: trình 2 X và Y để 2 bàn phím,sau hoán giá 2 cho nhau(x, y có giá )
Cách 1:
Program hoan_doi;
uses crt;
var X,Y,Z: real;
begin
clrscr;
write(`Nhap so X = `);