Jak stworzyc zmienna integer w procedurze ktora jest petla? Wiem - zbyt niejasne a moze i oczywiste. Wiec o co mi chodzi? Chce stwozyc procedure ktora np. bedzie dodawala do ciebie wartosci liczbowe jezeli dana liczba jest liczba pierwsza (w zakresie do 10000).
Wiec pisze tak:
procedure SumujLiczby;
var
suma : integer; //to zmienna ktora jest mi potrzebna
liczba : integer;
begin
until liczba=10000 do begin
// procedura ktora to wszystko sprawdza itd.
// jezeli liczba jest pierwsza to chce wywolac procedure
suma:=suma+liczba;
{...}
end;
Ale gdzie umiescic delklaracje suma:=0? Bo beda glupoty wychodzily! Tzn. suma nie jest rowna 0 na poczatku. I teraz chce zaznaczyc ze to tylko przyklad. Nie moge tego umiescic zaraz po begin po to jest procedura ktora siebie rowniez wywoluje i to bez sensu zeby zaczynalo sie wszystko od 0. Wiec jak to zrobic? Prosze o pomoc
PS. Wiem ze troche niejasno napisalem ale moze ktos zrozumie :p