нужно решение

[Вадим765]

Ребят, огромная просьба, напишите как это должно выглядеть в паскале

1) Заданы числа P, X, Y. Если Р<0, то вычислить Т как сумму X и Y. Если Р≥0, то как разность X и Y.
P, X,Y – действительные числа.


2) Вычислить значение величины t=b/ax(ax³)? Если |ax|>1, величины h=√a²-b² (это под корнем), Если |ax|<1, величины S= x³/3 - a³/3 , если |ax|=1, то А, В – константы, х-целое.

[zig1]

1)

program t1;
var
p,x,y,t:real;
begin
writeln('Введите p,x,y');
readln(p,x,y);
if p<0 then 
t:=x+y;
if p>=0 then
t:=x-y;
writeln('T=',t);
end.

[warca]

Вычислить значение величины t=b/ax(ax³)?

Это предложение идет вместе с условием?или его надо отдельно посчитать?
В задаче номер 2,я вижу две задачи.
первое: Вычислить значение величины t=b/ax(ax³)?
второе:Если |ax|>1, величины h=√a²-b² (это под корнем), Если |ax|<1, величины S= x³/3 - a³/3 , если |ax|=1, то А, В – константы, х-целое.


Но мне не понятно,зачем нам вычислять t=b/ax(ax³)?

[Poma][a]

Сообщение от zig1

1)

program t1;
var
p,x,y,t:real;
begin
writeln('Введите p,x,y');
readln(p,x,y);
if p<0 then 
t:=x+y;
if p>=0 then
t:=x-y;
writeln('T=',t);
end.

вцелом правильно только зачем 2 раза усеченую, если можно 1 раз полную?

[warca]

program t1;
var
p,x,y,t:real;
begin
writeln('Введите p,x,y');
readln(p,x,y);
if p<0 then 
t:=x+y;
if p>=0 then
t:=x-y;
writeln('T=',t);
end.

а что тут не то?вроде все правильно

[zig1]

Сообщение от warca

а что тут не то?вроде все правильно

Я расписал чтобы было всё понятно, но можно и так:

program t1;
var
p,x,y,t:real;
begin
writeln('Введите p,x,y');
readln(p,x,y);
if p<0 then 
t:=x+y
else 
t:=x-y;
writeln('T=',t);
end.