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

[Даша Г]

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

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

 

[AlexZir]

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

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.