Error: Identifier not found "result" - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Добрый вечер, недавно достал большой самоучитель Delphi, начал заниматься вo Free Pascal. И вот на первых порах возникают уже вопросы и ошибки. Очень прошу помочь, я только новичок, знания практически нулевые. Прописываю упражнение :
program p1_2;
{$apptype console}
uses
SysUtils;
label lb,33;
const p=3.1415926;
type answer = (No,Yes);
var z:answer;
begin
if (v>=0) and (x<=2*p) then z:= Yes
else z:= No;
result :=z
end;
procedure vych(var w:real);
begin
w :=w-2*p
end;
begin
writeln('Enter x');
readln(x);
lb:vych(x);
if prov(x) = Yes then goto 33
else goto lb;
33:writeln('x=',x:6:4);
readln
end.
После компиляции выдаёт две ошибки: Error: Identifier not found "result" - Fatal: There where 1 errors compiling module, stopping Помогите разобраться, я не могу понять. Делаю всё, как в учебнике

Решение задачи: «Error: Identifier not found "result"»

textual
Листинг программы
program p1_2;
 
{$mode Delphi}
{$apptype console}
uses
  SysUtils;
 
label
  lb, 33;
const
  p = 3.1415926;
type
  answer = (No, Yes);
var
  x: real;
 
  function prov(v: real): answer;
  var
    z: answer;
  begin
    if (v >= 0) and (x <= 2 * p) then
      z := Yes
    else
      z := No;
    Result := z;
  end;
 
  procedure vych(var w: real);
  begin
    w := w - 2 * p;
  end;
 
begin
  writeln('Enter x');
  readln(x);
  lb:
    vych(x);
  if prov(x) = Yes then
    goto 33
  else
    goto lb;
  33:
    writeln('x=', x: 6: 4);
  readln;
end.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.769 из 5