zmienna integer w petli

0

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

0

No weź tą zmienną zadeklaruj jako zmienną globalną i po kłopocie. Nadaj jej wartośc od razu, albo w OnCreate formy

0

daj suma:=0; po begin, ale przed pętlą.

ps. nie wiedziałem że jest pętla until, zawsze myslałem ze trza repeat until

0

a jak nadac od razu? :-)

0

begin
suma := 0;
repeat
...
until ...
end;

0

ps. nie wiedziałem że jest pętla until, zawsze myslałem ze trza repeat until

Jemu chyba chodziło o while :) (wtedy tez nie <font color="red">=</span> tylko <font color="red"><</span>)

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