Вариант 13
1.Файл содержит сведения о месячной зарплате, каждая запись которого содержит поля: фамилия работника и заработная плата.
2.Выдать информацию о работниках с заработной платой выше средней.
Препод сказал что задание правильное но нет действий с файлом :создать файл, записать информацию в файл.(файл в формате .txt)
Код: Выделить всё
Progam file13;
uses crt;
const
n=3;
type
mess=record
F:string;
Z:integer;
end;
var
F1:file of mess;
srZ,Z,i,w,j,k:integer;
st:array [1..n] of mess;
s:mess;
begin
clrscr
assign(F1,’mes_zar.txt’);
{$i-}
reset(F1);
{$i+}
if IOresult < >0 then
begin
writeln(‘Файла нет.Создать?’);
rewrite(F1);
for i:=1 to n do
with st[i] do
begin
writeln(‘Введите фамилию работника:’);
readln(F);
writeln(‘Введите зарплату:’);
readln(Z);
end;
seek(F1,0);
for k:=1 to n -1 do
for j:=k+1 to n do
if st[k].F>st[i].F then
begin
s:=st[k];
st[k]:=st[j];
st[j]:=s;
end;
for i:=1 to n do
writeln(st[i].F,’ ‘,st[i].Z,’ ‘);
w:=0;
for i:=1 to n do
with st[i] do
begin
w:=w+Z;
end;
writeln(w);
begin
srZ:=w div n;
writeln(‘Средняя зарпата’,srZ);
end;
begin for i:=1 to n do
if st[i].Z > srZ then
writeln(st[i].F,’ ‘,st[i].Z,’ ‘);
for i:=1 to n do
end;
for i:=1 to n do
writeln(F1,st[i]);
readln;
end;
end.