câu 1: viết chương trình pascal tính chu vi và diện tích của 1 tam giác ( cạnh a, b, c) câu 2: nêu các bước

0 bình luận về “câu 1: viết chương trình pascal tính chu vi và diện tích của 1 tam giác ( cạnh a, b, c) câu 2: nêu các bước”

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

   Trả lời

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

   Trả lời