Выражение с П - Pascal

Формулировка задачи:

Подскажите как решать подобные уравнения, нужно сделать 3 подобных, думаю разобраться в одном остальные сам сделаю.
Выражение
x1
h
Значение y

Код к задаче: «Выражение с П - Pascal»

textual
program z22;
var x,p:real;
     i : byte;
begin
 x := -pi;
 p := 1;
 for i := 1 to 11 do
 begin
  p := p * sqr(1 + ln(abs(x)));
  x := x + pi/20;
 end;
 Writeln(p:0:2);
 Readln;
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

9   голосов, оценка 4.667 из 5


СОХРАНИТЬ ССЫЛКУ