Найти длину окружности, предварительно проверив корректность ввода исходных данных.

siemens227 siemens227    2   22.05.2019 06:40    0

Ответы
MADHOP2016 MADHOP2016  17.06.2020 09:26

Проверено на Паскале АВС

 

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.

ПОКАЗАТЬ ОТВЕТЫ
LizaLove200468 LizaLove200468  17.06.2020 09:26

Вместо "введённые данные некорректны" можете поставить что угодно.
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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика