Предмет: Информатика,
автор: Фэридэшка
Y=
{2X(в кубе) +1 / X-5, если X<4
{3X(в квадрате) -2, если X>=4
это одно выражение. ..
нужно составить блок схему и программу вычисления значения функции. .. ну зотябы помогите составить программу...
Ответы
Автор ответа:
0
Program asd;
USES crt;
var x,f:real;
BEGIN
clrscr;
Writeln('Vvedite x:= ');
Readln(x);
if x<4 then
F:=2*EXP(3*ln(x)+1/x-5)
else
if x>=4 then
F:=3*sqr(x)-2;
Writeln('Otvet: ',f:2:2);
END.
USES crt;
var x,f:real;
BEGIN
clrscr;
Writeln('Vvedite x:= ');
Readln(x);
if x<4 then
F:=2*EXP(3*ln(x)+1/x-5)
else
if x>=4 then
F:=3*sqr(x)-2;
Writeln('Otvet: ',f:2:2);
END.
Приложения:
Автор ответа:
0
Program asd;
USES crt;
var x,f:real;
BEGIN
Clrscr;
Writeln('Vvedite x: ');
Readln(x);
If x<4 then
f:=2*EXP(3*ln(x)+3)
else
if x>=4 then
f:=3*sqr(x)-2;
Writeln(' Otvet: ',f:2:2);
Readln;
END.
USES crt;
var x,f:real;
BEGIN
Clrscr;
Writeln('Vvedite x: ');
Readln(x);
If x<4 then
f:=2*EXP(3*ln(x)+3)
else
if x>=4 then
f:=3*sqr(x)-2;
Writeln(' Otvet: ',f:2:2);
Readln;
END.
Автор ответа:
0
uses crt;
var x,y:real;
begin
readln(x);
if x<4 then y:=2*x*x*x+1/x-5
else y:=3*x*x-2;
writeln(y);
end.
var x,y:real;
begin
readln(x);
if x<4 then y:=2*x*x*x+1/x-5
else y:=3*x*x-2;
writeln(y);
end.
Приложения:
Автор ответа:
0
И что не так?
Похожие вопросы
Предмет: Математика,
автор: marenina25
Предмет: История,
автор: elkinaam
Предмет: Английский язык,
автор: KASDROM
Предмет: Алгебра,
автор: mary120