1. ЗАВДАННЯ
Розробити блок-схему алгоритму та програму мовою Turbo Pascal для побудови довільних графіків функцій. Програма складається з двох частин:
1) здійснює табуляцію функції і записує результати у двійковий файл;
2) зчитує дані з файлу і будує графік з автоматичним масштабуванням осей координат та їх оцифровкою.
Шрифт розмітки осей графіка – Triplex. Колір ліній – Blue. Колір фону – black чи white.
2. ТЕОРЕТИЧНА ЧАСТИНА
2.1. Табулювання функції та збереження результатів в двійковий файл.
Функція, що за умовою задачі вибирають довільним чином, буде неодноразово використовуватися в програмі, тому слід написати підпрограму-функцію, після чого щоразу викликати цю функцію. Функція описується таким чином:
function <назва>(<список формальних параметрів>) : <тип функції>;
<розділи описів і оголошень функції>;
begin
<розділ команд функції, де має бути така команда: ‘назва:=вираз’>
end;
Після цього виклик функції здійснюється лише з виразів так:
<назва> (<список фактичних параметрів>)
Наступна дія в програмі – введення інтервалу табуляції функції та кроку табуляції. Для цього використаємо стандартні команди writeln та read. Для виконання табуляції використаємо цикл з передумовою:
while <логічний вираз> do <команда 1>;
При цьому щоразу відбувється збільшення значення X на крок h.
Додаткова проблема – запис результатів табулювання в двійковий файл. Для розв’язання цієї проблеми використаємо запис (record) – структурований тип даних, призначений для зберігання в оперативній пам’яті та опрацювання певних даних. Запис описують у розділі type так:
type <назва типу запису>=record
<назва поля 1> : <тип поля 1>;
...
<назва поля n> : <тип поля n>;
end;
Після цього доступ до конкретного поля запису дає складне ім’я вигляду:
<назва запису>.<назва поля>
Для роботи із файлом у розділі описів типів описують файловий тип:
type <ім’я типу>=file of <базовий тип>;
Це також можна зробити безпосередньо у розділі оголошення змінних. Далі в програмі будуть використані такі команди:
assign(<ім’я файлу>,<зовнішнє ім’я>); - налогоджує зв’язок між іменем файлу і файлом на зовнішньому носії;
rewrite(<ім’я файлу>); - відкриває файл для записування в нього даних;
write(<ім’я файлу>,<ім’я змінної>); - записує (виводить) дане у файл;
close(<ім’я файлу>); - закриває файл.
Запис даних у файл здійснюється в тому ж циклі, що й табулювання функції.
2.2. Вибір місця побудови координатних осей та розрахунок коефіцієнта масштабування.
Наступною частиною програми є розрахунок координат для побудови осей абсцис і ординат та розрахунок коефіцієнта масштабування. Визначимо спочатку коефіцієнт масштабування. Для цього знайдемо діапазони отриманих значень для X та Y (віднімемо мінімальне значення від максимального). Щоб знайти діапазон значень X, віднімемо початкове значення інтервалу від кінцевого. Щоб знайти діапазон значень Y, потрібно знайти мінімальне та максимальне значення функції, яких вона набуває на заданому інтервалі значень аргумента X. Пошук цих значень буде відбуватися в тому ж циклі, де табулюється функція.
Після цього порівняємо, де діапазон значень більший: по осі абсцис, чи по осі ординат. В залежності від результату порівняння, продовження виконання програми буде відбуватися по певній гілці розгалуження. І, відповідно до цього, коефіцієнт масштабування буде розраховуватися за певною формулою.
Додатковою проблемою є вибір положення осі ординат (Y). Для цього використовуються додаткові розгалуження, які перевіряють положення початкового та кінцевого значень інтервалу на осі абсцис (X). В залежності від їх розміщення відносно нуля будується вісь Y, координата якої в кожному випадку обчислюється за певною формулою, що вибирається в залежності від вибраної гілки розгалуження.
Крім того треба розрахувати крок hg (щоразовий зсув по осі абсцис при збільшенні значення X на крок h). Для цього використаємо формулу:
hg:=trunc(h*M);
тобто hg = ціла частина від множення h на M, де M – коефіцієнт масштабування, що був знайдений раніше.
2.3. Графічна частина роботи.
Для роботи в графічному режимі підключаємо модуль Graph.tpu , що включає в себе стандартні графічні процедури та функції. Далі задається графічний режим:
<розділи описів та оголошень конкретної програми>;
var driver, mode : integer; {Для характеристик дисплея}
Begin
driver:=detect; {detect – стандартна стала}
initgraph (driver, mode, ' '); {Задання графічного режиму}
<текст конкретної програми з графічними командами>
end.
Коли графічний режим задано, можна визначитися з кольорами майбутнього зображення. Використаємо такі процедури:
setbkcolor (<колір>) – задає колір фону;
setcolor (<колір>) – задає колір майбутнього зображення.
Далі йде побудова осей координат, а потім йде побудова самого графіка.
Для цього значенням X та Y надаємо їх початкові значення, далі здійснюємо перехід від математичних координат до графічних. Курсор встановлюємо на першій точці графіка. Після цього починаємо використовувати двійковий файл: відкриваємо, а потім в циклі – щоразу зчитуємо значення та будуємо лінії до відповідної точки. Для цього використовуємо такі процедури:
read(<ім’я файлу>,<ім’я змінної>); - читає (вводить) дане з файлу в оперативну пам’ять;
reset(<ім’я файлу>); - відкриває файл для читання з нього даних.
Коли всі значення зчитані – файл закривається.
Далі здійснюємо оцифровку осі координат, використовуючи стандартні процедури:
outtextxy (x, y, <текст>) – виводить текст у заданому місці;
settextstyle (<шрифт>, <напрям>, <розмір>) – задає вигляд символів, напрямок виведення: 0 – горизонтально чи 1 – вертикально, і розміри символів: 1, 2, 3.
Кожного разу замість координати x ставляться значення, що були обчислені в циклі: (xmin-10) – для позначення мінімума (початку інтервала), (x0+3) – для позначення нуля, (xmax-10) – для позначення максимума (кінця інтервала). Після цього програма завершує свою роботу.
3. БЛОК-СХЕМА АЛГОРИТМУ
3.1. Головна блок-схема.
3.2. Блок-схема табулювання функції та запису результатів в двійковий файл.

3.3. Блок-схема знаходження положення осі Х та коефіцієнта масштабування.



3.4. Блок-схема графічної частини роботи.

4. ПРОГРАМА
Program Zadacha;
uses Crt, Graph;
type kog=record {Опис типу запису}
ox:real;
oy:real;
onz:integer;
yminz:real;
ymaxz:real;
end;
myfile=file of kog;
const y0=240;
var file1,tmp : myfile;
k1 : kog;
a,b,h,x,y,M,ymax,ymin : real;
hg,i,n,x0,xmin,xmax : integer;
function f(x:real):real;
begin
f:= sqrt(abs(x)) {Формула функції}
end;
procedure Tabulation(a,b,h:real);
var file1:myfile;
k1:kog;
x,y,ymax,ymin:real;
n:integer;
begin
assign(file1, 'kog.dat');
rewrite(file1); {Вiдкриття файлу для запису}
x:=a;
n:=0;
ymin:=f(x);
ymax:=f(x);
while x<=b do
Begin
y:=f(x);
writeln ('x=', x:5:2, ' y=', y:6:4);
k1.ox:=x;
k1.oy:=y;
write(file1, k1); {Запис даних у файл}
if y>ymax then ymax:=y;
if y<ymin then ymin:=y;
x:=x+h;
n:=n+1;
end;
k1.yminz:=ymin;
k1.ymaxz:=ymax;
k1.onz:=n;
assign(tmp, 'tmp.dat');
rewrite(tmp);
write(tmp,k1);
close(tmp);
close(file1); {Закриття файлу}
end;
{Варіанти побудови координатних осей}
{та вибір масштабування}
procedure osikoord(a,b,h,ymax,ymin:real);
begin
if (ymax-ymin) > (b-a) then
begin
M:=400/(ymax-ymin);
if (a>=b) then
begin
writeln('ERROR! MIN >= MAX');
halt;
end;
if (a<0) and (b<0) then
begin
x0:=trunc( 100+M*(-a) );
xmin:=100;
xmax:=trunc( 100+M*(b-a) );
end;
if (a<0) and (b=0) then
begin
x0:=trunc( 100+M*(-a) );
xmin:=100;
xmax:=trunc( 100+M*(b-a) );
end;
if (a<0) and (b>0) then
begin
x0:=trunc( 100+M*(-a) );
xmin:=100;
xmax:=trunc( 100+M*(b-a) );
end;
if (a=0) and (b>0) then
begin
x0:=100;
xmin:=100;
xmax:=trunc( 100+M*b );
end;
if (a>0) and (b>0) then
begin
x0:=trunc( 500-M*b );
xmin:=trunc( 500-M*(b-a) );
xmax:=500;
end;
end;
if (ymax-ymin) < (b-a) then
begin
if (a>=b) then
begin
writeln('ERROR! MIN >= MAX');
halt;
end;
if (a<0) and (b<0) then
begin
M:=400/(-a);
x0:=trunc( 100+M*(-a) );
xmin:=100;
xmax:=trunc( 100+M*(b-a) );
end;
if (a<0) and (b=0) then
begin
M:=400/(b-a);
x0:=500;
xmin:=100;
xmax:=500;
end;
if (a<0) and (b>0) then
begin
M:=400/(b-a);
x0:=trunc( 100+M*(-a) );
xmin:=100;
xmax:=500;
end;
if (a=0) and (b>0) then
begin
M:=400/(b-a);
x0:=100;
xmin:=100;
xmax:=500;
end;
if (a>0) and (b>0) then
begin
M:=400/b;
x0:=trunc( 500-M*b );
xmin:=trunc( 500-M*(b-a) );
xmax:=500;
end;
end;
hg:=trunc(h*M);
end;
{Початок графічної частини}
procedure grpart(a,M:real;y0,x0,n,xmin,xmax:integer);
var driver,mode,y1,x1:integer;
begin
clrscr; driver:=detect; initgraph(driver,mode,'');
setcolor(1); setbkcolor(0);
setlinestyle(0,0,3);
{побудова осей координат}
line(10,y0,630,y0); line(x0,470,x0,10);
line(xmax,235,xmax,245); line(xmin,235,xmin,245);
line(x0,10,x0-5,25); line(x0,10,x0+5,25);
line(630,y0,615,y0+5); line(630,y0,615,y0-5);
x:=a; x1:=x0+trunc(M*x); {x,y - математичні координати}
y:=f(x); y1:=y0-trunc(M*y); {x1,y1 - графічні координати}
moveto(x1,y1); setcolor(1);
reset (file1);
for i:=1 to n do
begin
read(file1,k1);
y:=k1.oy; y1:=y0-trunc(M*y);
x:=k1.ox; x1:=x0+trunc(M*x);
lineto(x1,y1);
end;
close(file1); {Закриття файлу}
setcolor(15); {оцифровка осi координат}
settextstyle(TriplexFont,0,1);
outtextxy(xmin-10,250,'MIN');
outtextxy(x0+3,245,'0');
outtextxy(xmax-10,250,'MAX');
settextstyle(TriplexFont,0,2);
outtextxy(200,380, 'Графік 1');
end;
{Основна програма}
Begin
clrscr;
writeln ('write MIN parameter of an interval:');
read (a);
writeln ('write MAX parameter of an interval:');
read (b);
writeln ('write step:');
read (h);
Tabulation(a,b,h);
assign(tmp, 'tmp.dat');
reset (tmp);
read(tmp,k1);
n:=k1.onz;
ymin:=k1.yminz;
ymax:=k1.ymaxz;
close(tmp); {Закриття файлу}
osikoord(a,b,h,ymax,ymin);
grpart(a,M,y0,x0,n,xmin,xmax);
readln(x)
end.
5. ВИСНОВКИ
Щоб виконати цю програму, необхідно знати і вміти використовувати в мові Turbo Pascal функції, описи, а також – знати необхідні команди і процедури при роботі з файлами і з графічним режимом. Написання програми дає особливо добрий практикум в галузі роботи з файлами та з графічним режимом. Виконавши цю прогаму, можна навчитися будувати графіки функцій в середовищі Turbo Pascal через задання необхідної функції.