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ó.
Mã:
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ó.
Mã:
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: Nhậ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.
Mã:
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)
Mã:
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)
Mã:
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`
nguon VI OLET
