Krystian17

Zrobilem cos takiego (znaczy zmodyfikowalem ;) ) program rosnace;uses crt;var liczby : array[1..4] of byte; i, pom : byte; ileliczb : byte; zamiana : boolean; procedure WTablice;var i:byte;begin for i := 1 to 4 do write(Liczby[i],' '); writeln;end;begin clrscr; randomize; for i:=1 to 4 do liczby[i] := random(100)+1;writeln; ileliczb:=4; repeat zamiana := false; ileliczb:=ileliczb-1; for i:=1 to ileliczb do if (liczby[i] > liczby[i+1]) then begin pom:=liczby[i]; liczby[i]:=liczby[i+1]; liczby[i+1]:=pom; zamiana :=true; end; until not zamiana; write('Tablica posortowana: '); WTablice; repeat until keypressed;end. Nie jest to moze profesjonal ale zawsze to cos ;) PS. sorry za formatowanie

sorry chlopaki ale za bardzo nie wiem jak to przerobic na pascala :mur: mozecie to jakos "przetlumaczyc" ?? dzieki z gory

Witam mam interesujace zagadnienie w jezyku pascal interesuje mnie jak wypisac w kolejnosci rosnacej 4 liczby (np a, b, c i d) nie uzywajac wiecej niz 5 slow "if" myslalem nad tym zeby to wrzycic do tablicy jakos i posortowac to babelkowym systemem ale nie za bardzo czaje jak to zrobic - mysle ze pomysl mam dobry, ale gorzej z wykonaniem tak wiec prosze was o pomoc mile widziana jakas procedurka albe chociarz opis jak to zrobic POZDRO