Помощь - Поиск - Пользователи - Календарь
Полная версия: Использование процедур
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Nalis
Здравствуйте, помогите пожайлуста дописать программку, условие такое-
Список деталей механического устройства с разбивкой деталей по агрегатам. Количество агрегатов и деталей в каждом агрегате задать самостоятельно. Составить модуль формирования нового списка деталей, общих для двух заданных агрегатов.
Программку нужно выполнить с использованием нескольких процедур
 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
Программка рабочая, но нужно сделать- "Составить модуль формирования нового списка деталей, общих для двух заданных агрегатов."
мисс_граффити
тебе надо изменить поиск: не просить пользователя ввести, а передавать искомую деталюху как параметр.
ну и можно его сделать функцией, возвращающей результат типа boolean (найден/не найден).

тогда идешь по одному списку, и, если деталь есть в другом, выводишь ее...
Nalis
Цитата(мисс_граффити @ 15.06.2007 23:40) *

тебе надо изменить поиск: не просить пользователя ввести, а передавать искомую деталюху как параметр.
ну и можно его сделать функцией, возвращающей результат типа boolean (найден/не найден).

тогда идешь по одному списку, и, если деталь есть в другом, выводишь ее...

Не подскажите как это воплотить в реальность, хотя бы наработачку, а то к завтрашнему дню уже blink.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.