Курсовая работа: Алгоритмизация и программирование на языке Паскаль

Writeln ;

Writeln (' Лабораторная работа № 3, 8-ой вариант');

Writeln (' Дано:');

Writeln (' Константыa=1.1; b=4');

Writeln ;

Writeln (' Изменение x происходит от -3 до 3 с шагом 0,5');

Writeln (' Вычисленение производится по формуле:');

Writeln ;

Writeln (' ln(|x+a|)*b');

Writeln (' y = -----------');

Writeln (' √a^b-sin(b)');

Writeln ;

textcolor (LightGreen);

Writeln ('Дляпродолжениянажмите "Enter"');

Ch := ReadKey;

If Ch<>#13 Then goto 1;

clrscr;

Writeln (' Вычисленение производится по формуле:');

Writeln ;

Writeln (' ln(|x+a|)*b');

Writeln (' y = ----------- ; a=1.1, b=4' );

Writeln (' √a^b-sin(b)');

Writeln ;

{-= вычисляем формулу в цикле =-}

x := -3;

While (x<=3) do

Begin

y:= ln(abs(x+a))*b/(sqrt(exp(b*ln(a)))-sin(b));

{Выводим полученный результат}