Использовать Чертежникалг Слон нач опустить перо сместиться на вектор(2, 0) сместиться на вектор(0, 2) сместиться на вектор(1, 0) сместиться на вектор(0, -2) сместиться на вектор(2, 0) сместиться на вектор(0, 2) сместиться на вектор(1, 1) сместиться на вектор(0, 2) сместиться на вектор(1, -2) сместиться на вектор(-1, 2) сместиться на вектор(-1, 1) сместиться на вектор(-3, 0) сместиться на вектор(-1, 1) сместиться на вектор(-1, 0) сместиться на вектор(-1, -2) сместиться на вектор(-1, 0) сместиться на вектор(0, 3) сместиться на вектор(-1, 0) сместиться на вектор(0, -3) сместиться на вектор(1, -1) сместиться на вектор(2, -1) сместиться на вектор(0,-3) поднять перо сместиться на вектор(1, 3) опустить перо сместиться на вектор(1, 1) сместиться на вектор(0, 2) поднять перо сместиться на вектор(-2, -1) опустить перо сместиться на вектор(-0.1, 0.1) сместиться на вектор(-0.1, -0.1) сместиться на вектор(0.1, -0.1) сместиться на вектор(0.1, 0.1) поднять перо сместиться на вектор(0, -5)кон
алг нач сместиться на вектор (7,7) опустить перо сместиться на вектор (0,-1) сместиться на вектор(1,0) сместиться на вектор(0,4) сместиться на вектор(-4,0) сместиться на вектор(0,-4) сместиться на вектор(-1,0) сместиться на вектор(0,-1) сместиться на вектор(2,0) сместиться на вектор(0,1) сместиться на вектор(1,0) сместиться на вектор(0,-3) сместиться на вектор(3,0) сместиться на вектор(0,2) сместиться на вектор(1,0) сместиться на вектор(0,-2) сместиться на вектор(3,0) сместиться на вектор(0,5) сместиться на вектор(-5,0) поднять перо сместиться на вектор(5,0) опустить перо сместиться на вектор(1,-1) поднять перо сместиться на вектор(-8,2) опустить перо сместиться на вектор(0,-1) сместиться на вектор(-1,0) сместиться на вектор(0,1) сместиться на вектор(1,0) поднять перо кон
begin Write('Введите значение аргумента x: '); Readln(x); Write('Введите значение коэффициента a: '); Readln(a); {боремся с неположительным значением под знаком корня} t := a - cos(x); if t < 0 then y := exp(x + 1.8) - exp(1 / 5 * ln(-t)) else if t = 0 then y := exp(x + 1.8) else y := exp(x + 1.8) + exp(1 / 5 * ln(t)); Writeln('Значение функции равно ', y) end.
Тестовое решение:
Введите значение аргумента x: -4.2 Введите значение коэффициента a: 1.95 Значение функции равно 1.28604638457326