hãy viết 1 chương trình Pascal hoàn chỉnh để tính diện tích của hình hình tam giác

0 bình luận về “hãy viết 1 chương trình Pascal hoàn chỉnh để tính diện tích của hình hình tam giác”

1. Program dthtg;
   Uses crt;
   Var a, h, S: real;
   Begin
        Clrscr;
        Write(‘Canh bat ki cua tam giac la: ‘); Readln(a);
        Write(‘Chieu cao tuong ung la: ‘); Readln(h);      
        S := (a*h)/2;      
        Writeln(‘Dien tich hinh tam giac la: ‘,S:10:2);
        Readln;
   End.

   Bình luận

2. Program Dien_Tich_Tam_Giac;

   Uses crt;
   Var a, h:i nteger; s:real;
   begin
   writeln (‘nhap do dai mot canh:’);
   readln (a);
   writeln (‘nhap chieu cao tuong ung:’);
   readln (h);
   s:=1/2*a*h;
   writeln (‘dien tich hinh tam giac=’,S:4:2);
   readln
   end.

   Bình luận