Есть офис сотрудников указаны фамилию,имя,стаж, номер телефона и зароботная платаю
А) Вывести список сотрудников чей стаж не менее 20 лет работы
В) Вывести список сотрудников две первые цифры номера которых одинаковы
Часть А я сделал.
program Kursovaya;
type group=record
surname:string[10];
name:string[10];
year:integer;
money:integer;
number:string[7];
end;
var F:file of group;
G:group; i,n:integer; s:string;
begin
Assign(F,'C:\TP7\kursovaya.pas');
write('Vvedite chislo sotrudnikov'); readln(n); rewrite(F);
For i:=1 to n do begin with G do
begin
readln(surname);
readln(name);
readln(year);
readln(money);
readln(number);
end;
write(F,G);
end;
reset(F);
WHILE NOT EOF (F) do begin
read (F,G);
IF(G.year>=20) then begin
writeln('Staj raboti ne menee 20 let');
writeln(G.surname);
writeln(G.name);
close(F);end.
Это первая часть проги которую я смог сделать
для второй части Мне посоветвали сделать
var s:array[1..100];
For i:=1 to n do
s[i]:=copy(G.number,1,2) {записать в массив первые две цифры номера и сравнивать их}
А можно еще сделать
number:longint;
var:array[1..100];
for i:=1 to n do
s[i]:=G.number div 100000 ; {так как все номера у меня семизначныеЪ
Но я не знаю как сравнивать и как сделать так чтобы выводило фамилии сотрудников чьи номера начинаются с двух первых цифр.
Заранее спасибо!
Например
1. петров 123456
2.сидоров 127456
3.иванов 134585
4.козлов 139856
5.баранов 224558
6. Ишаков 129547
Ответ:
Номера одинаковые у: Петров, Сидоров,Ишаков
Номера одинаковые у: Иванов, Козлов
Просьба помочь!! Спасибо
Сообщение отредактировано: Abror -