Forum Gry Hobby Sprzęt Rozmawiamy Archiwum Regulamin

Forum: 2 instrukcje IF w pętli - pytanie (pascal)

06.05.2011 16:23
dzony600
1
dzony600
41
ru ru ru rurkowców

2 instrukcje IF w pętli - pytanie (pascal)

Mam takie dwie pętle i chcę aby IFy w tej drugiej działały naprzemiennie. Chciałem zrobić to przy pomocy "i" i parzystości, ale może być przypadek, że "i" będzie nieparzyste.. więc jak by to zrobić najprościej?

for i:=1 to ile do
if cośtam then
for j:=i do ile do
begin
if pierwszy,trzeci,piąty... obrót then
coś tam
if drugi, czwarty,szósty... obrót then
cośtam
end

06.05.2011 16:30
Loczek
2
odpowiedz
Loczek
160
El Loco Boracho

"Chciałem zrobić to przy pomocy "i" i parzystości, ale może być przypadek, że "i" będzie nieparzyste."

Nie za bardzo rozumiem. Tak czy inaczej funkcja modulo (a mod b) - reszta dzielenia z dzielenia.

if (a mod b=0) then...
else....

06.05.2011 16:35
dzony600
3
odpowiedz
dzony600
41
ru ru ru rurkowców

no właśnie, bo mi chodzi o to, że pierwszy IF zawsze musi być przy pierwszym obrocie i kolejnych, a drugi IF przy drugim, czwartym itp., czyli mogą być 2 przypadki, że "j" przy pierwszym obrocie jest parzyste albo nieparzyste ;P

a Twojego sposobu nie rozumiem zbytnio :/

06.05.2011 16:39
redan
4
odpowiedz
redan
29
Brodaty Wiking

może napisz po ludzku co ma robić ten program lub fragment kodu?

bo z tego co na razie kumam to tak jak [2]

if (i mod 2=0) then...
else....

06.05.2011 16:41
dzony600
5
odpowiedz
dzony600
41
ru ru ru rurkowców

nie wiem jak mam to inaczej opisać ;)

te 2 IFy w pętli for j:=i do ile do mają działać naprzemiennie

06.05.2011 16:45
Loczek
6
odpowiedz
Loczek
160
El Loco Boracho

Ok chyba wiem o co ci chodzi... W takim razie w pętli "for j:=i do ile do " wrzuc dodatkowy licznik który zawsze zaczyna się od 1.

for i:=1 to ile do
if cośtam then
k:=1
for j:=i do ile do
begin
k:=k+1
if (k mod 2=0) then....
else...
end

06.05.2011 16:48
dzony600
😊
7
odpowiedz
dzony600
41
ru ru ru rurkowców

no dzięki, trochę zamieszałem, ale się zrozumieliśmy już

06.05.2011 16:49
redan
8
odpowiedz
redan
29
Brodaty Wiking

za późno ;)

Forum: 2 instrukcje IF w pętli - pytanie (pascal)