Question

PRACA DOMOWA Z PROGRAMOWANIA: NAPISZ KOMENTARZE DO TEGO PROGRAMU: PILNE!!!!!!!!!!

uses crt;

procedure zamiana;

var tab:array[1..20] of integer;

pom,min,i,x,j,p_min,ilosc:integer;

begin write('podaj ile liczb chcesz:');

readln(ilosc);

for i:=1 to ilosc do begin write('podaj',i,'liczbe:');

readln(tab[i]);

end;

for i:=1 to ilosc do write (tab[i],' ');

writeln(' ');

for j:=1 to ilosc-1 do begin min:=tab[j];

p_min:=j; for i:=j+1 to ilosc do if tab[i]tab[i] then begin pom:=tab[i-1]; tab[i-1]:=tab[i]; tab[i]:=pom;

f:=1; end; until f=0; for i:=1 to ilosc do write(tab[i],',');

end;

var sort:integer;

begin

clrscr;

writeln('jakiej metody sortowania chcesz uzyc?');

writeln('do wyboru sa nastepujace metody:');

writeln('1-sortowanie przez zamiane');

writeln('2-sortowanie przez wstawienie');

writeln('3-sortowanie babelkowe');

readln(sort);

if sort=1 then zamiana;

if sort=2 then wstawianie;

if sort=3 then babelkowe;

readln;

end.

PROSZĘ!!

Answer 1

uses crt;

var sort:integer;

 

procedure zamiana;

var tab:array[1..20] of integer;

      pom,min,i,x,j,p_min,ilosc:integer;

begin

write('podaj ile liczb chcesz:');

readln(ilosc);

for i:=1 to ilosc do begin

                            write('podaj',i,'liczbe:');

                            readln(tab[i]);

                            end;

 for i:=1 to ilosc do write (tab[i],' ');

 writeln(' ');

 for j:=1 to ilosc-1 do begin

                                min:=tab[j];

                                p_min:=j;

                                for i:=j+1 to ilosc do if tab[i]tab[i] then begin {?!}

                                                           pom:=tab[i-1];

                                                           tab[i-1]:=tab[i];

                                                           tab[i]:=pom;

                                                           f:=1; {do czego to ma być ?}

                                                           end;

                                until f=0; { To nie zrozumiałe, ponieważ jest zakończenie pętli ale gdzie ona się zaczyna ?!)

                                for i:=1 to ilosc do write(tab[i],',');

                                end;

end;

 

 begin

clrscr;

writeln('jakiej metody sortowania chcesz uzyc?');

 writeln('do wyboru sa nastepujace metody:');

 writeln('1-sortowanie przez zamiane');

 writeln('2-sortowanie przez wstawienie');

 writeln('3-sortowanie babelkowe');

readln(sort);

 Case sort of

1:zamiana;

2:wybor;

3:babelkowe;

end;

 readln;

 end.

 

Powiem tak, ten progam nie jest dokończony, a to co jest zrobione to nie jest do końca dobre. Musisz zadbać o układanie żródła programu tak jak ja to zrobiłem ponieważ gubisz się w beginach i endach. To co jestem w stanie określić na oko, że jest źle to poprawiłem (podkreślenie, pogrubienie, kursywa). Masz to wyróżnione abyś widział gdzie zrobiłeś błędy.

Brakuje ci procedur wstawianie i babelkowe (podkreślenie, pogrubienie)

Kwestie niezrozumiałe dla mnie i pewnie nie tylko dla mnie masz pogrubione.