Viết thuật toán tính diện tích hình thang 26/08/2021 Bởi Lydia 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. Bình luận
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 Bình luận
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