Turbo Pascal. Примеры выполнения задач_5 / V41 / V41_N11

Program V41_N11;
uses crt;
TYPE
 zapis=record
  Nm                :integer;
  Np,Kp             :string[10];
  Op,T,KolG,KolTur  :real;
 end;
var
 Q,Q1   :zapis;
 F,F1   :file of zapis;
 k,n,i  :integer;
 n1     :array[1..3]of integer;
BEGIN
 k:=0;
 while k<>6 do begin
  clrscr;
  writeln('‘®§¤ вм д ©« - 1');
  writeln('—⥭ЁҐ д ©«  - 2');
  writeln('‚лў®¤ Ї® § ¤ ­Ёо - 3');
  writeln('“¤ «Ґ­ЁҐ § ЇЁбҐ© - 4');
  writeln('„®Ў ўЁвм § ЇЁбЁ - 5');
  writeln('‚л室 - 6');
  write('‚ўҐ¤ЁвҐ ­®¬Ґа: ');
  readln(k);
  case k of
   1:begin
    clrscr;
    assign(F,'V41_N11.zap');
    rewrite(F);
    write('‚ўҐ¤ЁвҐ Є®«-ў® ўў®¤Ё¬ле § ЇЁбҐ©: ');
    readln(n);
    for i:=1 to n do begin
     write('‚ўҐ¤ЁвҐ ­®¬Ґа ¬ аиагв : ');
     readln(Q.Nm);
     write('‚ўҐ¤ЁвҐ ­ з «м­л© Їг­Єв ¬ аиагв : ');
     readln(Q.Np);
     write('‚ўҐ¤ЁвҐ Є®­Ґз­л© Їг­Єв ¬ аиагв : ');
     readln(Q.Kp);
     write('‚ўҐ¤ЁвҐ ®Ўйго Їа®в殮­­®бвм ¬ аиагв : ');
     readln(Q.Op);
     write('‚ўҐ¤ЁвҐ ўаҐ¬п ў ЇгвЁ: ');
     readln(Q.T);
     write('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® ЈагЇЇ: ');
     readln(Q.KolG);
     write('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® вгаЁбв®ў ў ЈагЇЇҐ: ');
     readln(Q.KolTur);
     write(F,Q);
    end;
    close(F);
   end;
   2:begin
    clrscr;
    assign(F,'V41_N11.zap');
    reset(F);
    writeln('ЪДДДДДДДВДДДДДДДДДДВДДДДДДДДДДВДДДДДДДДДДВДДДДДДДВДДДДДДДДВДДДДДДДДДДДДї');
    writeln('і Ќ®¬Ґа і  Џг­Єв   і Љ®­Ґз­л© і ЋЎй п    і ‚аҐ¬п і Љ®«-ў® і Љ®«-ў® вг- і');
    writeln('і ¬ аи- і  ­ з «   і Їг­Єв    і Їа®вп-   і ў Їг- і ЈагЇЇ  і аЁбв®ў ў   і');
    writeln('і агв   і ¬ аиагв  і          і ¦Ґ­­®бвм і вЁ    і        і ЈагЇЇҐ     і');
    writeln('ГДДДДДДДЕДДДДДДДДДДЕДДДДДДДДДДЕДДДДДДДДДДЕДДДДДДДЕДДДДДДДДЕДДДДДДДДДДДДґ');
    while not eof(F) do begin
     read(F,Q);
     writeln('і',Q.Nm:7,'і',Q.Np:10,'і',Q.Kp:10,'і',Q.Op:10:1,'і',Q.T:7:1,'і',Q.KolG:8:0,'і',Q.KolTur:12:0,'і');
    end;
    writeln('АДДДДДДДБДДДДДДДДДДБДДДДДДДДДДБДДДДДДДДДДБДДДДДДДБДДДДДДДДБДДДДДДДДДДДДЩ');
    readln;
    close(F);
   end;
   3:begin
    clrscr;
    write('‚ўҐ¤ЁвҐ 3-Ё ­®¬Ґа  ¬ аиагв : ');
    for i:=1 to 3 do read(n1[i]);
    clrscr;
    assign(F,'V41_N11.zap');
    reset(F);
    writeln('ЪДДДДДДДВДДДДДДДДДДВДДДДДДДДДДВДДДДДДДДДДВДДДДДДДВДДДДДДДДВДДДДДДДДДДДДї');
    writeln('і Ќ®¬Ґа і  Џг­Єв   і Љ®­Ґз­л© і ЋЎй п    і ‚аҐ¬п і Љ®«-ў® і Љ®«-ў® вг- і');
    writeln('і ¬ аи- і  ­ з «   і Їг­Єв    і Їа®вп-   і ў Їг- і ЈагЇЇ  і аЁбв®ў ў   і');
    writeln('і агв   і ¬ аиагв  і          і ¦Ґ­­®бвм і вЁ    і        і ЈагЇЇҐ     і');
    writeln('ГДДДДДДДЕДДДДДДДДДДЕДДДДДДДДДДЕДДДДДДДДДДЕДДДДДДДЕДДДДДДДДЕДДДДДДДДДДДДґ');
    while not eof(F) do begin
     read(F,Q);
     if (Q.Nm=n1[1])or(Q.Nm=n1[2])or(Q.Nm=n1[3])then
      writeln('і',Q.Nm:7,'і',Q.Np:10,'і',Q.Kp:10,'і',Q.Op:10:1,'і',Q.T:7:1,'і',Q.KolG:8:0,'і',Q.KolTur:12:0,'і');
    end;
    writeln('АДДДДДДДБДДДДДДДДДДБДДДДДДДДДДБДДДДДДДДДДБДДДДДДДБДДДДДДДДБДДДДДДДДДДДДЩ');
    readln;
    readln;
    close(F);
   end;
   4:begin
    clrscr;
    assign(F,'V41_N11.zap');
    reset(F);
    assign(F1,'V41_N11.tmp');
    rewrite(F1);
    writeln('1 - Ќ®¬Ґа ¬ аиагв ');
    writeln('2 - Ќ з «м­л© Їг­Єв');
    writeln('3 - Љ®­Ґз­л© Їг­Єв');
    writeln('4 - ЋЎй п Їа®в殮­­®бвм');
    writeln('5 - ‚аҐ¬п ў ЇгвЁ');
    writeln('6 - Љ®«-ў® ЈагЇЇ');
    writeln('7 - Љ®«-ў® вгаЁбв®ў ў ЈагЇЇҐ');
    write('‚ўҐ¤ЁвҐ Їг­Єв: ');
    readln(n);
    case n of
     1:begin
      write('‚ўҐ¤ЁвҐ ­®¬Ґа ¬ аиагв : ');
      readln(Q1.Nm);
      while not eof(F) do begin
       read(F,Q);
       if Q.Nm<>Q1.Nm then write(F1,Q);
      end;
     end;
     2:begin
      write('‚ўҐ¤ЁвҐ ­ з «м­л© Їг­Єв ¬ аиагв : ');
      readln(Q1.Np);
      while not eof(F) do begin
       read(F,Q);
       if Q.Np<>Q1.Np then write(F1,Q);
      end;
     end;
     3:begin
      write('‚ўҐ¤ЁвҐ Є®­Ґз­л© Їг­Єв ¬ аиагв : ');
      readln(Q1.Kp);
      while not eof(F) do begin
       read(F,Q);
       if Q.Kp<>Q1.Kp then write(F1,Q);
      end;
     end;
     4:begin
       write('‚ўҐ¤ЁвҐ ®Ўйго Їа®в殮­­®бвм ¬ аиагв : ');
       readln(Q1.Op);
       while not eof(F) do begin
        read(F,Q);
        if Q.Op<>Q1.Op then write(F1,Q);
      end;
     end;
     5:begin
       write('‚ўҐ¤ЁвҐ ўаҐ¬п ў ЇгвЁ: ');
       readln(Q1.T);
       while not eof(F) do begin
        read(F,Q);
        if Q.T<>Q1.T then write(F1,Q);
      end;
     end;
     6:begin
       write('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® ЈагЇЇ: ');
       readln(Q1.KolG);
       while not eof(F) do begin
        read(F,Q);
        if Q.KolG<>Q1.KolG then write(F1,Q);
      end;
     end;
     7:begin
       write('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® вгаЁбв®ў ў ЈагЇЇҐ: ');
       readln(Q1.KolTur);
       while not eof(F) do begin
        read(F,Q);
        if Q.KolTur<>Q1.KolTur then write(F1,Q);
      end;
     end;
    end;
    close(F1);
    close(F);
    rewrite(F);
    reset(F1);
    while not eof(F1) do begin
     read(F1,Q);
     write(F,Q);
    end;
    close(F);
    close(F1);
    erase(F1);
   end;
   5:begin
    clrscr;
    assign(F,'V41_N11.zap');
    reset(F);
    seek(F,filesize(F));
    write('‚ўҐ¤ЁвҐ Є®«-ў® ¤®Ў ў«пҐ¬ле § ЇЁбҐ©: ');
    readln(n);
    for i:=1 to n do begin
     write('‚ўҐ¤ЁвҐ ­®¬Ґа ¬ аиагв : ');
     readln(Q.Nm);
     write('‚ўҐ¤ЁвҐ ­ з «м­л© Їг­Єв ¬ аиагв : ');
     readln(Q.Np);
     write('‚ўҐ¤ЁвҐ Є®­Ґз­л© Їг­Єв ¬ аиагв : ');
     readln(Q.Kp);
     write('‚ўҐ¤ЁвҐ ®Ўйго Їа®в殮­­®бвм ¬ аиагв : ');
     readln(Q.Op);
     write('‚ўҐ¤ЁвҐ ўаҐ¬п ў ЇгвЁ: ');
     readln(Q.T);
     write('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® ЈагЇЇ: ');
     readln(Q.KolG);
     write('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® вгаЁбв®ў ў ЈагЇЇҐ: ');
     readln(Q.KolTur);
     write(F,Q);
    end;
    close(F);
   end;
  end;
 end;
END.