Список деталей механического устройства с разбивкой деталей по агрегатам. Количество агрегатов и деталей в каждом агрегате задать самостоятельно. Составить модуль формирования нового списка деталей, общих для двух заданных агрегатов.
Программку нужно выполнить с использованием нескольких процедур
Program 1;
uses crt;
const
q = 500;
path = 'qw.txt';
type
dzap = ^zapis;
zapis = record
otdel : string[10];
tel : string[10];
next : dzap;
end;
var
zap, {tekushya zapis}
nachzap : dzap; {1 zapis}
t : text;
procedure vvod;
var
i : integer;
przap : dzap;
begin
clrscr;
assign (t, path);
reset (t);
i := 0;
nachzap := nil;
while not eof(t) do
begin
przap := zap;
new(zap);
with zap^ do
begin
next := nil;
if nachzap = nil then
nachzap := zap
else
przap^.next := zap;
readln(t, agregat);
writeln(agregat);
end;
end;
close(t);
end;
procedure poisk;
var
i : integer;
s : string;
begin
writeln ('vvedite agregat');
readln (s);
zap := nachzap;
while zap <> nil do
begin
if (zap^.tel[1] = s[1]) and (zap^.tel[2] = s[2]) then
writeln (zap^.otdel, zap^.tel);
zap := zap^.next;
end;
end;
begin
clrscr;
vvod;
poisk;
readkey;
end.
Сообщение отредактировано: Nalis -