Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
13639
8604
program qsid124360;
uses crt;
var S, h: real;
begin
clrscr;
write('Nhap chieu cao h'); readln(h);
S:=0;
If (h>15) or (h<=0) then write('Chieu cao khong thoa man')
else S:=((13.8+20.5)*h)/2;
write('Dien tich hinh thang ',S:10:1);
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
$#QLinkVN$
CẤU TRÚC CHƯƠNG TRÌNH CỤ THỂ NHƯ SAU:
program hinh_thang;
uses crt;
var S, h: real;
n: integer;
begin
clrscr;
writeln('Nhap chieu cao cua hinh thang: '); readln(h);
S:=0;
if (h>15) or (h<=0) then
begin
repeat
begin writeln('Vui long nhap lai: '); readln(n); end;
until (n>0) and (n<15);
S:=((13.8+20.5)*h)/2;
end
else S:=((13.8+20.5)*h)/2;
write('Dien tich hinh thang nay la: ',S:0:1);
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin