Bài tập bồi dưỡng HSG

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: 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.
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) the
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;
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(`Nhap he so c=`