Dali moram ovdje da nesto instaliram?
npr.
Code:
procedure Boom (iDiepte: Integer; fLengte, fFactor: Extended;
iHoek: Integer);
begin
if iDiepte > 0
then begin
Forwrd (fLengte);
TurnLeft (iHoek);
Boom (iDiepte – 1, fLengte * fFactor, fFactor, iHoek);
TurnRight (2 * iHoek);
Boom (iDiepte – 1, fLengte * fFactor, fFactor, iHoek);
TurnLeft (iHoek);
Back (fLengte)
end
end;
procedure Boom (iDiepte: Integer; fLengte, fFactor: Extended;
iHoek: Integer);
begin
if iDiepte > 0
then begin
Forwrd (fLengte);
TurnLeft (iHoek);
Boom (iDiepte – 1, fLengte * fFactor, fFactor, iHoek);
TurnRight (2 * iHoek);
Boom (iDiepte – 1, fLengte * fFactor, fFactor, iHoek);
TurnLeft (iHoek);
Back (fLengte)
end
end;
Error:
[Error] untBoom.pas(12): Undeclared identifier: 'Forwrd'
[Error] untBoom.pas(13): Undeclared identifier: 'TurnLeft'
[Error] untBoom.pas(14): Illegal character in input file: '–' ($96)
[Error] untBoom.pas(15): Undeclared identifier: 'TurnRight'
[Error] untBoom.pas(16): Illegal character in input file: '–' ($96)
[Error] untBoom.pas(18): Undeclared identifier: 'Back'