Найти длину окружности, предварительно проверив корректность ввода исходных данных.
5-9 класс
|
Вместо "введённые данные некорректны" можете поставить что угодно.
C - длина окружности
R - радиус окружности
Язык програмирования: Паскаль
Программа без цикла.
var
C,R:real;
begin
read(R);
if R>=0 do
begin
C:=2*3.14* R;
writeln(C);
end;
else
write('введённые данные некорректны');
end.
Проверено на Паскале АВС
Program ALJSHVEC;
uses crt;
var
r:real;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln('Введите радиус');
write('R = ');
readln(r);
if r<0 then
writeln('Вы ввели отрицательное число!')
else
if r=0 then
writeln('Вы ввели R=0. Длина окуржности равна 0.')
else
writeln('Длина окуржности равна ',2*pi*r);
end.
Другие вопросы из категории
1)Как определить понятие?
2)каким способом чаще всего определяются понятия?
3)найдите определение двух понятий через ближайший род и видовое отличие.
4)почему фразу 'книга источник знаний' нельзя считать определением книги?
5)как вы считаете для чего нужна классификация?
6)чем различается естественная и вспомогательная классификация?
Плиз!!!!!!
оператор присваения
найдите площадь треугольника по его сторонам
алфавита,который содержит 128 символов и 2000 символов в сообщении.
3.Найти сколько байтов займёт имя Онохова Катя.
Читайте также
длина окружности при х=2.56789, и х=345.678 с точность до 3 знаков после запятой
1. Найти длину окружности и площадь круга, если известен радиус.
r - радиус (вводится пользователем)
p - длина окружности (находится по формуле p=2··r)
s - площадь круга (находится по формуле s=·)
- число пи (3,14)
Тип переменных определить самостоятельно.
Составить алгоритм нахождения площади и длины окружности если известен диаметр.
Дана площадь круга S. Найти длину окружности, учитывая что L=2*pi*R, S=pi*R