PDA

Zobacz pełną wersję : Procedury w pascalu - problem



flipertorp
12-12-08, 11:45
Mam w programie użytych kilka procedur (część programu podałem poniżej),
W części opisowej programu dodałem procedury wraz z opisem warunków w woli przejrzystości, a następnie chciałem się do nich odwoływać w dalszej części programu, nie wypisując już warunków, jednak coś jest nie tak, bo wyskakuje mi błąd

uses crt;

var
tablica:array[1..8] of integer;
warunek , rozwiazania:integer;

procedure zeruj;
var
i:integer;

procedure licz;
var
i:integer;

procedure zeruj;
begin
for i:=1 to 8 do
tablica[i] :=9-i;
end;

procedure licz;

begin
for i:=1 to 8 do
tablica[i] :=i-1;
end;

sebasu
12-12-08, 20:10
W ten sposób to ty zadeklarowałeś dwie zmienne globalne "i"... a chodzilo ci raczej o zmienne lokalne w procedurach


procedure zeruj;
var i : integer;
begin
for i:=1 to 8 do
tablica[i] :=9-i;
end;

procedure licz;
var i : integer;
begin
for i:=1 to 8 do
tablica[i] :=i-1;
end;