1.Viết CT pascal tính diện tích của hình thang, chiều cao h = 50cm đáy lớn a, đáy nhỏ b nhập từ bàn phím 2.Viết CT pascal tính chu vi, diện tích của hcn chiều dài a=6cm, chiều rộng b nhập từ bàn phím

Bài 1:

program kaito;

uses crt;

var a, b, s: real;

begin

   clrscr;

   write('nhap day lon: '); readln(a);

   write('nhap day be: '); readln(b);

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

   writeln('dien tich hinh thang la: ',s);

   readln;

end.

Bài 2:

program kaito; 

uses crt;

var b, c, s: real;

begin

   clrscr;

   write('nhap chieu rong: '); readln(b);

   c:=(b+6)*2;

   s:=6*b;

   writeln('chu vi hinh chu nhat la: ',c);

   writeln('dien tich hinh chu nhat la: ',s);

   readln

end.

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

Bài 1:

uses crt;

var a, b, S: real;

Begin

   clrscr;

   write('Nhap do dai day nho: '); readln(a);

   write('Nhap do dai day lon: '); readln(b);

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

   writeln('Dien tich hinh thang la: ', S:3:3);

   readln;

End.

Bài 2:

uses crt;

var b, P, S: real;

Begin

   clrscr;

   write('Nhap chieu rong hinh chu nhat: '); readln(b);

   P:=(6+b)*2; S:=6*b;

   writeln('Chu vi hinh chu nhat la: ', P:3:3);

   writeln('Dien tich hinh chu nhat la: ', S:3:3);

   readln;

End.