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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 25.04.2012, 12:37   #1
Milka_777
 
Регистрация: 28.10.2010
Сообщений: 5
Смущение Модуль.Паскаль

Ребята,Очень нужно написать модуль в паскале по этому заданию.Буду очень благодарна,потому,что сама не знаю,как это сделать,честно.
Составить описание системы объектов для объектов-векторов, задаваемых координатами концов в трехмерном пространстве. Обеспечить операции сложения и вычитания векторов с получением нового вектора (суммы или разности), вычисления скалярного произведения двух векторов, длины вектора, косинуса угла между векторами.
Milka_777 вне форума Ответить с цитированием
Старый 25.04.2012, 17:34   #2
hon
Форумчанин
 
Регистрация: 08.06.2011
Сообщений: 693
По умолчанию

  1. Про трехмерное пространство, векторы и прочую трехмерную муть написано в книге, прикрепленной к посту (стр. 276).
  2. Модуль делается так:
    1. Создается файл
    2. Пишется код
    3. Файл сохраняется
    4. В uses программы пишется название модуля.

    Пример модуля:
    Код:
    unit primer_modulja;
    
    interface //здесь описываются процедуры и функции, которые может вызывать программа, но код не пишется
    
    procedure p1(s:string);
    procedure p2(s:string);
    
    implementation //здесь описываются процедуры и функции, которые может вызывать только модуль, и те, которые есть в interface (в interface есть только ссылки)
    
    function SecretFunction(ttt:string):string; //может вызыватся только модулем
    begin
    SecretFunction:=ttt+ttt;
    end;
    
    procedure p1(s:string);
    var test:string;
    begin
    test:=s+s; //для примера
    end;
    
    procedure p2(s:string);
    var test:string;
    begin
    test:=s+s+s; //для примера
    SecretFunction(test):string;
    end;
    
    initialization
    begin
    Writerln('Модуль загружен');
    end.
    То, что выделено красным можно не писать, если при загрузке модуля не нужно проводить какие-нибудь операции.
hon вне форума Ответить с цитированием
Старый 23.11.2014, 16:06   #3
kudiablik
Новичок
Джуниор
 
Регистрация: 23.11.2014
Сообщений: 1
Восклицание

здравствуйте)можете указать причины,по которым не хочет запускаться модуль?
kudiablik вне форума Ответить с цитированием
Старый 23.11.2014, 22:05   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
можете указать причины,по которым не хочет запускаться модуль?
если речь идёт о Unit - так он и не должен запускаться.
Unit (он же модуль, он же юнит, он же библиотека) - это дополнительный элемент, который не может быть запущен автономно. Запускаться может только программа. Вот в ней и используйте нужный модуль (и то, что в нём открыто для использования).
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
модуль в паскаль veronishka888 Паскаль, Turbo Pascal, PascalABC.NET 4 03.04.2012 15:02
Модуль на языке Паскаль Zeon2012 Помощь студентам 2 18.03.2012 21:13
Модуль паскаль хлебец Помощь студентам 0 30.05.2011 21:51
паскаль, модуль Ам тя Помощь студентам 2 19.05.2010 17:31