программу для вычисления: длины окружности и площади круга радиуса R

[Tuns]

проверьте пожалуйста...
1)программу для вычисления: длины окружности и площади круга радиуса R( на Delphi)

[Serge_Bliznykov]

опечаток много.
выкладывайте код в виде текста, а не в виде картинки, покажу опечатки

[Tuns]

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

опечаток много.
выкладывайте код в виде текста, а не в виде картинки, покажу опечатки

Produkte Okr ( R integer;varl,S:real);


  begin
   if (R>0)then
  begin
  l:= 2*pi*R;
  S:= pi*sqr(R);
     writelen ('длина окружности =' ,l1:2:3);
      writelen ('площадь круга =' ,S:2:3);
  end;
    else
      writeln ('радиус  задан  не корректно ’);
  end.

___________
Вот, уже лучше. Только код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[ZX Spectrum-128]

//Produkte Okr ( R integer;varl,S:real);
Procedure okr(r:integer; var l,s:real);


  begin
   if (R>0) then
  begin
  l:= 2*pi*R;
  S:= pi*sqr(R);
     WriteLn ('длина окружности =', l:2:3);
      WriteLn ('площадь круга =' ,S:2:3);
  end // исправил
    else
      writeln ('радиус  задан  не корректно ');
  Еnd;// исправил

Только почему радиус целое число?

[Serge_Bliznykov]

Produkte

в связи с тем, что на картинке ключевое слово записано по другом, рискну спросить:
Вы что, код программы ЗАНОГО набираете на форуме? Выделить код программы, скопировать, перейти на форум в поле ввода и вставить разве не проще/быстрее/надежнее?!

proсedure Okr ( R : integer;var l,S:real);  // обратите внимание, после var пробел
  begin
  if (R>0)then
  begin
    l:= 2*pi*R;
    S:= pi*sqr(R);
     writeln('длина окружности =',l:2:3);
     writeln('площадь круга =' ,S:2:3);
  end // точка с запятой перед else не ставится
  else begin
      l := 0; s := 0;
     writeln ('радиус  задан  не корректно ’);
  end;
end; // в конце процедуры точка с запятой после end

[Tuns]

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

в связи с тем, что на картинке ключевое слово записано по другом, рискну спросить:
Вы что, код программы ЗАНОГО набираете на форуме? Выделить код программы, скопировать, перейти на форум в поле ввода и вставить разве не проще/быстрее/надежнее?!

proсedure Okr ( R : integer;var l,S:real);  // обратите внимание, после var пробел
  begin
  if (R>0)then
  begin
    l:= 2*pi*R;
    S:= pi*sqr(R);
     writeln('длина окружности =',l:2:3);
     writeln('площадь круга =' ,S:2:3);
  end // точка с запятой перед else не ставится
  else begin
      l := 0; s := 0;
     writeln ('радиус  задан  не корректно ’);
  end;
end; // в конце процедуры точка с запятой после end

да заново ,спасибо огромное сейчас отредактирую !!!

[Tuns]

Сообщение от ZX Spectrum-128

//Produkte Okr ( R integer;varl,S:real);
Procedure okr(r:integer; var l,s:real);


  begin
   if (R>0) then
  begin
  l:= 2*pi*R;
  S:= pi*sqr(R);
     WriteLn ('длина окружности =', l:2:3);
      WriteLn ('площадь круга =' ,S:2:3);
  end // исправил
    else
      writeln ('радиус  задан  не корректно ');
  Еnd;// исправил

Только почему радиус целое число?

щас поменяю ! спасибо )!