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

Writeln (' ПРОГРАММИРОВАНИЕ ФОРМУЛ; ОПЕРАТОРЫ ВВОДА И ВЫВОДА');

Writeln ;

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

Writeln (' Дано:');

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

Writeln (' Переменные x, которые надо ввести с клавиатуры = -3 и 3');

Writeln ;

Writeln (' При -3 y=1.31; 3 y=2.87');

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

Writeln ;

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

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

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

Writeln ;

textcolor (LightGreen);

Write (' Введите значение x: ');

Read (x);

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

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

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

Writeln ;

textcolor (Yellow);

WriteLn ('Результат вычисления y =',y:6:2);

Writeln ;

textcolor (LightRed);

Writeln(' для завершения нажмите "Esc", для повтора любую клавишу');

Writeln ;

textcolor (White);

Ch := ReadKey;