Giải chi tiết giúp mk với – hứa vote 5 sao Câu 1: Viết chương trình tính chu vi tam giác ? Câu 2: Viết phương trình tính diện tích tam giác?

0 bình luận về “Giải chi tiết giúp mk với – hứa vote 5 sao Câu 1: Viết chương trình tính chu vi tam giác ? Câu 2: Viết phương trình tính diện tích tam giác?”

1. 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

   Bình luận

2. 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.

   Bình luận