Guest User

Untitled

a guest
Aug 13th, 2018
79
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 1.04 KB | None | 0 0
  1. program aaa;
  2. uses kniznice;
  3. const nazov_konst = hodnota;
  4. var nazov_premennej: typ;
  5.  
  6. procedure nazov(vstup: typ);
  7. var i: integer;
  8. begin
  9.     WriteLn(vstup);
  10. end;
  11.  
  12. function nazovf(vstup: typ):typ;
  13. begin
  14.     WriteLn(vstup);
  15.     nazov := vstup *2;
  16. end;
  17.  
  18.  
  19. begin
  20.     WriteLn(nazovf(33));
  21.    
  22.     case a of
  23.         1: WriteLn('Je to jednotka')
  24.         ...
  25.     end;
  26.    
  27.     for i := 1 to 100 do
  28.     begin
  29.         ....
  30.     end;
  31.    
  32.     a = 1;
  33.     repeat
  34.         Inc(a);
  35.     until a < 100;
  36.    
  37.     while a < 100 do
  38.     begin
  39.         ...
  40.     end;
  41.    
  42. end.
  43.  
  44. {tried. priam. vkladanim}
  45.     - zoberies cislo, ktore chces zoradit
  46.     - posuvas ho dobvtedy, pokial nie je na svojom mieste. t.j. p[i-1] < p[i]
  47.  
  48. {tried. priam. vymenou}
  49.     - porovnavame susedou pokial je p[i-1] > p[i] tak ich vymenime a pokracujeme dalej
  50.     - robime to pokial nie su vs. cisla usporiadane.
  51.    
  52. {tried. priam. vyberom}
  53.     - najdes najmensi prvok a das ho na 1. miesto...
  54.     - najdes najmensi prvok z ostatnych cisiel a das no na 2., 3., .....
Add Comment
Please, Sign In to add comment