SHARE
TWEET

Untitled

a guest Jun 20th, 2014 310 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. unit libSeznam;
  2.  
  3. interface
  4. type
  5.         data = integer;
  6.         uPrvek = ^Prvek;
  7.         prvek = record
  8.                 data : data;
  9.                 dalsi : uPrvek;
  10.         end;
  11.         Seznam = object
  12.                 hlava,konec : uPrvek;
  13.                 constructor init;
  14.                 procedure prohod(var p1,p2 : uPrvek);
  15.                 procedure vypis;
  16.                 procedure vlozNaKonec(var co : data);
  17.         end;
  18.        
  19.         function seznamZeSouboru(jmenoS : string) : seznam;
  20.  
  21. implementation
  22. {----------------------------metody seznamu----------------------------}
  23. constructor Seznam.init;
  24. begin
  25. new(hlava);
  26. konec := hlava;
  27. hlava^.dalsi := nil;
  28. end;
  29.  
  30. procedure Seznam.prohod(var p1,p2 : uPrvek);
  31. var pom : uPrvek;
  32. begin
  33. new(pom);
  34. pom^.data := p2^.data;
  35. p2^.data := p1^.data;
  36. p1^.data := pom^.data;
  37. dispose(pom);
  38. end;
  39.  
  40. procedure Seznam.vypis;
  41. var pom : uPrvek;
  42. begin
  43. pom := hlava;
  44. while pom^.dalsi <> nil do begin
  45. writeln(pom^.data);
  46. pom := pom^.dalsi;
  47. end;
  48. end;
  49.  
  50. procedure Seznam.vlozNaKonec(var co : data);
  51. begin
  52. konec^.data := co;
  53. new(konec^.dalsi);
  54. konec := konec^.dalsi;
  55. konec^.dalsi := nil;
  56. end;
  57.  
  58. {----------------------------------------------------------------------}
  59. function seznamZeSouboru(jmenoS : string) : seznam;
  60. var
  61.         userFile : text;
  62.         d : data;
  63.         sez : seznam;
  64. begin
  65. sez.init;
  66. assign(userFile, jmenoS);
  67. reset(userFile);
  68. repeat
  69.         readln(userFile, d);
  70.         sez.vlozNaKonec(d);
  71. until eof(userFile);
  72. close(userFile);
  73. seznamZeSouboru := sez;
  74. end;
  75. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top