smatysik Napisano Styczeń 8, 2014 Zgłoś Share Napisano Styczeń 8, 2014 Po wprowadzeniu danych w programie wyskakuje błąd: exitcode = 201, w inernecie sprawdzałem że oznacza wyjście poza tablicę, ale nie wiem jakim cudem, jakby ktoś widział błąd proszę o pomoc, zawsze mam problemy używając tablic w pascalu Kod programu: program z_tablicami2; var tablica1: array[1..100000000] of Longint; tablica2: array[1..100000000] of Longint; N : Longint; K : Longint; i : Longint; i2 : Longint; nr_tab : Longint; l : Longint; w : Longint; poc : Longint; suma : Longint; begin Read (N, K); for i := 1 to N do begin Read (tablica1); end; for l := 1 to N do begin Read (tablica2[l]); end; while K > 0 do begin w := 1; nr_tab := 1; for i2 := 1 to N do begin if (tablica1[nr_tab] > w) then w := tablica1[nr_tab]; if (tablica1[nr_tab] > w) then poc := nr_tab; nr_tab := nr_tab + 1; end; suma := suma + w; tablica1[poc] := tablica2[poc]; K := K - 1; end; WriteLn (suma); ReadLn; ReadLn; end. Link do komentarza Udostępnij na innych stronach More sharing options...
olesio Napisano Styczeń 8, 2014 Zgłoś Share Napisano Styczeń 8, 2014 Sformatuj kod pożądnie (są do tego narzędzie jeśli nie umiesz sam). I wstaw go w odpowiednie znaczniki. To może ktoś spojrzy. Pozdrawiam: olesio Link do komentarza Udostępnij na innych stronach More sharing options...
smatysik Napisano Styczeń 9, 2014 Autor Zgłoś Share Napisano Styczeń 9, 2014 program z_tablicami2; var tablica1: array[1..100000000] of Longint; tablica2: array[1..100000000] of Longint; N : Longint; K : Longint; i : Longint; i2 : Longint; nr_tab : Longint; l : Longint; w : Longint; poc : Longint; suma : Longint; begin Read (N, K); for i := 1 to N do begin Read (tablica1[i]); end; for l := 1 to N do begin Read (tablica2[l]); end; while K > 0 do begin w := 1; nr_tab := 1; for i2 := 1 to N do begin if (tablica1[nr_tab] > w) then w := tablica1[nr_tab]; if (tablica1[nr_tab] > w) then poc := nr_tab; nr_tab := nr_tab + 1; end; suma := suma + w; tablica1[poc] := tablica2[poc]; K := K - 1; end; WriteLn (suma); ReadLn; ReadLn; end. Link do komentarza Udostępnij na innych stronach More sharing options...
olesio Napisano Styczeń 10, 2014 Zgłoś Share Napisano Styczeń 10, 2014 Kod w znacznikach, ale nadal niesformatowany. Jeżeli to parser u1 rozwalił formatowanie, w co wątpie żeby aż tak, to wklej na zewnętrzny pastebin i podaj tutaj link. Pozdrawiam: olesio Link do komentarza Udostępnij na innych stronach More sharing options...
Polecane posty
Zarchiwizowany
Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.