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.