Sortowanie liczb, mignięcie programu

0

Witajcie. Pisze w Turbo Pascal 7 , jest to mój chyba 3 program, na lekcji mieliśmy coś takiego jak "witaj świecie". Z racji że programowałem wcześniej w c++ i troszkę w pythonie poczytałem kurs pascala i wziąłem się za sort.

program sortowanie;

var
   i,j,temp:integer;
   tab:array[1..10] of integer;

BEGIN
     write('Podaj 10 liczb calkowitych: ');
     for i:=1 to 10 do
     begin
         read(tab[i]);
     end;
     for i:=1 to 10 do
     begin
          for j:=i to 10 do
          begin
               if(tab[i] > tab[j]) then
               begin
                   temp:= tab[i];
                   tab[i]:= tab[j];
                   tab[j]:= temp;
               end;
          end;
     end;
     writeln('Posortowane liczby to: ');
     for i:=1 to 10 do
     begin
          write(tab[i], ' ');
     end;

END.
0

sorry wysłało mi się, pytanie brzmi. Dlaczego mi miga ekran chociaż dopisałem "readln;" ? prosze połączyć ten post z 1 z góry dzięki :)

0

dodaj zaraz po program sortowanie;

uses crt; 

i przed ostatnim end.

readkey; 
1

Lektura: http://pl.wikibooks.org/wiki/[...]e_wej%C5%9Bcia_i_wyj%C5%9Bcia
Odpowiedź na pytanie autora jest zawarta w ostatnim zdaniu

0

Cenna uwaga!

simplex napisał(a)

Odpowiedź na pytanie autora jest zawarta w ostatnim zdaniu

Jeżeli natomiast autorowi pytania chodziło o to, żeby po wpisaniu każdej liczby nie trzeba było naciskać Enter to powinien zastosować dwukrotne ReadLn na końcu programu.

0

Równie cenna uwaga!

pelsta napisał(a)

Jeżeli natomiast autorowi pytania chodziło o to, żeby po wpisaniu każdej liczby nie trzeba było naciskać Enter to powinien zastosować dwukrotne ReadLn na końcu programu.

... i jeszcze trochę do poczytania (gdyby autor tematu nie wiedział, dlaczego właśnie tak): http://www.wcss.wroc.pl/~wach/pas_ref/pas_lib.htm#lib_read

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