Viết chương trình nhập vào cạnh đáy và đường cao của 1 tam giác. Tính diện tivsh tam giác A. Vẽ sơ đồ khối B. Lập trình

0 bình luận về “Viết chương trình nhập vào cạnh đáy và đường cao của 1 tam giác. Tính diện tivsh tam giác A. Vẽ sơ đồ khối B. Lập trình”

1. a) sơ đồ khối như hình

   b)

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

   

   Trả lời

2. * Chương trình:

   program kaito;

   uses crt;

   var s, a, h: real;

   begin

      clrscr;

      write(‘Nhap canh day: ‘); readln(a);

      write(‘Nhap chieu cao: ‘); readln(h);

      if (a<=0) or (h<=0) then writeln(‘khong hop le!’) else

      s:=(a*h)/2;

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

      readln

   end.

   CHÚC BẠN HỌC TỐT!!!

   

   Trả lời