Лабораторна робота № 1

Мовою TURBO PASCAL скласти програму обчислення функції з розгалуженням F(X_і) згідно з варіантами завдань із використанням циклу REPEAT... UNTIL або WHILE... DO. Аргумент X_і заданий умовами: а<х<b, x_i+1 = X_i ±h, h – крок, тобто величина, на яку збільшується змінна X_i при черговому виконанні циклу.

A=5; B=18; C=12; h=2.

{Текст програми №1}

Program Tabulation_1; { Табуляція функції }

Uses Crt; { Під’єднання модуля Сrt }

CONST { Об’ява констант }

A=5; B=18; C=12; h=2;

VAR { Об’ява змінних }

F, X :REAL;

BEGIN { Початок основного блока програми }

CLRSCR; { Очищення екрана }

X:=A; { Присвоєння початкового значення змінній }

Repeat { Циклічна конструкція }

IF X<C { Умовна конструкція }

THEN F:=2*X*LN(ABS(SQR(A)-X))

ELSE F:=EXP(A*X);

WRITELN (‘X=’,X:5:2,’ F=’,F:5:2); { Виведення результатів }

X:=X+H; { Перепозначення змінної циклу }

UNTIL X>B { Перевірка умови виходу із циклу }

END. { Закінчення основного блока програми }

_____________________________________________________________

Program Tabulation_2; { Заголовок програми }

Uses Crt; { Під’єднання модуля Сrt }

CONST { Об’ява констант }

A=5; B=18; C=12; h=2;

VAR { Об’ява змінних }

F, X :REAL;

BEGIN { Початок основного блока програми }

CLRSCR; { Очищення екрана }

X:=A; { Присвоєння початкового значення змінній }

While X<B do

begin { Циклічна конструкція }

IF X<C { Умовна конструкція }

THEN F:=2*X*LN(ABS(SQR(A)-X))

ELSE F:=EXP(A*X);

WRITELN (‘X=’,X:5:2,’ F=’,F:5:2); { Виведення результатів }

X:=X+H; { Перепозначення змінної циклу }

End;

END. { Закінчення основного блока програми }

Program Tabulation_3; { Табуляція функції }

Uses Crt; { Під’єднання модуля Сrt }

CONST { Об’ява констант }

A=5; B=18; C=12; h=2;

VAR { Об’ява змінних }

F, X :REAL;

I:Byte;

BEGIN { Початок основного блока програми }

CLRSCR; { Очищення екрана }

X:=A; { Присвоєння початкового значення змінній }

For i:=1 to 10 do

begin { Циклічна конструкція }

IF X<C { Умовна конструкція }

THEN F:=2*X*LN(ABS(SQR(A)-X))

ELSE F:=EXP(A*X);

WRITELN (‘X=’,X:5:2,’ F=’,F:5:2); { Виведення результатів }

X:=X+H; { Перепозначення змінної циклу }

End; { Перевірка умови виходу із циклу }

END. { Закінчення основного блока програми }

Результат