viết chương trình tính diện tích tam giác trong pascal

0 bình luận về “viết chương trình tính diện tích tam giác trong pascal”

1. Program_dientichtamgiac;

   var

   a, h : integer;

   s : real;

   begin

   Write (‘Nhap chieu cao:’); readln(h);

   Write (‘Nhap day:’); readln (a);

   s := 1/2 * a * h;

   writeln(‘Dien tich tam giac la:’,s);

   Readln

   End.

   Xin hay nhất !

   Bình luận

2. *Tam giác vuông:

   uses crt;
   var a,b:extended;
   begin
      clrscr;
      write(‘Nhap hai canh goc vuong: ‘); readln(a,b);
      writeln(‘S=’,a*b/2:0:2);
      readln
   end.

   *Tam giác cân:

   uses crt;
   var a,h:extended;
   begin
      clrscr;
      write(‘Nhap canh day, chieu cao: ‘); readln(a,h);
      writeln(‘S=’,a*h/2:0:2);
      readln
   end.

   *Tam giác vuông cân:

   uses crt;
   var a:extended;
   begin
      clrscr;
      write(‘Nhap a: ‘); read(a);
      writeln(‘S=’,a*a/2:0:2);
      readln
   end.

   *Tam giác đều:

   uses crt;
   var a:extended;
   begin
      clrscr;
      write(‘Nhap a: ‘); read(a);
      writeln(‘S=’,a*a*sqrt(3)/4:0:2);
      readln
   end.

   *Tam giác khi biết 3 cạnh (công thức $Heron$):

   uses crt;
   var a,b,c,p,s:extended;
   begin
      clrscr;
      write(‘Nhap a,b,c: ‘); readln(a,b,c);
      p:=(a+b+c)/2;
      s:=sqrt(p*(p-a)*(p-b)*(p-c));
      writeln(‘S=’,s:0:2);
      readln
   end.

   *Tam giác thường:

   uses crt;
   var a,h:extended;
   begin
      clrscr;
      write(‘Nhap canh day, chieu cao: ‘); readln(a,h);
      writeln(‘S=’,a*h/2:0:2);
      readln
   end.

   Bình luận