Bài 1: Nhập vào 2 cạnh của một hình chữ nhật. In ra màn hình diện tích và chu vi của nó.
Program HINH_CHU_NHAT;
Uses Crt;
Var a,b,s,c: real;
Begin Clrscr;
Writeln(‘ TINH DIEN TICH & CHU VI HINH CHU NHAT:’);
Writeln(‘--------------------------------------------------------------‘);
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:6:2);
Writeln(`Chu vi hinh chu nhat:`,c:6:2); Readln; End.
Bài 2: Nhập vào bán kính của hình tròn. In ra màn hình diện tích và chu vi của nó.
Program HINHTRON;
Uses Crt;
Var r,dt,cv:real;
Begin
Clrscr;
Writeln(`TINH DIEN TICH & CHU VI HINH TRON:`);
Writeln(`------------------------------------------------------`);
Write (`Nhap ban kinh R=`);readln(r);
dt:=pi*r*r; cv:=2*pi*r;
Writeln(`Dien tich hinh tron la:`,dt:6:2);
Writeln(`Chu vi hinh tron la:`,cv:6:2); Readln; End.
Bài 3 : Tính tam giác: Nụâp vào ba số a,b,c bất kì. Kiểm tra xem nó có thể là độ dài ba cạnh hay không, nếu không thì in ra màn hình ` Khong la ba canh cua mot tam giac`.
Ngược lại, thì in diện tích, chu vi của tam giác ra màn hình.
Program TAMGIAC;
Uses crt;
Var a,b,c,s,p : real;
Begin
Clrscr;
Writeln(‘BAI TOAN TAM GIAC:’);
Writeln(`---------------------------------`);
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:4:2) ;
Writeln(`Dien tich tam giac:`,s:4:2);
End
Else
Writeln(a,’, ‘, b,’, ‘, c, ‘ khong phai la ba canh cua tam giac`) ; Readln; End.
Bài 4: Viết chương trình giải phương trình bậc 1 (ax + b = 0)
Program GIAI_PHUONG_TRINH_BAC_NHAT;
Var a,b,x:real;
Begin Clrscr;
Writeln(`GIAI PHUONG TRINH BAC NHAT: AX + B=0`);
Writeln(`------------------------------------------------------------`);
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 tring vo nghiem`)
Else
Writeln(`Phuong trinh co nghiem x=`,-b/a:4:2); Readln; End.
Bài 5: Viết chương trình giải bất phương trình bậc 1 (ax + b • 0)
Program BAT_PHUONG_TRINH_BACI;
Uses crt;
Var a,b: real;
Begin
Clrscr;
Writeln(`GIAI BAT PHUONG TRINH BAC NHAT: AX + B>=0`);
Writeln(`----------------------------------------------------------------------`);
Write(`nhap a=`);readln(a);
Write(`nhap b=`);readln(b);
If a<>0 then
If a>0 then Writeln(`Bat phuong trinh co nghiem: x>=`,-b/a:4:2)
Else Writeln(`Bat phuong trinh co nghiem: x<=`,-b/a:4:2) 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: Viết chương trình giải phương trình bậc 2 (ax2 + bx + c =0)
.Program GIAI_PHUONG_TRINH_BACII;
Uses crt;
Var a,b,c,d,x,x1,x2:real;
Begin
Writeln(`GIAI PHUONG TRINH BAC II:`);
Writeln(`-------------------------------------------`);
Write(`Nhap he so a=`);readln(a);
Write(`Nhap he so b=`);readln(b);
Write