4 odpowiedzi w tym temacie

[ToRRent]

http://wklej.org/id/883131/

Znajdźcie błąd bo mi ręce opadają...

Użytkownik =ToRRent= edytował ten post 29.11.2012 09:26

[speedkill]

Tego się w ogóle używa jeszcze ?

program Untitled;
Var tablica:array[1..100] of Integer;
Var a, parzyste:Integer;
Var i:Byte;
Var temp:Byte;
begin
parzyste := 0;
i := 1;
Writeln('Wpisz liczbe');
Readln(a);
while a<>0 do
begin
	if i<=100 then
	begin
		tablica[i] := a;
		i := i + 1;
		Writeln('Wpisz liczbe');
		Readln(a);
	end
	else
    begin
         a:=0;
         temp := i;
    end;
end;	
i:=1;
while i <= temp do
begin
     if tablica[i] MOD 2 = 0 then
     begin
          parzyste := parzyste + 1;
          i:=i+1;
     end
     else i:=i+1;
end;
writeln('Wpisales ', parzyste, ' liczb parzystych');
readln();
end.

Błąd był z repeat, nie wiem gdzie, zamieniłem na while i działa.
Jak chcesz, żeby było podane równe 100 liczb to zamień:

if i<=100 then

Na

if i<100 then

Ponieważ na początku programu podaje się jedną liczbę.
Powinno działać

[ToRRent]

Nie uzywa sie ale szkolnictwo wymaga...

Wysłane z Samsunga Galaxy GT-I5510

[speedkill]

Wiadomość wygenerowana automatycznie


Ten temat został zamknięty przez moderatora.

Powód: Pomoc udzielona

Jeśli się z tym nie zgadzasz, raportuj ten post, a moderator lub administrator rozpatrzy go ponownie.


Z pozdrowieniami,
Zespół AMXX.PL

[G[o]Q]

od siebie dodam ze bład byl taki ze znak przy untilu byl w złą strone bo repeat->until dziala dopóki warunek NIE jest spełniony