Завдання:
Скласти блок-схему та програму табулювання функції: 
, для а=1,3; b=1,29; x є [1,2]; ∆x=0,1
1. Завантажте систему візуального програмування Delphi.
2. Задайте заголовок, розмір та колір форми. Для цього у вікні Object Inspector уведіть значення наступних властивостей: Caption (Заголовок форми) – ‘Лабораторна робота’, колір та розмір форми задайте на свій вибір.
3. Збережіть створену програму у власній папці. Для цього виберіть команду Save All (Зберегти все) головного меню File. Задайте імена програмного модуля та проекту.
4. Вставте у форму текстові поля Label1-Label5 як показано на рис.1 і надайте їм відповідні властивості. Для цього клікніть мишею на піктограмі Label на закладці Standard з палітри компонентів, а потім — у тому місці на формі, де має знаходитись текстове поле. Активізуйте це поле і у вікні Object Inspector задайте властивість Caption: для Labell – “Початкове значення х :” і т.д. відповідно (рис. 2).
5. Вставте у форму поля редагування (об'єкти типу Edit) як показано на рис.1 і надайте їм відповідні властивості. Для цього клікніть мишею на піктограмі Edit на закладці Standard, а потім — на формі, де має знаходитись поле редагування. Очистити поля редагування Edit1-5 (витерти значення властивості Text цих об'єктів).
6. Розмістіть компонент Memo відповідно рис.1. Задайте для цього поля вертикальну та горизонтальну прокрутки. Для цього увімкніть значення ssBoth для властивості ScrollBars. Для властивості Lines витріть значенн Memo1, а введіть текст відповідно рис.2.
Вставте у форму головне меню (об‘єкт типу MainMenu 
). Розташуйте піктограму у довільному місці форми.
Рис.1 Рис.2
7.Уведіть назви команд головного меню. Для цього двічі клікнути лівою клавішею миші на вставленому обєкті MainMenu1. У вікні, що з‘явиться (рис.3) виберіть рамку для введення тексту і введіть Обчислити у властивості Caption. Підпунктами введіть Протабулювати функцію, очистити поле виведення (рис.4). Перейдіть у сусідню рамку і запишіть Вихід та підпункт Закрити програму (рис.5). Так само Про автора à Автор (рис.6). Закрити вікно створення команд головного меню Form1.MainManu1.
8.Збережіть роботу на диску.
10. Запрограмуйте команду „Протабулювати функцію” головного меню. Для цього клікніть лівою клавішею миші на команді „Протабулювати функцію” і введіть текст процедури:
procedure TForm1.N2Click(Sender: TObject);
var
x,x0,xk,dx,a,b,y:real;
s1,s2:string;
begin
x0:=StrToFloat(Edit1.Text);
xk:=StrToFloat(Edit2.Text);
dx:=StrToFloat(Edit3.Text);
a:=StrToFloat(Edit4.Text);
b:=StrToFloat(Edit5.Text);
x:=x0;
repeat
y:=(a+b)/(exp(x)+cos(x));
str(x:10:2,s1);
str(y:10:2,s2);
Memo1.Lines.Add(s1+s2);
x:=x+dx
until x>xk
end;
11. Поверніться на форму і запрограмуйте команду „Очистити поле виведення” головного меню:
procedure TForm1.N3Click(Sender: TObject);
begin
Memo1.Clear
end;
12. Поверніться на форму і запрограмуйте команду „Закрити програму” головного меню:
procedure TForm1.N6Click(Sender: TObject);
begin
Close
end;
13. Поверніться на форму і запрограмуйте команду „Автор” головного меню (рис.8):
procedure TForm1.N7Click(Sender: TObject);
begin
MessageDlg('Програму виконав студент групи ОКС-350 Іванов І.В.',mtInformation,[mbOk],0);
end;
14. Збережіть програму.
15. Запустіть програму на виконання. Загальний вигляд програми після виконання рис.7.
16. Створіть exe-файл.
Рис.7
| 
Рис.8
|
Вимоги до оформлення звіту :
Звіт повинен містити:
1.Тему та мету лабораторної роботи.
2.Завдання на лабораторну роботу.
3.Текст програми.
4.Відповідь на контрольні запитання.
Контрольні запитання:
1. Що таке компонент Memo?.
2. Що таке об’єкт типу MeinMenu,його властивості?.
3.Як запрограмувати команду “Протабулювати функцію”головного меню?.
4. Як запрограмувати команду “Очистити поле виведення”головного меню?.
5. Як запрограмувати команду “Закрити програму”?.
6. Як запрограмувати команду “Автор”?.
7. Як зберегти програму?.
ЛАБОРАТОРНА РОБОТА №7.
Тема: Розробка алгоритмів і програм з використанням множин.
Мета:оволодіти практичними навиками роботи з множинами.
Рис.3
Рис.4
Рис.5
Рис.6