Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program aaa;
- uses kniznice;
- const nazov_konst = hodnota;
- var nazov_premennej: typ;
- procedure nazov(vstup: typ);
- var i: integer;
- begin
- WriteLn(vstup);
- end;
- function nazovf(vstup: typ):typ;
- begin
- WriteLn(vstup);
- nazov := vstup *2;
- end;
- begin
- WriteLn(nazovf(33));
- case a of
- 1: WriteLn('Je to jednotka')
- ...
- end;
- for i := 1 to 100 do
- begin
- ....
- end;
- a = 1;
- repeat
- Inc(a);
- until a < 100;
- while a < 100 do
- begin
- ...
- end;
- end.
- {tried. priam. vkladanim}
- - zoberies cislo, ktore chces zoradit
- - posuvas ho dobvtedy, pokial nie je na svojom mieste. t.j. p[i-1] < p[i]
- {tried. priam. vymenou}
- - porovnavame susedou pokial je p[i-1] > p[i] tak ich vymenime a pokracujeme dalej
- - robime to pokial nie su vs. cisla usporiadane.
- {tried. priam. vyberom}
- - najdes najmensi prvok a das ho na 1. miesto...
- - najdes najmensi prvok z ostatnych cisiel a das no na 2., 3., .....
Add Comment
Please, Sign In to add comment