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!!!

program Bai_1;

uses crt;

var a, b, S: real;

const h = 50;

Begin

   clrscr;

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

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

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

   writeln('Dien tich hinh thang (cm2): ', S:2:4);

   readln;

End.

program Bai_2;

uses crt;

var b, P, S: real;

const a = 60;

Begin

   clrscr;

   write('Nhap do dai chieu rong (cm): '); readln(b);

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

   writeln('Chu vi hinh chu nhat (cm): ', P:2:4);

   writeln('Dien tich hinh chu nhat (cm2): ', S:2:4);

   readln;

End.