Viết chương trình nhập vào cạnh đáy và đường cao của 1 tam giác. Tính diện tivsh tam giác A. Vẽ sơ đồ khối B. Lập trình 20/08/2021 Bởi Arianna Viết chương trình nhập vào cạnh đáy và đường cao của 1 tam giác. Tính diện tivsh tam giác A. Vẽ sơ đồ khối B. Lập trình
a) sơ đồ khối như hình b) uses crt;var a,h:extended;beginclrscr; write(‘Nhap canh day, chieu cao: ‘); readln(a,h); writeln(‘Dien tich: ‘,a*h/2:0:2);readlnend. Bình luận
* Chương trình: program kaito; uses crt; var s, a, h: real; begin clrscr; write(‘Nhap canh day: ‘); readln(a); write(‘Nhap chieu cao: ‘); readln(h); if (a<=0) or (h<=0) then writeln(‘khong hop le!’) else s:=(a*h)/2; writeln(‘Dien tich tam giac la: ‘,s); readln end. CHÚC BẠN HỌC TỐT!!! Bình luận
a) sơ đồ khối như hình
b)
uses crt;
var a,h:extended;
begin
clrscr;
write(‘Nhap canh day, chieu cao: ‘); readln(a,h);
writeln(‘Dien tich: ‘,a*h/2:0:2);
readln
end.
* Chương trình:
program kaito;
uses crt;
var s, a, h: real;
begin
clrscr;
write(‘Nhap canh day: ‘); readln(a);
write(‘Nhap chieu cao: ‘); readln(h);
if (a<=0) or (h<=0) then writeln(‘khong hop le!’) else
s:=(a*h)/2;
writeln(‘Dien tich tam giac la: ‘,s);
readln
end.
CHÚC BẠN HỌC TỐT!!!