Question

Viết chương trình Pascal tính diện tích hình thang cân biết đáy lớn, đáy nhỏ và cạnh bên

Answer 1

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.

Answer 2

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.

Answer 3

Nguyễn Minh Lệphynit Lúc em viết là có xuongos dong nhưng lúc gửi lại như thế này là sao ạ?