read(Liczby[i]); end; end;
procedure pisz; begin writeln('Oto liczby posortowane rosnąco:'); for i := 1 to n do write(liczby[i],' '); readln; end;
begin czytaj; for i := 2 to n do begin for j := n downto i do begin if Liczby[j-1] > Liczby[j] then begin k := liczby[j-1]; Liczby[j-1]:=Liczby[j]; Liczby[j]:=k; end; end; end; pisz; readln; end.
Program symulujący kostkę do gry program kostka; uses crt; var kost: integer; znak: string; begin randomize; repeat clrscr; write ('Iluścienną kostką chcesz grać?:'); readln(kost); if (kost < 4) then begin writeln('Kostka musi mieć minimum 4 ściany'); readln; end; until (kost >= 4); clrscr; repeat write('Wylosowano : '); write(random(kost)+1); writeln(' aby zakonczyć wcisnij "q"'); readln(znak); until (znak ='q') or (znak = 'Q'); end.
Zobacz też Turbo Pascal – kompilator języka Pascal Pascal 360 – jedna z implementacji języka Pascal Free Pascal – darmowy kompilator języka Pascal Object Pascal – obiektowy dialekt języka Pascal
Przypisy