Текст програми.

При написанні програми використовують оператори керованого виведення LOCATE для мови Basic і GotoXY для мови Pascal, та оператори введення одного символу INKEY$ для мови Basic, ReadKey для мови Pascal. Приклад тексту програми подано нижче.

program table;

uses CRT;

const MaxRowsNum=24;

var a,b,dx,x,y:real;

Page:integer;

Row:integer;

ColumnsNum:integer;

function f(a:real):real;

begin

if a<>0

then f:=sin(a)/a

else f:=0;

end;

Procedure Zatrymka;

begin

Repeat until KeyPressed;

end;

begin

ClrScr;

WriteLn('Obchyslennja znachen funktsiji y=sin(x)/x');

Write('Liva granytsja intervalu: ');

ReadLn(a);

Write('Prava granytsja intervalu: ');

ReadLn(b);

Write('Krok: ');

ReadLn(dx);x:=a;

ClrScr;

Page:=1;Row:=5;

GotoXY(1,1);Write('Storinka:');GotoXY(10,1);Write(Page);

GotoXY(1,2);

WriteLn('+--------------------------------------+--------------------------------------+');

WriteLn('| Argument | Functsija |');

WriteLn('+--------------------------------------+--------------------------------------+');

repeat

y:=f(x);

GotoXY(1,Row);Write('|');GotoXY(40,Row);Write('|');GotoXY(79,Row);Write('|');

GotoXY(2,Row);

Write(x);

GotoXY(41,Row);

Write(y);

inc(Row);

x:=x+dx;

if Row=MaxRowsNum

then

begin

GotoXY(10,1);

Write(Page);

Zatrymka;

Row:=5;

Inc(Page);

end;

until x>b;

Zatrymka;

end.

Налагодження та результати тестування.

В цьому розділі необхідно навести діалог користувача з комп’ютером при введенні даних, одну з виведених на екран сторінок таблиці, перевірити за допомогою калькулятора або ЕОМ декілька з розрахованих значень.