Program hinh_chu_nhat;
Uses CRT;
Const pi = 3.14;
Var R, S : integer;
begin
clrscr;
write(‘ Hay nhap vao ban kinh R = ‘);Readln(R);
S := pi*R*R;
Writeln(‘Dien tich hinh tron S = ’,s);
Readln;
End.
Bài tập 4. Hãy XĐBT và MTTT của bài toán tính diện tích hình thang.
Quảng cáo
1 câu trả lời 1288
Program hinh_chu_nhat; {Khai báo tên chương trình}
Uses CRT; { Khai báo tên thư viện}
Const pi = 3.14; {Khai báo hằng}
Var R, S : integer; { Khai báo biến kiểu nguyên}
begin {Bắt đầu chương trình}
clrscr; {Xóa toàn bộ màn hình}
write(‘ Hay nhap vao ban kinh R = ‘); {In r ầmn hình xâu kí tự}
Readln(R); {nhập dữ liệu vào bàn phím cho biến R}
S := pi*R*R; { công thức tính diện tích hình tròn }
Writeln(‘Dien tich hinh tron S = ’,s); { In ra màn hình xâu kí tự "Dien tich hình tron S = ", sau đó thì con trỏ xuống dòng tiếp theo.}
Readln; { dùng để nhập dữ liệu từ bàn phím vào các biến có kiểu dữ liệu chuẩn}
End. {kết thúc chương trình}
Lưu ý: Câu trả lời chỉ mang tính chất tham khảo
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
45367 -
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
34798 -
Đã trả lời bởi chuyên gia
30603 -
Hỏi từ APP VIETJACK28113
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
22359
