Условие задачи
1. Линейные алгоритмы. Вычислить значение функции при А, В и С – константах (задать значения самостоятельно) и произвольном х (ввести с клавиатуры). Вывести на экран заданные константы в одну строку и результат вычисления в другую строку.
2. Даны действительные числа А, В. Если они оба отрицательные, то заменить каждое их них его квадратом, иначе – положительные из них увеличить в два раза
Ответ
1.
var
y:double;
x:integer;
begin
write('x = ');
readln(x);
y := Tan(2 * x) - Power(E, x);
write('y = ', y);
end.
Потяни
