SHARE
TWEET

Untitled

a guest May 19th, 2017 48 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. type skladiste=record
  2.      sifra:integer;
  3.      proizvod:string;
  4.      kolicina:integer;
  5.      cijena:real;
  6.      end;
  7. var sklad:skladiste;
  8.     f:file of skladiste;
  9.     izbornik:integer;
  10.  
  11.  procedure unos;
  12.  begin
  13.  reset(f);
  14.  seek(f,filesize(f));
  15.  with sklad do
  16.  begin
  17.  write('sifra :');
  18.  readln(sifra);
  19.  write('proizvod :');
  20.  readln(proizvod);
  21.  write('kolicina :');
  22.  readln(kolicina);
  23.  write('cijena :');
  24.  readln(cijena);
  25.  end;
  26.  write(f,sklad);
  27.  close(f);
  28.  end;
  29.  
  30. procedure ispis;
  31. begin
  32.   reset(f);
  33.   while not eof(f) do
  34.   begin
  35.     read(f, sklad);
  36.     with sklad do
  37.     writeln(sifra:10, proizvod:20, kolicina:5, cijena:5:2);
  38.   end;
  39.   close(f);
  40. end;
  41. procedure brisanje;
  42. var sifra,p:integer;
  43. begin
  44.   reset(f);
  45.   ispis;
  46.   write('Unesi sifru : ');readln(sifra);
  47.   while not eof(f) do
  48.     begin
  49.       read(f,sklad);
  50.       if sklad.sifra=sifra then p:=filepos(f)-1;
  51.     end;
  52.   seek(f,filesize(f)-1);
  53.   read(f,sklad);
  54.   seek(f,p);
  55.   write(f,sklad);
  56.   seek(f,filesize(f)-1);
  57.   truncate(f);
  58.   close(f);
  59. end;
  60.  
  61.  
  62.  
  63. begin
  64.   assign(f,'skladiste.dat');
  65.   repeat
  66.         writeln('1-unos');
  67.         writeln('2-brisanje');
  68.         writeln('3-uredjivanje');
  69.         writeln('4-pretrazivanje');
  70.         writeln('5-ispis');
  71.         writeln('0- kraj');
  72.         readln(izbornik);
  73.   CASE izbornik of
  74.        1:unos;
  75.        2:brisanje;
  76.        5:ispis;
  77.   end;
  78.   until izbornik=0;
  79.  
  80.  
  81. end.
RAW Paste Data
Top