Question

Хэлп плиз
Составить блок схему и программу на языке паскаля вычисления значения двух функций
значения для второй по строкам
x больше 0 и меньше либо равно 1
х больше 1
х меньше либо равно 0

$T=x-frac{x^{3} }{6} +10^{x} -7,3\\y=left { {{sqrt{x+2} atop {ln(x-1)}} atop {17,9+x^2}$

Answer 1

Вот, держи задачу))

var x: integer;

t,y: real;

begin

   writeln('x = ');

   readln(x);

   t := x - (exp(ln(x)*3))/6 + exp(ln(10)*x) - 7.3;

   writeln('t = ',t:0:5);

   begin

       if x <= 0 then

       begin

           y := 17.9 + exp(ln(x)*2);

       end;

       if (0 < x) and (x <= 1) then

       begin

           y := sqrt(x + 2);

       end;

       if x > 1 then

       begin

           y := ln(x - 1);

       end;

   writeln('y = ',y:0:5);

   end;

end.

Answer 2

Спасибо большое! Но это две раздельные функции. Два кода нужно, на том что ты написал, где конец первой?

Answer 3

Ааа, прости)) Я просто использовал один икс (один ввод) который для двух задач в одной программе. Сейчас переделаю как две отдельные задачи

Answer 4

#1:

var x: integer;

t,y: real;

begin

writeln('x = ');

readln(x);

t := x - (exp(ln(x)*3))/6 + exp(ln(10)*x) - 7.3;

writeln('t = ',t:0:5);

end.

#2:

var x: integer;

t,y: real;

begin

writeln('x = ');

readln(x);

begin

if x <= 0 then

begin

y := 17.9 + exp(ln(x)*2);

end;

if (0 < x) and (x <= 1) then

begin

y := sqrt(x + 2);

end;

if x > 1 then

begin

y := ln(x - 1);

end;

writeln('y = ',y:0:5);

end;

end.