002 ЛАБОРАТОРНА РОБОТА2. Лабораторна робота 2 Тема Розробка лінійного обчислювального процесу. Конструювання інтерфейсу користувача

• Название: Лабораторна робота 2 Тема Розробка лінійного обчислювального процесу. Конструювання інтерфейсу користувача
• Дата: 26.01.2022
• Размер: 50.62 Kb.
• Имя файла: 002 ЛАБОРАТОРНА РОБОТА2.docx
• Тип: Лабораторна робота; #342519

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

Тема: Розробка лінійного обчислювального процесу.

Конструювання інтерфейсу користувача

1. Мета роботи

Дослідити роботу оператора присвоювання мови програмування Object Pascal. Засвоїти методику використання компонентів: Edit, Label, Button і Memo з розділу Standard Палітри Компонентів в середовищі Delphi для конструювання інтерфейсу користувача.

2. Постановка завдання

Розробити проект з необхідних компонентів Delphi та оброблювач події мовою Object Pascal відповідно до заданого варіанта. Створити працездатну програму з необхідним інтерфейсом.
3. Теоретичні відомості
Вираз – це послідовність, що складається з констант, імен, операцій, стандартних функцій. Значення виразу обчислюється послідовно зліва направо і з урахуванням пріоритетів операцій (табл. 1). Основні стандартні математичні функції мови Object Pascal наведені у таблиці 2.

Таблиця 1. Пріоритет операцій

Назва операції	Пріоритет
@, not	найвищий
*, /, div, mod, as, and, shl, shr	другий за найвищим
+, –, or, xor	середній
=, <>, <, >, <=, >=, in, is	найнижчий

Таблиця 2. Стандартні математичні функції

Математичний вираз	Запис мовою Object Pascal	Значення, що повертається	Тип результату
|x|	Abs(x)	Абсолютна величина числа	Збігається з типом x
sin x	Sin(x)	Синус аргументу	real
cos x	Cos(x)	Косинус аргументу	real
arctg x	Arctan(x)	Арктангенс аргументу	real
х2	Sqr(X)	Квадрат аргументу	real
	Sqrt(x)	Корінь квадратний з аргументу	real
	Pi	число: 3.1415926535897932385	real
ex	Exp(x)	Експонента	real
ln x	Ln(x)	Натуральний логарифм	real

Таблиця 2. Стандартні математичні функції (продовження)

Математичний вираз	Запис мовою Object Pascal	Значення, що повертається	Тип результату
	a Mod b	Залишок від ділення цілих чисел	integer
	a Div b	Ціла частина від ділення цілих чисел	integer
	Int(X)	ціла частина аргументу	integer
	Frac(X)	дрібна частина аргументу: X-Int(X)	real
	Round(X)	округлення до найближчого цілого значення аргументу	integer
	ODD(X)	визначення парності для цілих значень аргумента	boolean

Математичні функції, що використовуються модулем Math, наведено у таблиці 3.

Таблиця 3. Математичні функції, що використовуються модулем Math

Математичний вираз	Запис мовою Delphi	Значення, що повертається	Тип результату
ab	Power(a,b)	Число a у ступені b	real
	Power(a,1/n)	Число a у ступені 1/n	real
tg x	Tan(x)	Тангенс аргументу	real
ctg x	CoTan(x)	Котангенс аргументу	real
arcsin x	Arcsin (x)	Арксинус аргументу	real
arccos x	Arccos (x)	Арккосинус аргументу	real
loga x	LogN(a,x)	Логарифм числа x по основі a	real

4. Програма роботи

4.1. Записати запропонований викладачем варіант завдання з Додатка 1.

4.2. Ознайомитись з рекомендованою літературою та конспектом лекцій.

4.3. Програмування задачі:

– розробити алгоритм;

– скласти програму розв’язання задачі мовою Object Pascal.

4.4. Розв’язання задачі на персональній обчислювальній машині (ПЕОМ).

Сконструювати інтерфейс користувача за допомогою відповідних візуальних компонент, відлагодити та розв’язати складену програму.

4.5. Оформлення звіту.

Звіт повинен містити:

– номер лабораторної роботи та її назву;

– умову задачі та дані свого варіанта;

– лістинг (або рукопис) програми з коментарями до кожної

використаної змінної та скриншоти форми проекту;

– результати розрахунку задачі;

– висновки.

Приклад.

Обчислити значення змінних a і b при заданих значеннях x = 3,981,

y = -1,625, z = 2.

.
Розв’язання:

1. 
   Створимо нову папку.
   
2. 
   Запустимо Delphi.
   
3. 
   З розділу Standard Палітри Компонентів на Form1 розташуємо три компоненти Edit, чотири компоненти Label і компоненти Button і Memo (рис. 1).
   

4. Для мітки Label1 установимо властивість Caption рівною 'Лінійний обчислювальний процес', а для Label2 , Label3 і Label4: 'X=', 'Y=' і 'Z=' відповідно.

5. Для компонентів Edit1, Edit2 і Edit3 установимо значення властивості Text рівним порожньому рядку.

6. Для компонента Memo1 виберемо властивість Lines і клацнемо по кнопці з трьома крапками. У вікні, що з'явилося, String list editor видалимо рядок 'Memo1'.

7. Для кнопки Button1 установимо властивість Caption рівною 'Розв’язання'.

8. Створимо оброблювач події OnClick для кнопки Button1:
procedure TForm1.Button1Click(Sender: TObject);

var

x, y, z, a, b: real;

begin

x := StrToFloat(Edit1.Text);

y := StrToFloat(Edit2.Text);

z := StrToFloat(Edit3.Text);

a := power(2,-x)*sqrt(x+power(abs(y),1/4));

b := power(cos(x),3)/(2+sin(x))+exp(z+1);

Memo1.Clear;

Memo1.Lines.Add('Результат:');

Memo1.Lines.Add('a = '+FloatToStr(a));

Memo1.Lines.Add('b = '+FloatToStr(b));

end;
9. Збережемо проект за допомогою команди File|Save All і запустимо його на виконання, використовуючи функціональну клавішу F9.
Примітка: При виконанні цього прикладу необхідно використовувати функції модуля Math. Тому у тексті програми після службового слова Uses слід додати ім’я модуля, тобто: Uses […] ,Math; де […] – список імен модулів, що необхідні при роботі даної програми (додаються автоматично).