Проблема с задачей

[darxide]

Есть задача --Составить структурную схему и программу для вычисления значения y(x) и для некоторых x произвести вычисления на компьютере.7. y=x3+(cos(x2+ln(sin3(x+1))))

Я составил код:

program cvp;
uses crt;
var x,y,z:real;
    p,s,t,r:real;
    f:real;
begin
    clrscr;
    write('Введите через пробел значения исходных данных x,y,z= x,y,z=');
    readln(x,y,z);
    p:=cos(s); s:=x*x+ln(t); t:=sin(r)*sin(r)*sin(r); r:=x+1; f:= x*x*x+s;
    writeln('p=',p:1:3,' s=', s:1:3,' t=', t:1:3,' r=', r:1:3,' f=', f:1:3);
     readkey;
end.

при запуске и вводе значений x y z пишет ошибку *Ошибка: вещественное деление на ноль. строка 10



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Valio]

1. Для оформления кода используй тег CODE.

2.

p:=cos(s); s:=x*x+ln(t); t:=sin(r)*sin(r)*sin(r); r:=x+1; f:= x*x*x+s;

напиши так

p:=cos(s); 
s:=x*x+ln(t); 
t:=sin(r)*sin(r)*sin(r); 
r:=x+1; 
f:= x*x*x+s;

и посмотри на какой конкретно строке ошибка.

3. Хочу заметить что при попытке вычислить

p:=cos(s); s:=x*x+ln(t);

переменая t будет равна нулю ибо до этого никгде не вычислилась или не заполнилась. А чему равен ln(0)? Неопределён.

[darxide]

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

1. Для оформления кода используй тег CODE.

2.

p:=cos(s); s:=x*x+ln(t); t:=sin(r)*sin(r)*sin(r); r:=x+1; f:= x*x*x+s;

напиши так

p:=cos(s); 
s:=x*x+ln(t); 
t:=sin(r)*sin(r)*sin(r); 
r:=x+1; 
f:= x*x*x+s;

и посмотри на какой конкретно строке ошибка.

3. Хочу заметить что при попытке вычислить

p:=cos(s); s:=x*x+ln(t);

переменая t будет равна нулю ибо до этого никгде не вычислилась или не заполнилась. А чему равен ln(0)? Неопределён.

это надо значение t выше поднять или как?

[Mad_Cat]

r:=x+1;
t:=sin(r)*sin(r)*sin(r);
s:=x*x+ln(t);
p:=cos(s); 
f:= x*x*x+s;

[Valio]

Надо просто немного пересмотреть последовательность вот этих действий:

p:=cos(s); 
s:=x*x+ln(t); 
t:=sin(r)*sin(r)*sin(r); 
r:=x+1; 
f:= x*x*x+s;

[darxide]

спасибо за подсказку