Умова: Дано дійсні значення х та у. Обчислити:
Для розв'язання цієї задачі необхідне виконання умов обох попередніх прикладів.
Текст програми:
Program Р5 ;
Uses crt ;
Var X, Y, Rezultat : real;
Begin
Clrscr ; {Очищення екрану)
Write ( 'Введіть значення X та Y : ' ) ;
Readln (X,Y) ;
If (sqr(X)-sqr(Y)<>0) and (X*X*X-Y+0.5>=0) Then begin
Rezultat:=sqrt(X*X*X-Y+0.5)/ (sqr(X)-sqr(Y));
Writeln('Rezultat=' ,Rezultat:8:2) ; end
Else
Writeln('Обчислення неможливі!');
Readkey; {Затримка зображення на екрані до натискання будь-якої, клавіші}
End.
