06.04.2013, 12:37
napisać symulacje działania dla 5 wybranych liczb jak te liczby będą sie zmieniać
procedure babelkowe;
varwyjscie: boolean;
FOR i := 2 TO n DO
FOR j := n DOWNTO i DOBEGIN
IF keypressedTHEN BEGIN
wyjscie:=TRUE;
exit;
END;
IF tablica[j-1] > tablica[j] THEN BEGIN
a := tablica[j-1];
tablica[j-1] : =tablica[j] ;
tablica[j] :=a
END;
END;
procedure babelkowe;
varwyjscie: boolean;
FOR i := 2 TO n DO
FOR j := n DOWNTO i DOBEGIN
IF keypressedTHEN BEGIN
wyjscie:=TRUE;
exit;
END;
IF tablica[j-1] > tablica[j] THEN BEGIN
a := tablica[j-1];
tablica[j-1] : =tablica[j] ;
tablica[j] :=a
END;
END;