Лабораторна робота № 4.

Тема.	Засоби вводу/виводу за допомогою діалогових вікон.
Мета.	Формування вмінь і навиків використання підпрограм вводу/виводу з використанням діалогових вікон. Застосування знань структури лінійних програм. Закріплення вмінь і навиків роботи в середовищі мови програмування Object Pascal та програмування алгоритмів лінійної структури.

1. Скласти лінійну програму для розв'язання поставленого завдання.

Вимоги до програми:

• числові значення незалежних змінних ввести за допомогою функції InputBox;

• числові значення змінних, заданих формулами, обчислити за допомогою команди присвоєння;

• значення вхідних даних та остаточні результати виконання програми вивести у діалоговому вікні.

Знайти час руху пішоходів, які йдуть назустріч один одному, якщо відомі швидкості обох пішоходів і початкова відстань;

program Lr_4_1;

{$APPTYPE CONSOLE}

uses

SysUTILS, Dialogs,ControLS;

Var a,b,c,Time : REAL;

s: STRING;

begin

a:=3; // ryh 1 pishohoda

b:=4; // ryh 2 pishohoda

c:=20; // vidstan

s:=FLOATTOSTR(a);

s:= INPUTBOX(’ВВЕДЕННЯ','ВВЕДІТЬ ШВИДКІСТЬ 1 ПІШОХОДА: ',S);

a:= STRTOFLOAT(s);

s:=FLOATTOSTR(b);

s:= INPUTBOX('ВВЕДЕННЯ','ВВЕДІТЬ ШВИДКІСТЬ 2 ПІШОХОДА: ',S);

b:= STRTOFLOAT(s);

s:=FLOATTOSTR(c);

s:= INPUTBOX('ВВЕДЕННЯ','ВВЕДІТЬ ВІДСТАНЬ: ',S);

c:= STRTOFLOAT(s);

Time:= (c/(a+b));

SHOWMESSAGE('ЧАС РУХУ ПІШОХОДІВ '+FLOATTOSTR(a)+' i '+FLOATTOSTR(b)+

'ВІДСТАНЬ '+FLOATTOSTR(c)+' ЧАС '+FLOATTOSTR(Time)+' ХВИЛИН');

end.

2. Скласти лінійну програму для розв'язання поставленого завдання.

Вимоги до програми:

• числові значення незалежних змінних ввести за допомогою функції InputBox;

• числові значення змінних, заданих формулами, обчислити за допомогою команди присвоєння;

• значення вхідних даних та остаточні результати виконання програми вивести у діалоговому вікні.

1. Визначити суму прибутку, якщо відомі суми доходів та витрат.

program Lr_4_2;

{$APPTYPE CONSOLE}

uses

SysUTILS, Dialogs,ControLS;

Var a,b,p : REAL;

s: STRING;

begin

a:=300000; // дохід

b:=120000; // витрати

s:=FLOATTOSTR(a);

s:= INPUTBOX('ВВЕДЕННЯ','ВВЕДІТЬ доходи: ',S);

a:= STRTOFLOAT(s);

s:=FLOATTOSTR(b);

s:= INPUTBOX('ВВЕДЕННЯ','ВВЕДІТЬ витрати: ',S);

b:= STRTOFLOAT(s);

p:= (a-b);

SHOWMESSAGE('прибутоку становить '+FLOATTOSTR(a)+' за даними '+' витрат '

+'та '+FLOATTOSTR(b)+

' доходу '+FLOATTOSTR(p)+' у.о.');

end.

Лабораторна робота № 5.

Тема.	Оператори розгалуження.
Мета.	Формування вмінь і навиків програмування алгоритмів розгалуженої структури. Закріплення вмінь і навиків використання функцій вводу-виводу. Застосування вмінь і навиків програмування алгоритмів лінійної структури.

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

1. Які різновиди операторів розгалуження використовуються в Object Pascal?

1. Коли використовується кожен з різновидів операторів розгалуження?

2. Як виконується кожен з операторів розгалуження в Object Pascal?

3. Як записується і виконується команда безумовного переходу в Object Pascal?

4. Навіщо забезпечувати захист програми від некоректного вводу даних і як він здійснюється в Object Pascal?

5. Як вірно підібрати початкові дані для перевірки коректності функціонування програм, що містять команду розгалуження?