Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.12.2012, 23:13   #1
igagogi
Пользователь
 
Регистрация: 23.12.2012
Сообщений: 11
Восклицание Разработать модуль пользователя

Всем доброго времени суток, у меня есть такое задание:

Необходимо разработать собственный модуль пользователя, в котором должны содержаться в виде процедур и функций выполненные ранее работы 1-6. Разработанный модуль должен быть подключен в программу проверки, которая должна в интерактивном режиме вызывать на выполнение любую из запрашиваемых лабораторных работ, после выполнения каждой вызываемой программы необходимо обеспечить возврат в интерактив с возможностью генерального выхода из программы.

Вобщем 6 работ этих у меня есть, но никак не могу понять как сделать это.
Буду очень признателен, если кто-то расскажет, опишет или еще лучше напишет саму программу и модуль.
Зарание спасибо!
igagogi вне форума Ответить с цитированием
Старый 26.12.2012, 07:34   #2
phomm
personality
Старожил
 
Аватар для phomm
 
Регистрация: 28.04.2009
Сообщений: 2,899
По умолчанию

Вы не прикладываете работ, Вы не указываете язык, Вы не указываете, каковы интерфейсы вызываемых модулей. Поэтому нет смысла надеяться, что Вам кто-то поможет в _недетерминированной_ задаче.
Вот чисто наобум, на паскале.
Код:
program labs;
uses 
  unit1, unit2, unit3, unit4, unit5, unit6; // модули с лабами
const
  cnt = 6;
var
  i: integer;
  num: char;
  labs: array[1..cnt] of string = ('lab1', 'lab2', 'lab3', 'lab4', 'lab5', 'lab6'); // наименования лаб

begin
  repeat
    WriteLn('Лабораторные работы');
    for i := 1 to cnt do
      WriteLn(i, ': ', labs[i]);
    WriteLn('Введите номер работы для выполнения или любой иной символ для выхода');
    ReadLn(num);
    case num of
      '1': Lab1; // процедуры вызова конкретной лабы, сделанные в модулях лаб
      '2': Lab2;
      '3': Lab3;
      '4': Lab4;
      '5': Lab5;
      '6': Lab6;
    end;
  until not (num in ['1'..'6']);
end;
Процедуры вызова надо будет скорее всего создать, ибо вряд ли они у Вас есть. Создать их несложно, если пишете на паскале в консоли - то просто всё что было в главных бегин-энд вынести в процедуру.

Последний раз редактировалось phomm; 26.12.2012 в 07:43.
phomm вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Модуль пользователя Iceman92 Помощь студентам 1 25.03.2010 18:21
Turbo Pascal 7.0 - модуль пользователя Sanyco-007 Помощь студентам 1 09.12.2009 20:14
Разработать модуль Zobar Помощь студентам 2 20.10.2009 10:01