Error: Identifier not found "result" - Free Pascal
Формулировка задачи:
Добрый вечер, недавно достал большой самоучитель Delphi, начал заниматься вo Free Pascal.
И вот на первых порах возникают уже вопросы и ошибки. Очень прошу помочь, я только новичок, знания практически нулевые.
Прописываю упражнение :
После компиляции выдаёт две ошибки:
Error: Identifier not found "result" -
Fatal: There where 1 errors compiling module, stopping
Помогите разобраться, я не могу понять. Делаю всё, как в учебнике
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"»
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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д