Anh Lan

Viết chương trình KT15.PAS, yêu cầu nhập từ bàn phím bán kính hình tròn ( biến r). Tính và in ra màn hình chu vi, diện tích hình chữ nhật có chiều dài là chu vi hình tròn, và chiều rộng là 1/3 chu vi hình tròn. Biết pi=3.14

Võ Đức Dũng
5 tháng 11 2021 lúc 13:04

uses crt;

var r,cd,cr,s,p: real;

begin

clrscr;

write('Nhap ban kinh: '); readln(r);

cd:=r*2*3.14;

cr:=1/3*cd;

s:=cd*cr;

p:=(cd+cr)*2;

writeln('Dien tich la: ',s);

writeln('Chu vi la: ',p);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Silver Enver
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Phan Thùy Chi
Xem chi tiết
Bích Ngọc
Xem chi tiết
Gen Z Khoa
Xem chi tiết
Lê Vũ Khánh Thy
Xem chi tiết
Bùi Trần Nghĩa Hưng
Xem chi tiết
anh tran thi ngoc
Xem chi tiết
Nguyen Huu Tinh
Xem chi tiết