IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Использование процедур
Nalis
сообщение 15.06.2007 12:10
Сообщение #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
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 3)
Nalis
сообщение 15.06.2007 19:05
Сообщение #2


Гость






Программка рабочая, но нужно сделать- "Составить модуль формирования нового списка деталей, общих для двух заданных агрегатов."
 К началу страницы 
+ Ответить 
мисс_граффити
сообщение 15.06.2007 22:40
Сообщение #3


просто человек
******

Группа: Модераторы
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


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

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


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Nalis
сообщение 17.06.2007 12:13
Сообщение #4


Гость






Цитата(мисс_граффити @ 15.06.2007 23:40) *

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

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

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

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 8.08.2025 9:16
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"