một hình a được ghép từ một hình chữ nhật với chiều rộng 2a chiều dài b và một hình bán nguyệt hãy viết chương trình bằng ngôn ngữ lập trình tin 8

1 câu trả lời

program CT;

uses crt;

var a,b:byte;

      dt_hcn,dt_cyl,dt: integer;

const pi=3,14;

begin

writeln('Nhap do dai canh a');

readln(a);

writeln('Nhap do dai canh b');

readln(b);

writeln('Dien tich hinh chu nhat la');

dt_hcn:=a*2*b;

dt_cyl:=(a*a*3,14)/2;

dt:=dt_hcn+dt_cyl;

Writeln('Dien tich cua hinh do la',dt);

readln;

end.