Предмет: Информатика, автор: tailun

Хэлп плиз
Составить блок схему и программу на языке паскаля вычисления значения двух функций
значения для второй по строкам
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}

Ответы

Автор ответа: dimb0r22
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.


tailun: Спасибо большое! Но это две раздельные функции. Два кода нужно, на том что ты написал, где конец первой?
dimb0r22: Ааа, прости)) Я просто использовал один икс (один ввод) который для двух задач в одной программе. Сейчас переделаю как две отдельные задачи
dimb0r22: #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.
Похожие вопросы