Предмет: Информатика,
автор: жихарев
Вычислить значение функции. Паскаль
Приложения:
Ответы
Автор ответа:
0
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!
1. Современное решение
begin
var x:=ReadReal('x=');
var F:=x<7 ? -x*x : 2**(-x)/(x*x-9);
Writeln('F(x) = ',F)
end.
Примеры
x= 5.3
F(x) = -28.09
x= 8
F(x) = 7.10227272727273E-05
2. Решение в стиле "ТурбоПаскаль конца 80-х"
var
x,F:real;
begin
Write('x= ');
Readln(x);
if x<7 then F:=-x*x
else F:=Exp(-x*Ln(2))/(x*x-9);
Writeln('F(x) = ',F);
Readln
end.
// Внимание! Если программа не работает, обновите версию!
1. Современное решение
begin
var x:=ReadReal('x=');
var F:=x<7 ? -x*x : 2**(-x)/(x*x-9);
Writeln('F(x) = ',F)
end.
Примеры
x= 5.3
F(x) = -28.09
x= 8
F(x) = 7.10227272727273E-05
2. Решение в стиле "ТурбоПаскаль конца 80-х"
var
x,F:real;
begin
Write('x= ');
Readln(x);
if x<7 then F:=-x*x
else F:=Exp(-x*Ln(2))/(x*x-9);
Writeln('F(x) = ',F);
Readln
end.
Приложения:
Похожие вопросы
Предмет: Алгебра,
автор: 56526
Предмет: Геометрия,
автор: mila1907lapina
Предмет: Алгебра,
автор: og260102
Предмет: История,
автор: milena88
Предмет: Математика,
автор: солнышко911