Viết thuật toán tính diện tích hình thang

nhập độ dài

a; b của hai đáy hình thang

nhập độ dài

c chiều cao của hình thang

diện tích hình thang là S:= (a+b)*c/2

hoặc

Program Dien_tich_hinh_thang;

Uses crt;

Var a,b,c: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);

writeln('tong hai canh day');

writeln(a,'+',b,'=',a+b);

writeln('tong hai canh day nhan voi chieu cao');

writeln(a+b,'*',c,'=',(a+b)*c);

writeln('dien tich hinh thang');

writeln((a+b)*c,'/',2,'=',((a+b)*c)/2:5:2);

readln;

End.

Muốn tính diện tích hình thang

Đáy lớn, đáy nhỏ ta mang cộng vào

Cộng vào nhân với chiều cao

Chia đôi lấy nửa thế nào cũng ra

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