На странице представлен фрагмент
Реши любую задачу с помощью нейросети.
Список служащих хранится в виде файла записей. Для каждого служащего указаны фамилия и инициалы, название занимаемой должности, год поступления на работу и оклад. Написать программу, выполняющую:
ввод данных в список с клавиатуры;
вывод на экран информации о служащем, фамилия которого введена с клавиатуры;
вывод на экран информации о служащих с должностью «менеджер», стаж которых – более четырех лет;
вывод на экран информации о служащем, имеющим наибольший оклад.
Часть выполненной работы
b:=true;
end;
i:=i+1 end;
closefile(f3); if b=false then
ShowMessage(‘Â áàçå íåò òàêîé ôàìèëèè’);
end;
Процедура нахождения менеджера со стажем более трех лет
procedure TForm1.BitBtn17Click(Sender: TObject);
var i,j:integer; sap:Tnote;b:boolean;
begin
b:=false;
reset(f3); i:=0;
seek(f3,0);
while not Eof(f3) do
begin
seek(f3,i);
read(f3,sap) ;
if ((sap.t=’менеджер’)or (sap.t=’Менеджер’)) and (2014-sap.g>3) then
begin
Memo3.Lines.Add(sap.x+’ ‘+sap.y+’ ‘+sap.t+’ ‘+inttostr(sap.g)+ ‘ ‘+
inttostr(sap.o));
b:=true;
end;
i:=i+1 end;
closefile(f3); if…
