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

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


var f: file of school;
    i,v:integer;
    z:school;
    st:string;
    n:byte;
    n_z:byte;
    s:real;
    procedure Vvod;
    procedure Vyvod;
    procedure Dobavit;
    procedure Redakt;
    procedure Delete;
    procedure Poisk;
    procedure Poisk1;

    implementation
    procedure vvod;
    begin
    clrscr;
    rewrite(f);
    readln;
    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(36,2); write('Klass');
     gotoXY(42,2); write('ь atest');
     gotoXY(52,2);  write('Sr bal');
     gotoXY(59,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(36,wherey); write(z.klass);
       gotoXY(42,wherey); write(z.nom_atest);
       gotoXY(52,wherey); write(z.sr_bal:4:2);
       gotoXY(59,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));
   readln;
   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);
      writeln('Hotite prodolzhit (d/n)');    readln(st);
         end;
   close(f);

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);
       gotoXY(57,wherey); write(z.u4_zaved);
       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
   readln;
   seek(f,n_z-1);

         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);
         close(f);
end;
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);
       gotoXY(57,wherey); write(z.u4_zaved);
       writeln;
       i:=i+1;

    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,filesize(f)-1);
  read(f,z);
  seek(f,n_z-1);
  write(f,z);
  seek(f,filesize(f)-1);
  truncate(f);
  writeln('Zapis udalena');
  end;

  readkey;
  end;

Procedure Poisk;
begin
  clrscr;
  reset(f);
  write('Vvedite srednii bal:'); readln(s);
  writeln; v:=0;
  writeln('Spisok vypusknikov so srednim balom vyshe:',s:4:2);
  for i:=1 to filesize(f) do
 begin
   read(f,z);
   if s<=z.sr_bal then
  begin
    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);
    writeln;
  end else v:=v+1;
 end;
 if v=i then writeln('Takogo sr_bala ne mozjet byt');
 readkey;
 close(f);
end;

Procedure Poisk1;
begin
  clrscr;
  reset(f);
  v:=0;;
  for i:=1 to filesize(f) do
 begin
   read(f,z);
   if z.u4_zaved='VNZ' then
  begin
    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);
    writeln;
  end else v:=v+1;
 end;
 if v=i then writeln('Vupusnikov net');
 readkey;
 close(f);
end;
end.