![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
Nalis |
![]()
Сообщение
#1
|
Гость ![]() |
Здравствуйте, помогите пожайлуста дописать программку, условие такое-
Список деталей механического устройства с разбивкой деталей по агрегатам. Количество агрегатов и деталей в каждом агрегате задать самостоятельно. Составить модуль формирования нового списка деталей, общих для двух заданных агрегатов. Программку нужно выполнить с использованием нескольких процедур 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 - 15.06.2007 12:12 |
![]() ![]() |
Nalis |
![]()
Сообщение
#2
|
Гость ![]() |
Программка рабочая, но нужно сделать- "Составить модуль формирования нового списка деталей, общих для двух заданных агрегатов."
|
мисс_граффити |
![]()
Сообщение
#3
|
![]() просто человек ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 3 641 Пол: Женский Реальное имя: Юлия Репутация: ![]() ![]() ![]() |
тебе надо изменить поиск: не просить пользователя ввести, а передавать искомую деталюху как параметр.
ну и можно его сделать функцией, возвращающей результат типа boolean (найден/не найден). тогда идешь по одному списку, и, если деталь есть в другом, выводишь ее... -------------------- Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения! |
Nalis |
![]()
Сообщение
#4
|
Гость ![]() |
тебе надо изменить поиск: не просить пользователя ввести, а передавать искомую деталюху как параметр. ну и можно его сделать функцией, возвращающей результат типа boolean (найден/не найден). тогда идешь по одному списку, и, если деталь есть в другом, выводишь ее... Не подскажите как это воплотить в реальность, хотя бы наработачку, а то к завтрашнему дню уже ![]() |
![]() ![]() |
![]() |
Текстовая версия | 8.08.2025 9:16 |