Turbo Pascal – jak przerwać pętlę po wpisaniu 0 lub 5 liczb i zapisać do tablicy?

Question

Chce napisać program, w którym użytkownik poda ciąg liczb, a program je przetworzy. Dodatkowo chce zrobić coś takiego, żę gdy się wpisze 0 to, pętla która zczytuje liczby, ma się zatrzymać. I tu właśnie mam problem. Liczby które zczytuje są zapisywane w tablicy. I nie wiem jak zrobić żeby...

maciek_slon · Answer

Problem w tym że zanim sprawdzisz wartość nowo wpisanej liczby to zwiększasz wskaźnik i, co powoduje odczytywanie kolejnej komórki a nie tej nowo wpisanej. W warunku wyjścia możesz zmienić a na a .

jasiu_16 · Answer

Niestety nie pomogło

Hopin · Answer

Witam

Spróbuj tak:


repeat 
 begin 
  write('Podaj ',i,' liczbe: '); 
  readln(a[i]); 
  if a[i]=0 then BREAK;
  i:=i+1; 
 end; 
until (i>5);

Pozdrawiam

przemo_wielki · Answer

Trochę niejasno sie wyrażasz z tego co widać po kodzie to chcesz wczytać tylko 5 elementów tablicy pomocna będzie pętla for ... to ... do a warunek a[i]=0 możesz wrzucić w if ... then np:

  for i:=1 to 5 do begin
  write('Podaj ',i,' liczbe: ');
  readln(a[i]);
  if a[i]=0 then exit;
 end;

Możesz również zrobić to po swojemu ale w taki sposób ( uwaga wcześniej trzeba przypisać zmiennej i wartość początkową np i:=0) np:

begin
  i:=0;
  writeln('Wypelnij tablice');
repeat
  i:=i+1;
  write('Podaj ',i,' liczbe: ');
  readln(a[i]);
until (i=5)or(a[i]=0);
end.

maciek_slon · Answer

Zmieniłbym instrukcję exit na break. Exit wyjdzie z całej procedury, a w szczególności jeśli jest umieszczone w programie głównym to zakończy działanie całego programu. Break wyskoczy tylko z aktualnej pętli.

przemo_wielki · Answer

Tak masz racje miało być przerwij zamiast zakończ. A mam jeszcze pytanie do Ciebie wcześniej napisałeś że inc(i) zwiększa wskaźnik a nie jest przypadkiem tak że zmieniana jest wartość ?? pamięć jest zaalokowana dla zmiennej i i nie widać tutaj poruszania się po pamięci mógłbyś to szerzej wytłumaczyć.

maciek_slon · Answer

Nie chodziło mi o zmianę wskaźnika jako takiego, to było tylko określenie jako wskaźnik = wskaźnik pozycji w tablicy, indeks

przemo_wielki · Answer

No to teraz wszystko jasne

jasiu_16 · Answer

z tym 'break' działa, ale wyszedł jeszcze jeden problem. Ja te liczby co wprowadzam przetwarzam w różny sposób(szukam parzystych, minimalnej, maksymalnej, itp). Jak więc zrobić aby tego ostatniego 0 nie brało pod uwage?

maciek_slon · Answer

Musisz sobie zapamiętać ilość wprowadzonych liczb w jakiejś zmiennej. Po wyjściu z pętli możesz napisać coś takiego:

if a[i]=0 then ilosc:=i-1 else ilosc:=i;

I potem sprawdzać tylko komórki tablicy o numerach od 1 do ilosc.

przemo_wielki · Answer

Możesz zrobić tak żeby niemożna było w ogóle 0 przypisać

repeat
readln(a[i]);
until(a[i]<>0);

Za każdym razem jak wybierzesz 0 to warunek pętli nie będzie spełniony i poprosi Cię o ponowne wybranie.

maciek_slon · Answer

Albo jeszcze inna metoda:


var
tmp : integer;

......

for i:=1 to 5 do 
begin 
  write('Podaj ',i,' liczbe: '); 
  readln(tmp); 
  if (tmp = 0) then break else a[i] := tmp;
end;

przemo_wielki · Answer

Tylko że w takim wypadku cała tablica nie zostanie uzupełniona ( gdy wcześniej tmp=0)

maciek_slon · Answer

No ale o to właśnie chyba chodziło - ma wczytać kilka liczb, maksymalnie 5 LUB do momentu podania 0. :>

przemo_wielki · Answer

Hmm możliwe ale tak jak napisałem na początku autor trochę niejasno się wyraża ...

Fyszo · Answer

Cały problem lezy w tym ze przed warunkiem 'a =0' masz inkrementacje 'i:=i+1' i sprawdzasz nie 5 index ale 6. Użyj petli : While a 0 do begin ... end;

Turbo Pascal – jak przerwać pętlę po wpisaniu 0 lub 5 liczb i zapisać do tablicy?

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Post #8

Post #9

Post #10

Post #11

Post #12

Post #13

Post #14

Post #15

Post #16

Post #17

Podsumowanie tematu