37829

Програмування підпрограм та модулів

Лабораторная работа

Информатика, кибернетика и программирование

Контрольні запитання: Що називають підпрограмою Які види підпрограму мові Pscl Ви знаєте Які види параметрів Ви знаєте Які види змінних Ви знаєте Що називають моделем Яка структура модуля Як організувати модуль у Delphi Теоретичні відомості. Створення модуля: Створюючи модуль варто звернути увагу на те що він не повинний мати своєї форми. Для створення модуля в меню File вибрати File New і потім у репозиторії піктограму. Ім'я модуля можна перемінити на інше що відповідає внутрішньому змістові модуля наприклад Unit...

Украинкский

2013-09-25

41 KB

3 чел.

ЛАБОРАТОРНА РОБОТА №9

Тема роботи: Програмування підпрограм та модулів.

Мета роботи: вивчити прийоми створення підпрограм і модулів. Скласти і налагодити програму, що використовує зовнішній модуль Unit з підпрограмою.

Рекомендована література:

  1.  Бобровский С. И. Delphi 7. Учебный курс. - С.Пб. Питер, 2004. – 735 с.
  2.  Я. М. Глинский Інформатика. Алгоритмізація і програмування. Книжка 1. -  Львів, 2003. – 198 с.
  3.  Симонович С.В., Евсеев Г.А. Занимательное программирование:Delphi. – М.: АСТ-Пресс Книга; Издательство «Развитие», 2003. – 368 с.
  4.  Кен Хендерсон. Руководство Разработчика баз данных в Delphi 2. – К. Диалектика, 1997, - 543 с.

Контрольні запитання:

  1.  Що називають підпрограмою?
  2.  Які види підпрограму мові Pascal Ви знаєте?
  3.  Які види параметрів Ви знаєте?
  4.  Які види змінних Ви знаєте?
  5.  Що називають моделем?
  6.  Яка структура модуля?
  7.  Як організувати модуль у Delphi?

Теоретичні відомості.

Підпрограма - це певним чином оформлена група операторів, що може бути викликана будь-яка кількість разів з будь-якої точки основної програми. Підпрограми підрозділяються на процедури і функції. Процедури і функції можуть бути використані як формальні параметри підпрограм. Для цього визначається тип:

Type <ім'я>= function ([список формальних параметрів] ):<тип результату>;

або

Type <ім'я>= procedure ([список формальних параметрів]);

У мову Object Pascal убудований ряд найбільше часто уживаних процедур і функцій, що є частиною мови і викликаються без попереднього визначення в розділі описів.

Модуль - програмна одиниця, що автономно компілюється та включає в себе процедури, функції, а також різні компоненти розділу описів.

Хід виконання роботи.

Завдання: написати програму виведення на екран таблиці функцій, які оформити у видгляді процедури. Як функцію використовувати на вибір Tg(x), Ch(x) і sin (x).

Створення модуля: Створюючи модуль, варто звернути увагу на те, що він не повинний мати своєї форми. Система DELPHI при початковому завантаженні автоматично створює шаблон програми, що має у своєму  складі форму, файл проекту і т.д. Тому що модуль складається тільки з одного файлу, то необхідно перед його створенням знищити заготовок файлу проекту і форму. Для цього в меню File вибрати Close All, файл проекту не зберігати.

Для створення модуля в меню File вибрати File New, і потім у репозиторії – піктограму. У результаті буде створений файл із заголовком Unit Unit1. Ім'я модуля можна перемінити на інше, що відповідає внутрішньому змістові модуля, наприклад Unit Matfu;. Потім необхідно зберегти файл з ім'ям, що збігається з ім'ям заголовка модуля: Matfu.pas. Варто звернути увагу на те, що ім'я файлу повинне збігатися з ім'ям модуля, інакше DELPHI не зможе підключити його до іншої програми.

Підключення модуля: Для того щоб підключити модуль до проекту, необхідно в меню Project вибрати опцію Add to Project і вибрати файл, що містить модуль. Після цього в розділі Uses додати ім'я модуля, що підключається - MatFu. Тепер у проекті можна використовувати функції, що утримуються в модулі.

Панель діалогу буде мати вигляд, показаний на мал.8.1.

Рис.9..1

Тексти модуля і програми, що його викликає, приведені нижче.

Текст модуля:

Unit Matfu;

Interface

 Function Tg(x: extended) : extended;

//Функція для обчислення тангенса 

 Function Ch(x: extended) : extended; 

//Функція для обчислення гіперболічного синуса

Function Sin2(x: extended) : extended;

//функція для обчислення квадрата синуса

Implementation

 Function Tg;

begin

 Result := sin(x)/cos(x);

end;

 Function Ch;

 begin

   Result := (exp(x)-exp(-x))/2;

 end;

 Function Sin2;

 begin

   Result := sqr(sin(x));

 end;

end.

Текст зухвалої програми:

Unit Unit1;

Interface

Uses

 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, MatFunc;

type

 TForm1 = class(TForm)

   Label1: TLabel;

   Label2: TLabel;

   Label3: TLabel;

   Edit1: TEdit;

   Edit2: TEdit;

   Edit3: TEdit;

   Memo1: TMemo;

   Button1: TButton;

   Button2: TButton;

   RadioGroup1: TRadioGroup;

   Procedure FormCreate(Sender: TObject);

   Procedure Button1Click(Sender: TObject);

   Procedure Button2Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

type

 func = function(x:extended) : extended;

var

 Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);

begin

 Edit1.Text := '0';

 Edit2.Text := '2';

 Edit3.Text := '0.2';

 Memo1.Clear;

 RadioGroup1.ItemIndex := 0;

end;

procedure Tabl(f: func; xn, xk, h: extended);

var

 x, y : extended;

begin

 x := xn;

 Repeat

   y := f(x);

   Form1.Memo1.Lines.Add('x=' + FloatToStrF(x,fffixed, 8,2)+

                       '  y=' + FloatToStrF(y,fffixed, 8,2));

   x := x + h;

 Until (x > xk);

end;

procedure TForm1.Button1Click(Sender: TObject);

var

 xn, xk, h : extended;

begin

 xn := StrToFloat(Edit1.Text);

 xk := StrToFloat(Edit2.Text);

 h  := StrToFloat(Edit3.Text);

 Case RadioGroup1.ItemIndex of

   0 : Tabl(tg, xn, xk, h);

   1 : Tabl(ch, xn, xk, h);

 end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

 Halt

end;

end.

Індивідуальні завдання.

Виберіть варіант задачі з завдань, приведених у роботі 4. Передбачите можливість вибору функції, для якої буде розраховуватися таблиця. Функції помістіть в окремий модуль. Викликати обрану функцію повинна процедура, що використовує як вхідний параметр ім'я відповідної функції.


 

А также другие работы, которые могут Вас заинтересовать

45313. Совет Федерации 20.7 KB
  Совет федерации. В Совет Федерации Федерального Собрания Российской Федерации далее Совет Федерации в соответствии с Конституцией Российской Федерации входят по два представителя от каждого субъекта Российской Федерации: по одному от законодательного представительного и исполнительного органов государственной власти субъекта Российской Федерации. Членом Совета Федерации может быть избран назначен гражданин Российской Федерации не имеющий гражданства иностранного государства либо вида на жительство или иного документа подтверждающего...
45315. Система и структура федеральных органов исполнительной власти 26 KB
  В систему федеральных органов исполнительной власти входят: Правительство РФ состоящее из Председателя Правительства РФ заместителей Председателя Правительства РФ и федеральных министров; министерства и другие федеральные органы исполнительной власти которые определяются на основе Конституции РФ Федерального конституционного закона О Правительстве Российской Федерации других федеральных законов и указов Президента РФ. в Российской Федерации началась широкомасштабная административная реформа конечной целью которой...
45316. Структура Администрации Президента РФ 21.06 KB
  Президент РФ в целях осуществления своих полномочий создает специальные органы занимающиеся исполнением распоряжений и указов Президента РФ и осуществляющие специальные полномочия. К ним в первую очередь относятся: 1 Администрация Президента РФ; 2 Совет Безопасности РФ. Порядок формирования и компетенция Администрации Президента РФ устанавливается Указом Президента РФ от 25 марта 2004 г. 400 Об Администрации Президента Российской Федерации.
45317. Понятие конституции 24.6 KB
  Правовой статус главы местной администрации. Главой местной администрации может быть не только избираемый населением глава муниципального образования но и так называемый наемный менеджер муниципальный служащий принимаемый на работу по контракту. 37 Закона главой местной администрации может быть лицо назначаемое на должность главы местной администрации по контракту заключаемому по результатам конкурса на замещение указанной должности на срок полномочий определяемый уставом муниципального образования. В этом случае главой муниципального...
45318. Конституция - акт учредительной (верховной) власти 23.87 KB
  Иностранные граждане постоянно или преимущественно проживающие на территории муниципального образования обладают при осуществлении местного самоуправления правами в соответствии с международными договорами Российской Федерации и федеральными законами. на всей территории муниципального образования или на части его территории для выявления мнения населения и его учета при принятии решений органами местного самоуправления и должностными лицами местного самоуправления а также органами государственной власти. В опросе граждан имеют право...
45319. Содержание, форма и основные свойства конституции 25.12 KB
  Правовой статус главы муниципального образования. Закона об общих принципах организации местного самоуправления уставом муниципального образования может быть предусмотрена должность главы муниципального образования выборного должностного лица возглавляющего деятельность по осуществлению местного самоуправления на территории муниципального образования. Глава муниципального образования соединяет в своем правовом и фактическом статусе черты префекта департамента Франции и председателя исполкома местного Совета. Термин глава муниципального...
45320. Механизм защиты Конституции РФ 22.96 KB
  В конституционной практике Российской Федерации давно сложился ряд правовых форм способов защиты Конституции:1 процесс охраны Конституции Президентом Российской Федерации. Во-первых в качестве гаранта федеральной Конституции Президент Российской Федерации который наделяется прерогативами по защите конституционного строя прав и свобод человека и гражданина осуществлению мер по охране суверенитета РФ ее независимости и государственной целостности обеспечению согласованного функционирования органов государственной власти. Суд наделен...
45321. Конституционный строй 19.94 KB
  Одним из ключевых институтов гражданской службы определенных Федеральным законом О государственной гражданской службе Российской Федерации является институт должности гражданской службы. Прохождение гражданской службы возможно только на должности государственной службы. При освобождении от должности и не будучи назначенным на другую должность лицо увольняется с гражданской службы. Должности федеральной государственной гражданской службы учреждаются федеральным законом или указом Президента Российской Федерации должности...