< Inapoi la Cuprins Referate

Referat trimis de: Radu Serban | ADAUGA UN REFERAT! - APASA AICI!

Fisiere Pascal

(continuare)

[inapoi la prima pagina]
 

ADĂUGAREA DE ARTICOLE

Fiind dat un fişier , se cere să-i adăugăm un număr de articole. În programul următor, adăugarea articolelor se face la sfârşitul fişierului (deci după toate articolele conţinute deja în fişier).
Pentru a realiza acest lucru se poziţionează pointer-ul pe marcajul sfârşitului de fişier (seek(f1,filesize(f1)), iar înregistrările care se adaugă sunt citite de la tastatură şi scrise în continuare. Se observă că deschiderea fişierului a fost făcută cu RESET (o deschidere cu RESET permite şi scrierea în fişier).

program  ft5;

type inr= record

            nume:string[10];

            varsta:byte

          end;

fisier=file of inr;

var  inreg:inr;

     f1:fisier;

     dfghjkl;c:char;

begin

  assign(f1,'fdat2');

  reset(f1);

  seek(f1,filesize(f1));

  repeat

    write('nume');

    readln(inreg.nume);

    write('varsta');

    readln(inreg.varsta);

    write(f1,inreg);

    write('continuati ? (y/n) ');

    readln (c);

  until c='n';

  close(f1)

end.

De multe ori , adăugarea noilor înregistrări trebuie făcută în interiorul fişierului (după o anumită înregistrare). Limbajul Turbo Pascal nu permite ca această operaţie să se facă în mod direct . Din acest motiv , pentru a realiza ceea ce dorim se procedează în felul următor:
• Se deschide un al doilea fişier;
• Se copiază în acesta toate înregistrările care se găsesc plasate înaintea celor care se adaugă ;
• Se scriu , în continuare, noile înregistrări;
• Se copiază restul înregistrărilor (din vechiul fişier);
• Vechiul fişier este şters , iar noul fişier capătă numele vechiului fişier.
Programul care urmează citeşte de la tastatură înregistrările ce se adaugă .Pentru ştergere, se foloseşte procedura ERASE care are forma generală:
ERASE (var fişier, ‘nume’)
unde ‘nume’ este un parametru de tip string şi reprezintă noul nume al fişierului.

program  ft6;

type inr=record

           nume:string[10];

           varsta:byte

         end;

fisier=file of inr;

var inreg:inr;

f1,f2:fisier;

c:char;

i:integer;

begin

  assign(f1,'fdat2');

  reset(f1);

  assign(f2,'fis1');

  rewrite(f2);

  for i:=1 to 3 do

  begin

    read(f1,inreg);

    write(f2,inreg);

  end;

  repeat

    write('nume');

    readln(inreg.nume);

    write('varsta');

    readln(inreg.varsta);

    write(f2,inreg);

    write('continuati ? (y/n) ');

    readln (c);

  until c='n';

  while not eof(f1) do

  begin

    read(f1,inreg);

    write(f2,inreg)

  end;

  close(f1);

  close(f2);

  erase (f1);

  rename(f2,'fdat2')

end.

De multe ori, este necesar să modificăm un câmp (sau mai multe) al unei înregistrări (sau ale mai multor înregistrări). Programul ft7 face modificare 1n câmpul vârstă al înregistrării cu n unele de ordine 4. Pentru aceasta , se procedează în felul următor:
• După deschiderea fişierului (cu RESET) , poziţionăm pointer-ul pe înregistrarea care urmează a fi modificată (cu SEEK);
• Se citeşte înregistrarea;
• Se face modificarea în câmpul corespunzător;
• Întrucât, la citire, pointer-ul s-a poziţionat pe înregistrarea următoare, acesta se repoziţionează pe înregistrarea care a fost citită;
• Această înregistrare este suprascrisă (câmpul a fost modificat) cu procedura WRITE.

program  ft7;

type inr= record

            nume:string[10];

            varsta:byte

          end;

fisier=file of inr;

var inreg:inr;

    f1:fisier;

begin

  assign(f1,'fdat2');

  reset(f1);

  seek(f1,4);

  read(f1,inreg);

  inreg.varsta:=70;

  seek(f1,inreg);

  close(f1)

end.

Cum putem şterge una sau mai multe înregistrări ale fişerului? În practică, pentru aceasta se poate proceda în două feluri:
• Înregistrările se şterg fizic;
• Înregistrările se şterg logic.

Ştergerea fizică nu este posibilă decât dacă prin a crea un nou fişier care să nu conţină înregistrările care se şterg. Vechiul fişier este şters iar noul fişier capătă numele fişierului iniţial (cel din care s-au şters înregistrări). Programul care urmează şterge înregistrarea a patra din fişier.
Din păcate , această modalitate de ştergere cere mult timp (pentru a şterge o înregistrare am creat un alt fişier).

program  ft8;

type inr= record

            nume:string[10];

            varsta:byte

          end;

fisier=file of inr;

var inreg:inr;

    f1,f2:fisier;

    i:integer;

begin

  assign(f1,'fdat2');

  assign(f2,'fman');

  reset(f1);

  rewrite(f2);

  for i:=1 to 3 do

  begin

    read(f1,inreg);

    write(f2,inreg)

  end;

  seek(f1,filepos(f1)+1);

  while not eof(f1) do

  begin

    read(f1,inreg);

    write(f2,inreg)

  end;

  close(f1);

  close(f2);

  erase(f1);

  rename(f2,'fdat2')

end.

end.

Ştergerea logică are la bază următorul mecanism: fiecare înregistrare a fişierului în care urmează să se facă ştergeri are un câmp în plus şi anume un indicator de ştergere (is). Convenim ca acest câmp să conţină valoarea 1 în situaţia în care înregistrarea nu este ştearsă şi să conţină valoarea 0 în caz contrar. În acest fel , a şterge o înregistrare înseamnă să modificăm câmpul is (va lua valoarea 0) . Această modalitate de ştergere este mult mai rapidă , dar prezintă dezavantajul că înregistrările şterse rămân pe suport (se ocupă spaţiu).
Următoarele trei programe creează , listează şi efectuează ştergeri pentru un fişier.
Observaţie: orice program care lucrează cu un astfel de fişier trebuie să testeze, pentru fiecare înregistrare, valoarea indicatorului de ştergere (nu vor fi supuse prelucrării înregistrări şterse).

program  ft9;

type inr=record

           is:byte;

           nume:string[10];

           varsta:byte;

         end;

fisier=file of inr;

var inreg:inr;

    f1:fisier;

    c:char;

begin

  assign(f1,'fdat2');

  rewrite(f1);

  repeat

    write('nume');

    readln(inreg.nume);

    write('varsta');

    readln(inreg.varsta);

    inreg.is:1;

    write(f1,inreg);

    write('continuati ? (y/n) ');

    readln(c);

  until c='n';

  close(f1)

end.

program  ft10;

type  inr= record

             is:byte;

             nume:string[10];

             varsta:byte

           end;

fisier=file of inr;

var inreg:inr;

    f1:fisier;

    c:char;

begin

  assign(f1,'fdat2');

  reset(f1);

  while not eof(f1) do

  begin

    read(f1,inreg);

    if  inreg.is=1 then  writeln(inreg.nume, ' ',inreg.varsta)

  end;

  close(f1)

end.

program  ft11;

type inr= record

            is:byte;

            nume:string[10];

            varsta:byte;

          end;

fisier=file of inr;

var inreg:inr;

    f1:fisier;

begin

  assign(f1,'fdat2');

  reset(f1);

  seek(f1,5);

  read(f1,inreg);

  seek(f1,filepos(f1)-1);

  inreg.is:=0;

  write(f1,inreg);

  close(f1)

end.

Se consideră un fişier. Se cere ca acesta să fie sortat crescător (sau descrescător) după valorile unui anumit câmp. În programul care urmează , fişierul se sortează după valoarea câmpului nume (sortarea alfabetică).
Pentru a realiza sortarea , se foloseşte „metoda bulelor” . În esenţă , se parcurge fişierul de mai multe ori şi se inversează înregistrările alăturate care nu sunt în ordinea cerută . Dacă la o parcurgere s-a efectuat cel puţin o inversare , fişierul se parcurge din nou.

program  ft12;

type  inr= record

             nume:string[10];

             varsta:byte

           end;

fisier=file of inr;

var f1:fisier;

    i:integer;

    inv:boolean;

    inr1,inr2:inr;

begin

  assign(f1,'fdat2');

  reset(f1);

  repeat

    inv:=false;

    for i:=0 to filesize(f1)-2 do

    begin

      seek(f1,i);

      read(f1,inr1,inr2);

      if inr1.nume>inr2.nume then

      begin

        seek(f1,i);

        write(f1,inr2,inr1);

        inv:=true

      end

    end

  until not inv;

  close(f1)

end.

UN EXEMPLU DE LUCRU CU UN FIŞIER

Se cere să se scrie un program care să permită prelucrarea pe calculator a rezultatelor unui examen de admitere la liceu. Acest program trebuie să creeze , să actualizeze şi să listeze un fişier ce conţine rezultatele obţinute de fiecare candidat. Fiecare înregistrare trebuie să conţină:
• Numele elevului;
• Nota obţinută la proba 1;
• Nota obţinută la proba 2;
• Media generală.
Această aplicaţie urmăreşte să de4monstreze complexitatea programelor care se folosesc în practică. Desigur, există limbaje specializate pentru scrierea aplicaţiilor de acest gen (DBASE, FOXPRO).
Programul realizează următoarele:
• Crearea fişierului;
• Adăugarea unor înregistrări;
• Ştergere de înregistrări;
• Modificarea înregistrărilor;
• Sortarea fişierului în ordinea descrescătoare a mediilor;
• Listarea lui pe monitor, în vederea verificării informaţiilor;
• Listarea la imprimantă a candidaţilor admişi.
În afara acestora , programul trebuie să realizeze şi alte operaţii cum ar fi:
• Listarea la imprimantă a candidaţilor respinşi;
• Listarea pe monitor atât a candidaţilor admişi, cât şi a celor respinşi.

Schema de principiu a aplicaţiei:



Apelul procedurilor care realizează funcţiile specifice este realizat de procedura APLIC, prezentă în cadrul unităţii de program FIS. Aceasta creează un meniu prin utilizarea unităţii MENU. În afara procedurilor care realizează funcţiile specificate, mai este apelată o procedură numită DIALOG 1.

Procedura DIALOG 1 cere numele fişierului de candidaţi cu care se va lucra în continuare. Procedura testează dacă acest fişier se găseşte sau nu pe suportul magnetic. Rezultatul este afişat pe ecran . Pentru aceasta se procedează astfel:
• Se încearcă deschiderea pentru citire a fişierului cu nume specificat (opţiunile de compilare {$i/} şi {$I+} ce încadrează procedura RESET au rolul de a inhiba o eventuală oprire a unui fişier inexistent iar funcţia IORESULT returnează valoarea 0 în cazul unei operaţii de intrare / ieşire reuşite, altfel returnează o valoare diferită de 0).
• În funcţie de reuşita sau nu a operaţiei, se afişează mesajul corespunzător;
• În cazul în care fişierul a fost deschis spre citire (deci se găseşte pe suport) este închis;
• Numele fişierului este reţinut în variabila nume_f, variabilă la care au acces toate procedurile din unitatea de program.

Procedura CREARE are rolul de a crea fişierul cu candidaţi. Numele său este preluat din variabila nume_f. Pentru aceasta se procedează astfel:
• Pentru citirea informaţiilor de pe ecran se foloseşte procedura CITIRE_TAST;
• Media generală care este conţinută în înregistrare se calculează înainte de a scrie înregistrarea în fişier;
• După fiecare înregistrare , utilizatorul este întrebat dacă doreşte sau nu să continue.

Procedura CITIRE_TAST apelează repetitiv procedura INTERFATA (spre a citi datele de pe ecran) până când utilizatorul consideră că datele tastate sunt corecte.

Procedura INTERFATA realizează următoarele:
• Şterge ecranul;
• Afişează numărul înregistrării curente (care urmează să fie citită);
• Afişează în locuri fixe numele informaţiilor ce urmează a fi citite;
• Citeşte în locuri fixe informaţiile , procedând în felul următor:
o Citirea propriu-zisă se face în variabile de tip string;
o În cazul notelor, care sunt numere reale, citirea se face în mod repetitiv până când sunt îndeplinite simultan condiţiile:
- Conţinutul tipului string în care au fost citite se poate converti fără eroare în variabile reale (pentru aceasta se utilizează procedura VAL cu cei trei parametri: numele variabilei de tip string, numele variabilei reale în care urmează să se facă conversia şi numele variabilei care reţine dacă operaţia a reuşit , caz în care ia valoarea 0, astfel ia o valoare diferită de 0);
- Notele tastate sunt mai mari ca 0 şi mai mici sau egale cu 10;
- Şirul citit nu este vid (datorită apăsării din greşeală a tastei RETURN).

Procedura ADAUGARE are rolul de a adăuga la sfârşitul fişierului una sau mai multe înregistrări. Se procedează în felul următor:
• Se deschide fişierul pentru citire ;
• Se află numărul de înregistrări ale fişierului (pentru aceasta se utilizează funcţia FILESIZE);
• Cu ajutorul funcţiei SEEK se face poziţionarea după ultima înregistrare (pe marcajul sfârşitului de fişier);
• Cu ajutorul procedurii CITIRE_TAST se citesc informaţiile de la tastatură;
• După calculul mediei generale, înregistrarea este scrisă;
• Procedeul continuă până când utilizatorul , care este întrebat de fiecare dată dacă doreşte sau nu acest lucru, răspunde negativ.

Procedura STERGERE are rolul de şterge o înregistrare. În acest scop se procedează astfel:
• Se cere numele candidatului ce urmează a fi şters;
• Întrucât în fişiere secvenţele nu există o instruncţiune capabilă de a şterge o înregistrare, fişierul de unde urmează a fi ştearsă înregistrarea este citit iar fiecare înregistrare diferită de cea care urmează a fi ştearsă este trecută într-un fişier de manevră; în final , fişierul iniţial este şters iar fişierul de manevră capătă numele iniţial;
• În plus, dacă este găsită înregistrarea ce urmează a fi ştearsă , se semnalează acest lucru într-o variabilă booleană iar la sfârşit utilizatorul ştie dacă acţiunea de ştergere a fost încununată de succes sau nu.
Funcţia POS are rolul de a căuta un subşir şi în cazul în care acesta este găsit ia o valoare diferită de 0 , în caz contrar ia valoarea 0. Această funcţie este folosită în procedură pentru a căuta numele candidatului în cadrul variabilei ce reţine numele din înregistrarea citită (în felul acesta se evită cerinţa suplimentară ca atât numele prezent în cadrul înregistrării cât şi numele tastat în procedură să ocupe aceleaşi poziţii în cadrul variabilelor ce le corespund).

Procedura MODIFICARE are rolul de a modifica o înregistrare din cadrul fişierului. Se procedează astfel:
• Se cere numele candidatului a cărui înregistrare urmează a fi modificată;
• Se parcurge fişierul până când este găsită înregistrarea corespunzătoare sau până când a fost citit tot fişierul;
• Dacă înregistrarea a fost găsită , poziţionăm pointer-ul asupra ei (utilizând funcţia FILEPOS , care furnizează numărul de înregistrări deja citite şi procedura SEEK pentru poziţionare);
• Se citesc noile informaţii corespunzătoare ei prin intermediul procedurii CITIRE_TAST , informaţii care sunt trecute în locul vechii înregistrări;
• Se semnalează utilizatorului dacă înregistrarea cu numele citit în procedură nu a fost găsită.

Procedura SORTARE are rolul de a sorta fişierul de candidaţi în ordinea descrescătoare mediilor. Pentru aceasta se foloseşte o metodă cunoscută sub numele de metoda bulelor. Algoritmul este următorul:
• Se compară media generală a candidatului care se găseşte în prima înregistrare cu media generală a candidatului ce se găseşte în a doua înregistrare din fişier iar în cazul în care prima medie este mică decât a doua cele două înregistrări se inversează;
• Se compară în mod asemănător şi se inversează dacă este cazul înregistrările a doua cu a treia ;
• Se compară şi se inversează dacă este cazul penultima şi ultima înregistrare din fişier;
• Dacă în timpul parcurgerii fişierului s-a efectuat cel puţin o interschimbare de înregistrări , se reia parcurgerea fişierului , în caz contrar algoritmul se încheie iar înregistrările sale sunt sortate.

Procedura LISTARE_P listează pe monitor fişierul de candidaţi:
• Utilizează procedura CAPTAB ce are rolul de a tipări capul de tabel (întrucât procedura CAPTAB are posibilitatea de a tipări capul de tabel atât pe monitor cât şi la imprimantă , aceasta este apelată ca un parametru ce ia valoarea 0 pentru monitor şi valoarea 1 pentru imprimantă);
• Pentru a evita consecinţele neplăcute ale fenomenului de defilare pe monitor , se cere numărul de rânduri ce vor fi prezentate simultan pe ecran (număr ce include şi cele 4 rânduri ocupate de capul de tabel şi titlul raportului);
• După fiecare ecran listat utilizatorul este întrebat dacă doreşte să continue sau nu listarea.
Listarea la imprimantă a candidaţilor admişi se face prin apelarea a trei proceduri:
• DIALOG
• ADMRESP
• LISTARE_A.
Procedura DIALOG îi cere utilizatorului numărul de locuri puse la dispoziţia candidaţilor. Dialogul cu utilizatorul se face luând măsurile de protecţie următoare:
• De a nu introduce un număr greşit (pentru siguranţă , utilizatorul este întrebat dacă ce a introdus este corect sau nu);
• Dea inhiba o eventuală întrerupere de program ca urmare a introducerii unei litere în locul unei cifre.

Procedura ADMRESP calculează numărul de candidaţi admişi şi numărul de candidaţi respinşi. Pentru ca un candidat să fie admis este necesar să îndeplinească următoarele condiţii:
• Să aibă o medie generală mai mare sau egală cu 5;
• În ordinea descrescătoare a mediilor să aibă o medie care se încadrează în numărul de locuri , sau egală cu cea a candidatului ultim admis;
• Numărul de candidaţi respinşi se calculează ca diferenţa dintre numărul candidaţilor (numărul de înregistrări din fişier) şi cei admişi.
Procedura LISTARE_A are rolul de a lista la imprimantă candidaţii admişi. Ea cere utilizatorului să furnizeze numărul de rânduri ce se vor tipări pe o pagină:
• Se tipăreşte capul de tabel utilizând procedura CAPTAB cu parametrul 1 (pentru a lista capul de tabel şi titlul la imprimantă);
• Informaţiile corespunzătoare fiecărei înregistrări sunt convenite în variabile de tip string (cu procedura STR ce are doi parametri: numele variabilei sursă şi numele variabilei destinaţie), iar acestea sunt inserate în variabile de tip string rând (cu ajutorul procedurii INSERT cu trei parametri şi anume variabila destinaţie , variabila sursă şi lungimea pe care să se facă transferul );
• Variabila rând este tipărită;
• După fiecare pagină se aşteaptă introducerea noii pagini după care procesul se reia până la tipărirea tuturor candidaţilor;

Procedura CAPTAB scrie titlul şi capul de tabel pe monitor sau la imprimantă, după parametrul cu care a fost apelată (0 sau1).Pentru scrierea titlului se apelează procedura TITLU cu acelaşi parametru (0 şi 1) pentru monitor sau imprimantă.
Programul utilizator care lansează această aplicaţie este următorul:

program  examen;

uses  fis;

begin

  aplic

end.

Iată şi unitatea de program:
 

unit fis;

interface

uses  crt, menu,util;

procedure  aplic;

implementation

type inr= record

            nume:string[20];

            nota1,nota2,media:real

          end;

var n1,n2:real;

    nume,nume_f:string[20];

    tit:string[40];

    buf:string[5];

    c_er,inr_loc,nr_adm,nr_resp:integer;

    inreg:inr;

    f,h:file of inr;

    imprim:text;

procedure  interfata;

begin

  window(1,1,80,25);

  textbackground(negru);

  textcolor(alb);

  clrscr;

  cursor(true);

  gotoxy(25,1);

  write('inregistrarea ',i);

  gotoxy(3,3);

  write('nume candidat');

  gotoxy(3,5);

  write('nota proba 1');

  gotoxy(3,7);

  write('nota proba 2');

  repeat

    gotoxy(20,3);

    clreol;

    readln(nume)

  until nume<>'';

  repeat

    gotoxy(20,5);

    clreol;

    readln(buf);

    val(buf,n1,c_er)

  until (c_er=0) and (buf<>'') and (n1>=0 and (n1<=10;

  repeat

    gotoxy(20,7);

    clreol;

    readln(buf);

    val(buf,n2,c_er)

  until (c_er=0) and (buf<>'') and (n2>=0) and (n2<=10);

end;

procedure citire_tast;

var c:char;

begin

  repeat

    interfata;

    gotoxy(3,20);

    write('corect (y/n)');

    gotoxy(17,20);

    c:=readkey;

  until c<>'n'

end;

procedure  creare;

var c:char;

begin

  rewrite(f);

  i:=0

  repeat

    i:=i+1;

    citire_tast;

    inreg.nume:=nume;

    inreg.nota1:=n1;

    inreg.nota2:=n2;

    inreg.media:=(n1+n2)/2;

    write(f,inreg);

    gotoxy(3,21);

    write('continuati (y/n) ');

    gotoxy(20,21);

    c:=readkey;

  until c='n';

  close(f)

end;

procedure dialog1;

var  c:char;

begin

  textbackground(negru);

  textcolor(alb);

  clscr;

  gotoxy(10,4);

  write('numele fisierului');

  repeat

    gotoxy(30,4);clreol;

    read(nume_f);

    gotoxy(10,20);

    write('corect (y/n)');

    gotoxy(25,20);

    readln;

    c:=reakey;

    delline

  until c='y';

  assign(f,nume_f);

  {$i-} reset(f); {$i+}

  gotoxy(10,20);

  if ioresult=0 then

  begin

    close(f);

    gotoxy(10,20);

    write('fisierul exista ');

  end

  else write('fisierul trebuie creat ');

  delay(2000);

end;

procedure  adaugare;

var  c:char;

begin

  assign(f,nume_f);

  reset(f);

  i:=filesiye(f);

  seek(f,i);

  repeat

    i:=i+1;

    citire_tast;

    inreg.nume:=nume;

    inreg.nota1:=n1;

    inreg.nota2:=n2;

    inreg.media:=(n11+m2)/2;

    write(f,inreg);

    gotoxy(3,21);

    write('continuati (y/n) ' );

    gotoxy(20,21);

    c:=readkey;

  until c='n';

  close(f);

end;

procedure stergere;

var c:inr;

    num:string[80];

    gasit:boolean;

    a:string[1];

begin

  window(1,1,80,25);

  textbackground(negru);

  textcolor(alb);

  clrscr;

  write('numele  candidatuluipe care il stergeti : ');

  readln(num);

  assign(f,nume_f);

  reset(f);

  assign(h,'fman.dat');

  rewrite(h);

  gasit:=false;

  while not eof(f) do

  begin

    read(f,c);

    if pos(num,c.nume)<>0 then gasit:=true

                          else  write(h,c);

  end;

  if gasit   then writeln ('succes-inregistrare stearsa')

             else  writeln ('inregistrare negasita ');

  close(f);

  close(h);

  erase(f);

  rename*(h,nume_f);

  gotoxy(1,20);

  writeln('apasati o tasta...');

  a:=readkey

end;

procedure  modificare;

var  c:inr;

     num:string[80];

     gasit:boolean;

     a:string[1];

begin

  window(1,1,89,25);

  textbackground(negru);

  textcolor(alb);

  clrscr;

  cursor(true);

  assign(f,nume_f);

  reset(f);

  write('numele candidatului ce urmeaza a fi modificat  ?');

  readln(num);

  gasit:=false;

  while (not eof(f)) and (not gasit)do

  begin

    read(f,c);

    if num=c.nume then gasit:=true;

  end;

  i:=filepos(f);

  if gasit then

  begin

    citire_tast;

    c.nume:=nume;

    c.nota1:=n1;

    c.nota2:=n2;

    c.media:=(n1+n2)/2;

    seek(f,i-1);

    write(f,c);

  end

  else  writeln('nu exista aceasta inregistrare ');

  writeln(apasati o tasta');

  a:=readkey;

  close(f);

end;

procedure sortare;

var c,d:inr;

    n,j:integer;

    inversari:boolean;

begin

  assign(f,nume_f);

  reset(f);

  n:=filesize(f);

  repeat

    inversari:=false;

    for j:=0 to n-2 do

    begin

      seek(f,j);

      read(f,c);

      read(f,d);

      if d.media>c.media then

      begin

        seek(f,j);

        write(f,d);

        write(f,c);

        inversari:=true

      end

    end

  until not invarsari;

  close(f)

end;

procedure  titlu(t:integer);

var c:char;

begin

  if t=0 then

  begin

    clrscr;

    gotoxy(14,1);

    write(tit)

  end

  else

  begin

    writeln('deschideti imprimanta');

    writeln('apasati o tasta');

    c:=readkey;

    repeat

      {$i-}

      writeln(imprim,tit);

      {$i+}

    until ioresult=0

  end;

end;

procedure captab(t: integer);

var a,b:string[60];

begin

  a:='***********************************************************';

  b:='*nc*          nume elev     *  nota1   * nota2  *  media  *';

  titlu(t);

  if t=0 then

  begin

    gotoxy(1,2);write(a);

    gotoxy(1,3);write(b);

    gotoxy(1,4);write(a);

  end

  else

  begin

    a:='    '+a;

    b:='    '+b;

    writeln(imprim,a);

    writeln(imprim,b);

    writeln(imprim,a);

  end

end;

procedure  listare_p;

var nr_rand,j:integr;

    c:string[1];

begin

  tit:='lista de verificare';

  repeat

    window(1,1,80,25);

    textbackground(negru);

    textcolor(alb);

    clrscr;

    cursor(true);

    write('cate randuri sa se tipareasca pe ecran ? ');

    readln(nr_rand)

  until (nr_rand>=4) and (nr_rand<=20);

  assign(f,nume_f);

  reset(f);

  c:='y';

  i:=1;

  while (not eof(f)) and (c<>'n') do

  begin

    j:=5;

    captab(0);

    while (j<=nr_rand) and (not eof(f)) and (c<>'n') do

    begin

      read(f,inreg);

      gotoxy(2,j); write(i);

      gotoxy(5,j); write(inreg.nume);

      gotoxy(26,j); write(inreg.nota1:2:2);

      gotoxy(34,j); write(inreg.nota2:2:2);

      gotoxy(42,j); write(inreg.media:2:2);

      j:=j+1;

      i:=i+1

    end;

    gotoxy(1,21);

    write('continuati? (y/n) ');

    gotoxy(20,21);

    readln(c);

  end;

  close(f)

end;

procedure listare_a;

var c:char;

    n,j,k:integer;

    rand :string[60];

    man:string[3];

    man1:string[5];

begin

  if nr_adm<>0 then

  begin

    clrscr;

    assign(f,nume_f);

    reset(f);

    repeat

      write('cate randuri pe pagina (5..55) ');

      {$i-} readln(n) {$i+}

    until (ioresult=0) and (n>5) and(n<=55);

    j:=1;

    assign(imprim,'prn');

    rewrite(imprim);

    repeat

      k:=5;

      tit:='candidati admisi';

      captab(1);

      repeat

        read(f,inreg);

        rand:='

        man:='   ';

        man1:='    ';

        str(j,man);

        insert(man,rand,2);

        insert(inreg.nume.rand,5);

        str(inreg.nota1:2:2,man1);

        insert(man1,rand,26);

        str(inreg.nota2:2:2,man1);

        insert(man1,rand,34);

        str(inreg.media:2:2,man1);

        insert(man1,rand,42);

        rand:='    '+rand;

        writeln(imprim,rand);

        j:=j+1;

        k:=k+1

      until (k=n) or ( j=nr_adm+1)

    until j=nr_adm+1;

    close(f);

    close(imprim)

  end

end;

procedure  dialog;

var c:char;

begin

  window(1,1,80,25);

  textbackground(negru);

  textcolor(alb);

  cursor(true);

  clrscr;

  repeat

    repeat

      write('cate locuri sunt ? ');

      {$i-} readln(nr_loc);{$i+}

    until ioresult=0;

    write (,corect (y/n) ');

    readln(c);

  until c='y'

end;

procedure  admresp;

var c:inr;

    n:real;

    d:char;

begin

  nr_adm:=0;

  assign(f,nume_f);

  reset(f);

  repeat

    read(f,c);

    if c.media>=5 then  nr_adm:=nr_adm+1

  until eof(f) or (c.media>5) or(nr_adm=nr_loc);

  n:=c.media;

  while (c.media=n) and (n>=5) and (not eof(f) do

  begin

    read(f,c);

    if c.media=n then nr_adm:=nr_adm+1;

  end;

  nr_resp:=filesize(f)-nr_adm;

  clrscr;

  writeln('nr_adm=',nr_adm);

  writeln('nr_resp+',nr_resp);

  close(f);

  writeln('apasati o tasta ');

  d:=readkey

end;

procedure  aplic;

var a:men;

    b:string;

begin

  dialog1;

  textbackground(negru);

  clrscr;

  b:='  CREARE   ADAUGARE   STERGERE ';

  b:=-b+'MODIFICARE  SORTARE ';

  b:=b+'  LIST-PROB  LIST-ADMS ';

  a.deschidm(2,1,77,1,rosu,verde,0,11,0,b,false);

  repeat

    if a.selectat then a. salvez;

    case a.citxb of

      1: creare;

      12: adaugare;

      23: stergere;

      34: modificare;

      45: sortare;

      56: listare_p;

      67: begin

            dialog;

            admresp;

            listare_a

          end

    end {case};

    a.restaurezm

  until a.inchis

end;

end.

FIŞIERE FĂRĂ TIP


Fişierele fără tip sunt constituite din blocuri de lungime fixă, motiv pentru care acestea se mai numesc şi fişiere cu prelucrare la nivel de bloc. În cadrul blocurilor, informaţia se scrie direct sub forma în care apare în memoria internă, fără a se converti.
Blocurile se numerotează cu numere cuprinse între 0 şi n. Din acest motiv se poate folosi procedura SEEK în forma cunoscută şi ea are rolul de a poziţiona pointer-ul pe un anume loc. O variabilă de tip fişier fără tip se declară cu ajutorul cuvântului cheie FILE.
Exemplu: a:file;
Asignarea fişierului la suportul extern se face cu ajutorul procedurii ASSIGN, exact cum se procedează şi în cazul celorlalte tipuri de fişiere.
Deschiderea fişierelor pentru a creare se realizează cu ajutorul procedurii REWRITE. Forma generală a acestei proceduri este:
REWRITE (var nume fişier,[număr de octeţi pentru un bloc])
În cazul în care al doilea parametru este absent, blocul va avea o lungime standard de 128 octeţi.
Scrierea blocurilor se face cu ajutorul procedurii BLOCKWRITE care are următoarea formă generală :
BLOCKWRITE (nume fişier, nume variabilă în care se face citirea, număr de blocuri care se citesc ,[variabila ce re’ine numărul de blocuri efectiv citite]).
În cazul în care ultimul parametru este absent se citesc mai puţine blocuri decât au fost solicitate , procedura se termină cu eroare de intrare / ieşire.

Programul care urmează creează un fişier fără tip cu n înregistrări.

program  fft1;

 type inreg= record

               nume:string[16];

               varsta:integer;

             end;

 var f:file;

     inr:inreg;

     n,i:integer;

 begin

   assign(f,'fblk');

   write('n');

   readln(n);

   rewrite(f,19);

   for i:=1 to n do

   begin

     write('nume=');

     readln(inr.nume);

     write('varsta=');

     readln(inr.varsta);

     blockwrite(f,inr,1);

     end;

     close(f)

 end.

Deschiderea pentru citire (sau scriere, în caz de actualizare a fişierului) se face cu ajutorul procedurii RESET care are forma de apel:
RESET (variabila fişier,[număr de octeţi pe care a fost scris blocul]).
Citirea unui bloc se face cu ajutorul procedurii BLOCKREAD, în care:
BLOCKREAD (variabila fişier, variabila unde se face citirea , numărul de blocuri care se vor citi, [variabila care reţine numărul de blocuri efectiv citite]).
Sfârşitul de fişier se testează cu ajutorul funcţiei booleene EOF, la fel ca şi la celelalte tipuri de fişiere.

program   fft2;

 type  inreg= record

                nume:string[16];

                varsta:integer;

              end;

 var f:file;

     inr:inreg;

 begin

   assign(f,'fblk');

   reset(f,19);

   while not eof(f) do

   begin

     blockread(f,inr,1);

     writeln(inr.nume, ' ', inr.varsta)

   end;

   close(f)

 end.

Nu este obligatoriu să se citească un fişier fără tip într-o variabilă de tip record. Blocul se memorează începând cu o anumită variabilă , pe toată lungimea lui (acolo trebuie să se găsească alte variabile în care să se facă memorarea). Un exemplu, în acest sens , îl constituie programul următor (listează acelaşi fişier).

program  fft3;

 {$a-}

 var f:file;

     nume:string[16];

     varsta:integer;

 begin

   assign9f,'fblk');

   reset(f,19);

   while not eof(f) do

   begin

     blockread(f,nume,1);

     writeln(nume,'  ', varsta)

   end;

   close(f)

 end.

compilatorul rezervă spaţiu pentru variabile în memoria internă, după un anumit mecanism. Astfel, pentru o variabilă de tip integer se rezervă doi octeţi la o adresă multiplu de 2. Din acest motiv, apar octeţi neocupaţi de variabile, care însă sunt folosiţi la citirea blocului. În acest fel, este posibil să nu regăsim rezultatele pe care le aşteptăm. Rolul opţiunii de compilare este acela de a comanda compilatorul ca toate variabilele să fie adrese multiple de 1 (deci nu rămân octeţi nerezervaţi).
Şi pentru aceste fişiere poate fi folosită funcţia FILESIZE la fel ca la cele cu tip. Toate operaţiile de actualizare se fac la fel cala fişierele cu tip.

   Daca referatele nu sunt de ajuns, va recomandam pagina de download gratuit, unde veti gasi prezentari PowerPoint, programe executabile, programe pentru bacalaureat, teze nationale, etc.