Циклические действия.

[Pirimovs]

нужно написать программу, которое циклически запрашивает значение радиуса и подсчитывает длинну окужности пока не будет введён R<0

[Sparky]

read(r);
while r>=0 do
begin
//подсет длины (не помню формулу)
writeln('длина',переменная в которую занесена длина);
end

[russian-stalker]

program Project2;
var
r,c:real;
begin
  r:=1;
  while r>=0 do
  begin
     readln(r);
     c:=2*pi*r;
     writeln(c);
  end;
end.

[Sparky]

сори ступила

[Pirimovs]

а объевлять переменные как что?

[russian-stalker]

Оно и не будет равно 1.

[LeBron]

var r:real;
begin
while r>=0 do begin 
readln(r);if r>0 then writeln(2*pi*r);end;
end.

russian-stalker, Ваш вариант неробочий.
По поводу переменных - или присваивать классические 0, или надеятся, что в компиляторе проиницализированны по умолчанию.

[Sparky]

var
r,c:real;
begin
r:=0;
while r>=0 do
begin
readln(r);
c:=2*3,14*r;
writeln(c:2:2);
end;
end.

[Pirimovs]

Сообщение от LeBron

russian-stalker, Ваш вариант неробочий.
По поводу переменных - или присваивать классические 0, или надеятся, что в компиляторе проиницализированны по умолчанию.

но нада же присвоить значение pi как 3,14 сотых так? pi:real; ?

[russian-stalker]

Не люблю я эти записи в одну строчку :-)
И чем же мой вариант не рабочий? PI - нормально воспримится компилятором