Question

1. Viết chương trình tính diện tích S của hình tam giác với độ dài một cạnh a và chiều cao tương ứng h (a và h là các số tự nhiên được nhập vào từ bàn phím).

2. Viết chương trình tính chu vi và diện tích hình tròn có bán kính r ( được nhập từ bàn phím).

3. Viết chương trình tìm x với a và b nhập từ bàn phím: ax+b=0.

4. Viết chương trình in ra số lớn hơn trong hai số a,b (được nhập từ bàn phím).

5. Viết chương trình xét xem ba số a,b,c nhập từ bàn phím có là độ dài ba cạnh tam giác hay không, nếu có thì là tam giác đều (cân, vuông).

Answer 1

2.

Program HINHTRON;
Uses Crt;
Var r,dt,cv:real;
Const pi=3.14;
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.

Answer 2

3.

Program PT_bac_nhat;
Uses Crt;
Var
a,b:Integer;
x:Real;
Begin
Clrscr;
Writeln('GIAI PHUONG TRINH BAC NHAT');
Writeln(' aX + b = 0');
Write('-Nhap he so a= ');
Readln(a);
Write('-Nhap he so b= ');
Readln(b);
If a=0 Then
If b=0 Then
Writeln('+Phuong trinh vo dinh')
Else
Writeln('+Phuong trinh vo nghiem')
Else
Begin
x:=-b/a;
Writeln('+Nghiem cua phuong trinh X= ',x:0:6);
End;
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.

Answer 3

4.

program bai4;

uses crt;

var a,b : real;

begin

clrscr;

write('nhap so a ='); readln(a);

write('nhap so b ='); readln(b);

if a > b then writeln('so lon nhat la : ',a:4:2) else

writeln('so lon nhat la : ' ,b:4:2);

readln;

end.

Answer 4

Program TAMGIAC;
Uses crt;
Var a,b,c,s,p: real;
Begin
Clrscr;

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
if (a=b) and (b=c) then write('la tam giac deu') else

if (a=b) or (b=c) or (c=a) then write('la tam giac can') else if (a*a = b*b+c*c) or (b*b =c*c+a*a) or ( c*c= b*b+a*a) then write('la tam giac vuong');

End
Else
Writeln('a,b,c khong phai la ba canh cua tam giac') ;
Readln;
End.