Результати виконання роботи
Завдання №1
Програма на мові Pascal
Завдання №2
Програма на мові Pascal
Завдання №3
Програма на мові Pascal
Контрольні питання
1. Яким чином в мові Паскаль здійснюється прехід в графічний режим?
2. Чи можна визначити драйвер автоматично?
3. Яки типи процедур та функцій для роботи з графікою існують?
4. Перелічите основні процедури та функції керування кольором та стилем
5. Перелічите основні процедури та функції малювання примітивів
6. Як організувати малювання лінійчатих фігур?
7. Яким чином можна замалювати замкнену фігуру?
8. Яким чином організується рух фігури на екрані?
Висновок:
Виконано: _______________________
Підпис
студента та дата виконання
Захищено з оцінкою : ____________________ Дата
___________
підпис
викладача
дата захисту
Лабораторна робота №12
ТЕМА: Використання модулів.
МЕТА: Навчитися складати програми з використанням модулів в системі програмування Borland Pascal 7.0
МЕТОДІЧНІ ВКАЗІВКИ:
Перед виконанням лабораторної роботи потрібно вивчити поняття модулю, його структуру та призначення, включення модулів до програми.
ОБЛАДНАННЯ ТА ПРОГРАМНЕ ЗАБЕЗПЕЧЕННЯ:
IBM сумісні комп’ютери класу Intel Pentium, система програмування Borland Pascal 7.0
ЛІТЕРАТУРА:
1. Ковалюк т.В. Основи програмування. – к.: Видавнича група bhv, 2005. – 384 с.
ЗМІСТ, ПОСЛІДОВНІСТЬ, МЕТОДИКА ВИКОНАННЯ РОБОТИ
ЗАВДАНЯ 1 Скласти програму згідно вашого індивідуального завдання, в яку приєднується модуль, що містить підпрограми - процедури та - функції. Вивчити структуру модуля, його розділи. Визначитися з підпрограмами в модулі, які можуть використовуватися зовнішніми програмами
ПРИКЛАД ВИКОНАННЯ ЗАВДАННЯ
Приклад №1 Обчислити значення функції по формулі:
.
Находження кореня n-ой ступеня здійснити через функцію, а розрахунок значення по формулі через процедуру. Підпрограми помістить у модуль.
Лістинг модуля Second
Unit second; { ім'я модуля}
{second.pas}
interface {початок розділу оголошень}
Function FunSqrt (x1 : real; k : integer) : real;{обчислення кореня}
Procedure ProcY (var y1 : real; x1 : real);{Розрахунок по по формуле}
Implementation {початок розділу реалізації}
Uses Crt;
Function FunSqrt; {тело функції}
begin
FunSqrt := exp((1/k) * ln(x1));
end;
Procedure ProcY; {тело процедури}
Const b = 10.7;
c = 0.4;
var a : real;
begin
a := exp(0.1*x1) + x1;
y1 := ln(FunSqrt(a,2)) / (x1 + FunSqrt(b,3) + arctan(x1)) + c;
end;
end.
Лістинг основної програми
program Task;
Uses crt,
second;{підключення модулю, в якому зберегаються функціяобчислення кореня та процедура обчислення по формулі }
Var x, y : real; {глобальні змінні}
s : char;
begin
ClrScr;
Repeat
TextColor(12); {зміна кольору текту}
Writeln('Введіть значення Х:');
Readln (x);
ProcY (y,x); {обчислення згідно формули}
TextColor(9); { зміна кольору текту}
Writeln(' Значення змінної Y рівно :', '':2, y:10:6);
TextColor(14);
Writeln('Знову (Y/N) ?');
Readln (s);
Until (s = 'N') or (s = 'n');
end.