Question

PILNE !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! NAPISZ PROGRAM W TURBO PASCALU : DOPRACUJ PROGRAM SORTOWANIA TAK, ABY BYŁA PROCEDURA WCZYTUJĄCA DANE, WYŚWIETLAJĄCA DANE I 3 PROCEDURY ODPOWIADAJĄCE SORTOWANIU PRZEZ WSTAWIENIE, ZAMIANĘ I BĄBELKOWEMU I ZASTOSUJ FUNKCJĘ CASE DO WYBORU RODZAJU SORTOWANIA.ŹRÓDŁO PROSZĘ OBKOMENTOWAĆ.

Answer 1

Program sortowanie; const zakres = 99; var Liczby:array [1..zakres] of integer; i,j,k,n:integer; procedure czytaj; begin writeln('Program, ktorego zadaniem jest sortowanie liczb'); write('Podaj ilosc liczb: '); read(n); for i:=1 to n do begin write('Liczba ',i,' = '); read (Liczby[i]); end; end; procedure pisz; begin writeln('Oto posegregowane elementy:'); for i:=1 to n do begin write(liczby[i],' '); end; readln end; begin czytaj; for i:=2 to n do 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; pisz; readln end.