Разработать программу табулирования функции для произвольного диапазона изменения аргумента с использованием оператора repeat. Y=(x(2,7x^(1,35)+1(лямбда)))^(1/3), лямбда=tg^2((xa)/2*pi) , x€[1,2;

Question

Игорь041

4 года назад

6

Разработать программу табулирования функции для произвольного диапазона изменения аргумента с использованием оператора repeat. Y=(x(2,7x^(1,35)+1(лямбда)))^(1/3), лямбда=tg^2((xa)/2*pi) , x€[1,2;

2], дельта Х=0,2, а=1,44

Знания

Информатика

1 ответ:

Злой Коте [317] · Answer 1 · 2020-12-07T17:17:36+03:00

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var x,a,x1,x2,delta,lambda,y:real;
Write('Введите границы изменения аргумента и шаг: ');
Read(x1,x2,delta);
a:=1.44;
x:=x1;
repeat
    lambda:=Sqr(Tan(x*a/2*pi));
    y:=Power(x*(2.7*Power(x,1.35)+lambda),1/3);
    Writeln('x=',x,' y=',y);
    x+=delta
until x>x2
end.

<u><em>Тестовое решение</em></u>
Введите границы изменения аргумента и шаг: 1.2 2.0 0.2
x=1.2 y=1.63776729113963
x=1.4 y=1.81249323168809
x=1.6 y=2.04691849426225
x=1.8 y=2.40906764678559
x=2 y=4.09613421404126