Câu 1:

uses crt;
var a,b,c,p,s:extended;
begin
   clrscr;
   write('Nhap do dai 3 canh cua tam giac: '); readln(a,b,c);
   p:=(a+b+c)/2;
   s:=sqrt(p*(p-a)*(p-b)*(p-c));
   write('Chu vi tam giac la: ',p*2:10:2);
   writeln;
   write('Dien tich tam giac la: ',s:10:2);
   readln
end.

Câu 2:

uses crt;
var a,b,c:longint;
    p,s:real;
begin
   clrscr;
   write('Nhap 3 canh: '); readln(a,b,c);
   writeln('Chu vi la: ',a+b+c);
   p:=(a+b+c)/2;
   s:=sqrt(p*(p-a)*(p-b)*(p-c));
   write('Dien tich la: ',s:0:4);
   readln
end.

Câu 1.Viết chương trình tính chu vi tam giác ?

Uses crt;
Var a,b,c,p,s: extended;
Begin
        Clrscr;
        Write('Nhap do dai 3 canh cua tam giac: '); Readln(a,b,c);
        p:=(a+b+c)/2;
        s:=sqrt(p*(p-a)*(p-b)*(p-c));
        Write('Chu vi tam giac la: ',p*2:10:2);
        Writeln;
        Write('Dien tich tam giac la: ',s:10:2);
        Readln
End.

Câu 2.Viết phương trình tính diện tích tam giác?

var a,b,c:longint;

     p,s:real;

begin

write('Nhap 3 canh: '); readln(a,b,c);

writeln('Chu vi la: ',a+b+c);

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

write('Dien tich la: ',s:0:4);

readln

end.

Chúc bạn học tốt