Технический форум - Задача. Паскаль

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Задача. Паскаль (http://www.tehnari.ru/f41/t70778/)

Задача. Паскаль

Составить блок-схему алгоритма решения задачи и программу на языке PASCAL .
Вычислить значения функции Z

Z= x / ((x-2,3)*(x-2,3))

t+1,2; t>3
X= { 2+t; t<3
ln (t*t-+1); t=3

Сначала накладывает ограничения на ОДЗ:
Знаменатель дроби не может быть равен 0, поэтому х<>2.3.
Теперь о непонятном:

Цитата:

Сообщение от Даша Г (Сообщение 702940)

ln (t*t-+1)

Что означает ваше -+1?
В целом решение может выглядеть так:

Код:

var t,x,z: real;

begin

writeln('Input t:');

readln(t);

if t>3 then x:=t+1.2 else if t<3 then x:=2+t else x:=ln(t*t-1);

if x=2.3 then writeln('Nan') else begin z:=x/sqr(x-2.3); writeln('Z=',z:4:8); end;

readln

end.