Viết chương trình tính diện tích hình chữ nhật ________________________________hình thang ________________________________hình bình hành

0 bình luận về “Viết chương trình tính diện tích hình chữ nhật ________________________________hình thang ________________________________hình bình hành”

1. 1.Tính diện tích hình chữ nhật :

   program dthcn;

   var 

   a, b, c : integer;

   begin

   Write (‘Nhap chieu dai:’); read (a);

   Write (‘Nhap chieu rong:’); read (b);

   s := a * b;

   Write (‘Dien tich hinh chu nhat la:’,s);

   Readln

   End.

   2.Tính diện tích hình thang :

   program dtht;

   var

   a, b, h:Integer;

   s:real;

   begin

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

   Write(‘Nhap day nho:’);readln(b);

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

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

   WriteLn (‘Dien tich hinh thang la:’,s);

   readln

   end.

   3.Tính diện tích hình bình hành :

   program dthbh;

   var

   a, h : integer;

   s : real;

   begin

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

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

   s := a * h;

   Write (‘Dien tich hinh binh hanh la:’,s);

   Readln

   End.

   Bình luận