Вопрос по информатике:

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

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

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

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

#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;beginwriteln('x = ');readln(x);beginif x <= 0 thenbeginy := 17.9 + exp(ln(x)*2);end;if (0 < x) and (x <= 1) thenbeginy := sqrt(x + 2);end;if x > 1 thenbeginy := ln(x - 1);end;writeln('y = ',y:0:5);end;end.

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

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.