Не компилируется модуль: Forward declaration not solved - Pascal
Формулировка задачи:
Не компилируется модуль, компилятор пишет: forward declaration not solved InA (Var d1, d2: string; Var e: boolean); и There were errors compiling module, stopping.
Unit U1; Interface Procedure InA (Var d1, d2: string; Var e: boolean); Implementation Procedure InA; Var nf: string; n, m, c, c1: integer; dt1, dt2: string; e: boolean; Begin e:=true; While e=true do Begin Write('Введите первую дату: '); Readln(dt1); Write('Введите вторую дату: '); Readln(dt2); Val (dt1, n, c); Val (dt2, m, c1); If (Length(dt1)=8) and (Length(dt2)=8) then If (c=0) and (c1=0) then If n<m then Begin Writeln('Даты введены верно'); e:=false; end Else Writeln('Даты введены неверно, повторите ввод') Else Writeln('Даты введены неверно, повторите ввод') Else Writeln('Даты введены неверно, повторите ввод') End; End; end.
Решение задачи: «Не компилируется модуль: Forward declaration not solved»
textual
Листинг программы
Procedure InA (Var d1, d2: string; Var e: boolean);
Объяснение кода листинга программы
- Создается процедура 'InA'.
- Процедура принимает три параметра:
- Переменная 'd1' типа string, передаваемая по ссылке (Var);
- Переменная 'd2' типа string, передаваемая по ссылке (Var);
- Переменная 'e' типа boolean, передаваемая по ссылке (Var).
- В процедуре выполняется определенная логика, которая, скорее всего, модифицирует значения переменных 'd1', 'd2' и 'e'.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д