[pascal] procedura

0

mam pytanie chyba lamerskie no ale zapytam :]

mam cos takaiego

procedure cos1;
begin
cos2;
end;

procedure cos2;
begin
write('SMJ');
end;

procedure cos3;
begin
cos2;
end;

begin
cos2;
end;

i jest tak
z procedury cos3 moge wywołac cos2, a z procedury cos1 nie moge wywyłac cos2 bo pisze ze nie zadklarowane co zrobic??

0

Musisz stworzyć nagłówki funkcji, niestety nie pamiętam jak to sie zaznaczało w paskalu

0

sorki dokłądnie to tak

procedure cos1;
begin
cos2;
end;

procedure cos2;
begin
cos1;
end;

procedure cos3;
begin
cos2;
end;

begin
cos3;
end;

i w programie jest tak z enie ma mozliwosci obrucenia.

0

hm nagłówki ok pokombinuje jak macie pomysły to piszcie

0

ok mam to byłą dyrektywa FORWARD :)

program as;

procedure cos1; forward;
procedure cos2; forward;
procedure cos3; forward;

procedure cos1;
begin
cos2;
end;

procedure cos2;
begin
cos1;
end;

procedure cos3;
begin
cos2;
end;

begin
cos3;
end;

Powinno się kompilować</delphi>

0

ADuch jestes bogiem działa <lol>

0

Zawsze to powtarzam, a nikt mi nie chce uwierzyć .. no dobra poza dziewczyną ;-)

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0