07 Phạm Thu Hương 7a5
Hỏi từ APP VIETJACK
Viết chương trình tính chủ vi ,diện tích của hình chữ nhật ,hình bình hành
Giúp với ạ
Giúp với ạ
Quảng cáo
2 câu trả lời 268
2 năm trước
Program hcnvahbh;
Uses crt;
Var a, b, h, s1, p1, s2, p2:Real;
Begin
Clrscr;
Writeln('Nhap a='); readln(a);
Writeln('Nhap b='); readln(b);
Writeln('Nhap h='); readln(h);
p1:=(a+b)*2;
s1:=a*b;
p2:=(a+b)*2;
s2:=a*h;
Wrtie('p1=',p1:5:2);
Wrtie('s1=',s1:5:2);
Wrtie('p2=',p2:5:2);
Wrtie('s2=',s2:5:2);
Readln
End.
2 năm trước
program hcnvahbh;
uses
crt;
var
a, b, h, cvhcn, cvhbh, dthcn, dthbh: Real;
begin
Write('nhap chieu dai:');
ReadLn(a);
Write('nhap chieu rong:');
ReadLn(b);
Write('nhap chieu cao:');
ReadLn(h);
cvhcn := (a + b) * 2;
dthcn := a * b;
cvhbh := (a + b) * 2;
dthbh := a * h;
WriteLn('chu vi hinh chu nhat la :', cvhcn);
WriteLn('dien tich hinh chu nhat la :', dthcn);
WriteLn('chu vi hinh binh hanh la :', cvhbh);
WriteLn('dien tich hinh binh hanh la:', dthbh);
readln;
end.
uses
crt;
var
a, b, h, cvhcn, cvhbh, dthcn, dthbh: Real;
begin
Write('nhap chieu dai:');
ReadLn(a);
Write('nhap chieu rong:');
ReadLn(b);
Write('nhap chieu cao:');
ReadLn(h);
cvhcn := (a + b) * 2;
dthcn := a * b;
cvhbh := (a + b) * 2;
dthbh := a * h;
WriteLn('chu vi hinh chu nhat la :', cvhcn);
WriteLn('dien tich hinh chu nhat la :', dthcn);
WriteLn('chu vi hinh binh hanh la :', cvhbh);
WriteLn('dien tich hinh binh hanh la:', dthbh);
readln;
end.
Quảng cáo
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK44879
-
Hỏi từ APP VIETJACK26697
Thành viên hăng hái nhất trong tuần
-
"Lời nói gió bay, tình ai còn lại?"
3345 điểm
-
ɓáռɦɠạɵ.ᐟ
1545 điểm
-
꧁༒ρɧáʈ༒꧂
660 điểm
-
![CEO tập đoàn Lục thị[nk]](/upload/images/user/1757779274-anh-chup-man-hinh-2025-09-09-000613png.png)
CEO tập đoàn Lục thị[nk]
410 điểm
-
La An Khang 250 điểm
-
ko tên
190 điểm
-
Kim Ngưu (tháng 4) bay 3 acc r
190 điểm
-
ゆずる
155 điểm
-
Khánh Chi
140 điểm
-
tớ là nhím ^^
135 điểm
-
trai helo kitty
120 điểm
-
P.Đức
110 điểm
-
Gialong Giavỹ Bùi 110 điểm
-
......
90 điểm
Rút gọn
Bài viết mới nhất Lớp 8
-
3 năm trước7772
-
3 năm trước7405
-
3 năm trước6345
-
3 năm trước6112
-
3 năm trước6104
Gửi báo cáo thành công!
