Viết chương trình tính diện tích hình thang với đáy lớn a đáy bé b và đường cao h nhập từ bàn phím ( Hướng Dẫn S =1/2 (a+b)*h

0 bình luận về “Viết chương trình tính diện tích hình thang với đáy lớn a đáy bé b và đường cao h nhập từ bàn phím ( Hướng Dẫn S =1/2 (a+b)*h”

1. Program Dien_tich_hinh_thang;
   Uses crt;
   Var a,b,c,s:integer;
   Begin
      clrscr;
      write(‘nhap do dai cua day lon :’);
      readln(a);
      write(‘nhap do dai cua day nho :’);
      readln(b);
      write(‘nhap do dai cua chieu cao :’);
      readln(c);

   s:=(1/2)*(a+b)*c
      writeln(‘dien tich hinh thang’,s);
      readln;
   End.

   Bình luận

2. Program S_hinh_thang;

   Uses crt;

   Var a, b, h: integer: 

         S: real;

   Begin

        clrscr;

        Write( ‘ Nhap a= ‘ ); readln( a);

        Write( ‘ Nhap b= ‘ ); readln( b);

        Write( ‘ Nhap n= ‘ ); readln( n);

        S:= ( a+b)/ 2* h;

        Write( ‘ Dien tich hinh thang la: ‘, S);

        Readln

   End. 

   Bình luận