Курсовая работа / Новая папка (2) / Курсовая / VYPUSKNI

Unit vypuskniki;
interface
uses Crt;
type school = record
     fam,im,otch:string;
     klass:string;
     nom_atest:integer;
     sr_bal:real;
     u4_zaved:string;
     end;


var f: file of school;
    i:integer;
    z:school;
    st:string;
    n:byte;
    n_z:byte;
    procedure Vvod;
    procedure Vyvod;
    procedure Dobavit;
    procedure Redakt;
    procedure Delete;
   { procedure Poisk;  }

    implementation
    procedure vvod;
    begin
    clrscr;
    rewrite(f);
    i:=1; st:='d';
    while st='d' do
    begin
         clrscr;
         writeln('Vvedite dannye ',i, ' vypusknika');
         write('Vvedite familiju:');   readln(z.fam);
         write('Vvedite imja : ');               readln(z.im);
         write('Vvedite otchestvo : ');  readln(z.otch);
         write('Vvedite klass:'); readln(z.klass);
         write('Vvedite ь atestata:'); readln(z.nom_atest);
         write('Vvedite sredniy bal:'); readln(z.sr_bal);
         write('Vvedite vid uchebnogo zavedeniya (1-VNZ; 2-Kolleg; 3-Uchilishw; 4-ne u4itsya)');
         readln(n);
         case n of
         1:z.u4_zaved:='VNZ';
         2:z.u4_zaved:='Kolleg';
         3:z.u4_zaved:='Uchilishe';
         4:z.u4_zaved:='Ne u4itsya';
         end;
         write(f,z);
         i:=i+1;
         writeln ('Hotite prodolzhit (d/n)');readln(st);
         end;
         close(f);

         readkey;
         end;
     Procedure Vyvod;
begin
   clrscr;
   reset(f);
   if filesize(f)=0 then begin
   textcolor(4);
   writeln('‚ Ў §Ґ ­Ґв § ЇЁбҐ©');
   textcolor(15); end else
  begin
     gotoXY(34,1); Write('Spisok vypusknikov');

     gotoXY(1,2);  write('Familiya');
     gotoXY(12,2); write('Im9');
     gotoXY(22,2);  write('Ot4estvo');
     gotoXY(34,2); write('Klass');
     gotoXY(40,2); write('ь atest');
     gotoXY(50,2);  write('Sr bal');
     gotoXY(57,2);  write('Vid u/z');
     writeln; i:=1;
   while not (eof(f)) do
    begin
       read(f,z);
       gotoXY(1,wherey);  write(z.fam);
       gotoXY(12,wherey);  write(z.im);
       gotoXY(22,wherey); write(z.otch);
       gotoXY(34,wherey); write(z.klass);
       gotoXY(40,wherey); write(z.nom_atest);
       gotoXY(50,wherey); write(z.sr_bal:4:2);
       gotoXY(57,wherey); write(z.u4_zaved);
       i:=i+1;
       writeln;
    end;
  end;
   close(f);
   readkey;
end;

Procedure Dobavit;
Begin
   clrscr;
   reset(f);
   seek(f,filesize(f));
   st:='d';
  while st='d' do
   begin
      clrscr;
         writeln('Vvedite dannye ',i, ' vypusknika');
         write('Vvedite familiju:');   readln(z.fam);
         write('Vvedite imja : ');               readln(z.im);
         write('Vvedite otchestvo : ');  readln(z.otch);
         write('Vvedite klass:'); readln(z.klass);
         write('Vvedite ь atestata:'); readln(z.nom_atest);
         write('Vvedite sredniy bal:'); readln(z.sr_bal);
        { write('Vvedite vid uchebnogo zavedeniya(1-VNZ; 2-Kolleg; 3-Uchilishw; 4-ne u4itsya :');
         readln(n);
         case n of
         1:readln(z.u4_zaved:='VNZ');
         2:readln(z.u4_zaved:='Kolleg');
         3:readln(z.u4_zaved:='Uchilishe');
         4:readln(z.u4_zaved:='Ne u4itsya');
         }
         i:=i+1;
         writeln;
      write(f,z);
      writeln('Hotite prodolzhit (d/n)');    readln(st);

   close(f);
end;
readkey;
end;

Procedure Redakt;
begin
   clrscr;
   reset(f);
   if filesize(f)=0 then begin
   textcolor(4);
   writeln('V BD netu danoi zapisi');
   textcolor(15); end else
begin
     gotoXY(34,1); Write('Spisok vypusknikov');

     gotoXY(1,2);  write('Familiya');
     gotoXY(12,2); write('Im9');
     gotoXY(22,2);  write('Ot4estvo');
     gotoXY(34,2); write('Klass');
     gotoXY(40,2); write('ь atest');
     gotoXY(50,2);  write('Sr bal');
    { gotoXY(57,2);  write('Vid u/z');}
     writeln; i:=1;
   while not (eof(f)) do
    begin
       read(f,z);
       gotoXY(1,wherey);  write(z.fam);
       gotoXY(12,wherey);  write(z.im);
       gotoXY(22,wherey); write(z.otch);
       gotoXY(34,wherey); write(z.klass);
       gotoXY(40,wherey); write(z.nom_atest);
       gotoXY(50,wherey); write(z.sr_bal:4:2);
       i:=i+1;
       writeln;
    end;
  end;
   close(f);
   reset(f);
   writeln;
   write('Nomer zapisi:'); read(n_z);
   if n_z>filesize(f) then write('Danaya zapis otsutstvuet') else
   begin
   seek(f,n-1);
   writeln('Vvedite dannye ',i, ' vypusknika');
         write('Vvedite familiju:');   readln(z.fam);
         write('Vvedite imja : ');               readln(z.im);
         write('Vvedite otchestvo : ');  readln(z.otch);
         write('Vvedite klass:'); readln(z.klass);
         write('Vvedite ь atestata:'); readln(z.nom_atest);
         write('Vvedite sredniy bal:'); readln(z.sr_bal);
        { write('Vvedite vid uchebnogo zavedeniya (1-VNZ; 2-Kolleg; 3-Uchilishw; 4-ne u4itsya)');
         readln(n);
         case n of
         1:readln(z.u4_zaved:='VNZ');
         2:readln(z.u4_zaved:='Kolleg');
         3:readln(z.u4_zaved:='Uchilishe');
         4:readln(z.u4_zaved:='Ne u4itsya');  }

         write(f,z);
end;

close(f);
readkey;
end;

procedure delete;
begin
   clrscr;
   reset(f);
   if filesize(f)=0 then begin
   textcolor(4);
   writeln('V BD netu danoi zapisi');
   textcolor(15); end else
begin
     gotoXY(34,1); Write('Spisok vypusknikov');

     gotoXY(1,2);  write('Familiya');
     gotoXY(12,2); write('Im9');
     gotoXY(22,2);  write('Ot4estvo');
     gotoXY(34,2); write('Klass');
     gotoXY(40,2); write('ь atest');
     gotoXY(50,2);  write('Sr bal');
    { gotoXY(57,2);  write('Vid u/z');}
     writeln; i:=1;
   while not (eof(f)) do
    begin
       read(f,z);
       gotoXY(1,wherey);  write(z.fam);
       gotoXY(12,wherey);  write(z.im);
       gotoXY(22,wherey); write(z.otch);
       gotoXY(34,wherey); write(z.klass);
       gotoXY(40,wherey); write(z.nom_atest);
       gotoXY(50,wherey); write(z.sr_bal:4:2);
       writeln;
       i:=i+1;

    end;

   close(f);
   writeln;
   reset(f);

   write('Nomer zapisi:'); read(n_z);
   if n_z>filesize(f) then write('Danaya zapis otsutstvuet') else
   begin
  seek(f,filesize(f)-1);
  read(f,z);
  seek(f,n-1);
  write(f,z);
  seek(f,filesize(f)-1);
  truncate(f);
  writeln('Zapis udalena');
  end;
  end;
  readkey;
  end;
end.