Question

Задача.Paskal.
Очистите экран, заполните его бирюзовым цветом и ещё раз очистите экран. Введите значения х, у. Очистите экран и выведите в центре экрана в столбик следующие вычисленные значения, применив форматный вывод до третьего знака после запятой: sin(2x) cos(2y) tg(x 2) (формулы вывести). Провести один запуск. Пример вывода исходных данных: Введите x=3.5 Введите у=6​

Answer 1

program MathOperations;

uses

 crt, math;

var

 x, y: Real;

 sin2x, cos2y, tgx2: Real;

begin

 ClrScr;

 TextBackground(11);

 ClrScr;

 TextBackground(0);

 Write('Введите x=');

 ReadLn(x);

 Write('Введите y=');

 ReadLn(y);

 ClrScr;

 sin2x := sin(2*x);

 cos2y := cos(2*y);

 tgx2 := tan(x*x);

 WriteLn('sin(2x) = ', FormatFloat('0.###', sin2x));

 WriteLn('cos(2y) = ', FormatFloat('0.###', cos2y));

 WriteLn('tg(x^2) = ', FormatFloat('0.###', tgx2));

 ReadLn;

end.

При запуске программа сначала очищает экран, заполняет его бирюзовым цветом и снова очищает экран. Затем пользователю предлагается ввести значения x и y, после чего экран очищается и выводятся значения sin(2x), cos(2y) и tg(x^2) с использованием форматного вывода.

Например, если пользователь введет x=3.5 и y=6, программа выведет на экран:

sin(2x) = -0.757

cos(2y) = -0.416

tg(x^2) = -0.648

Answer 2

program Pascal2.2;

uses crt, math;

var

 x, y: real;

begin

 clrscr;

 textbackground(cyan);

 clrscr;

 write('Введите x=');

 readln(x);

 write('Введите y=');

 readln(y);

 clrscr;

 writeln('sin(2x) = ', format('%0.3f', [sin(2*x)]));

 writeln('cos(2y) = ', format('%0.3f', [cos(2*y)]));

 writeln('tg(x^2) = ', format('%0.3f', [tan(x*x)]));

 readln;

end.