составить программу вычисления площади круга и длину окружности величину радиуса вводить с клавиутуры ,выход из программы при нулевом радиусе
5-9 класс
|
program dd;
uses crt;
var S,c,r,pi:real;
begin
Writeln('Величина радиуса ');
read(r);
pi:=3.14;
if r>0 then
begin
S:=Pi*r*r;
c:=2*Pi*r;
Write ('площадь =',S:6:2,' Длина окружности =',c:6:2) end
else
end.
Program Z1;
var s,pi,l,r:real;
begin
pi:=3.14;
writeln('Введите радиус');
readln(r);
if r=o then writeln('программа завершила работу') else
s:=pi*sqr(r);
l:=2*pi*r;
writeln('Плащадь равна = ',s,'Длина окр равна', l);
readln
end.
Другие вопросы из категории
Представьте в виде графа основные элементы графического интерфейса компьютера.
гирь. Находчивый продавец Семен Семенович сообразил, что ему никогда еще не приходилось ничего взвешивать тяжелее 40 килограммов и понял какие 4 гири ему нужны.Определите и Вы какие четыре гири понадобятся Семену Семеновичу, чтобы он смог на чашечных весах взвесить любое количество целых килограммов от 1 до 40.В ответе укажите через пробел в порядке возрастания 4 числа - веса гирь.ПОЖАЛУЙСТА ПОМОГИТЕ!!!!!!!!!!!!!!СРОЧНО!!!!!!
срочно надо !!!!
одинаковым удовольствием играют и в то и другое? оч надо!!!!!
Читайте также
поверхности, суммы ребер прямоугольного параллелепипеда. 3. Составьте программу вычисления диагоналей ромба по стороне и углу.
секунд.
3)Составте программу вычисления площади треугольника с основанием а и высотой h. Значение a и h введите с клавиатуры.
Вычислите площадь круга и длину окружности по исходным данным.