Составить подпрограмму для вычисления y=m√x с заданной степенью точности E по итерационной формуле, - id1438837920220622 от lllsuprall 22.06.2022 15:41

Question

Информатика: Составить подпрограмму для вычисления y=m√x с заданной степенью точности E по итерационной формуле, которую необходимо выбрать. Использовать эту подпрограмму при составлении программы для вычисления значений функции F(x), определенной на отрезке [a,b] в точках x1,x2,...,xn. Программа должна напечатать аргументы и значения функции F(x), сохраняя между ними соответствие. Функция F(x) и пределы изменения аргументов [a,b] выбираются yi+1=yi(3/2-yi^2/2x); i=0,1,2,... y0=0,5x x 1.5 F(x)= m√m√x+m√x+m√x

lllsuprall · Accepted Answer

// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!

procedure DimDimoch(x:real; n:integer; var r:real);
begin
r:=n*Sqr(Sqr((x+3*x)))-12*x*n+2*n
end;

begin
var x:real;
var n:integer;
Write('Введите x и n: '); Read(x,n);
var r:real;
DimDimoch(x,n,r);
Writeln('Значение функции ',r)
end.

Пример
Введите x и n: -1.23 4
Значение функции 2410.83920384

begin
Writeln('Введите 6 пар целых чисел');
var k:=0;
loop 6 do begin
    var (a,b):=ReadInteger2;
    if (a+b).IsEven then k+=1
    end;
Writeln('Число пар с четной суммой: ',k)
end.

Пример
Введите 6 пар целых чисел
15 23
19 -7
5 0
4 11
132 63
444 12
Число пар с четной суммой: 3

MOGZ ответил