Значение функции f(x)=2sin(3x/4) определены при x=x0(hx)xn. Определить значение функции, которое ближе всего расположено к точке
275
308
Ответы на вопрос:
function f(x:real):real;
begin
f:=2*sin(2*x/4)
end;
var x0,xn,hx,x1,y1,x,r,mn,zx,zf:real;
begin
write('Введите начало интервала x0=');
readln(x0);
repeat
write('Введите конец интервала xn>',x0:0:2,' xn=');
readln(xn);
until xn>x0;
repeat
write('Введите шаг табуляции hx<',xn-x0:0:2,' hx=');
readln(hx);
until hx<xn-x0;
writeln('Введите координаты точки(x1,y1)');
readln(x1,y1);
x:=x0;
while x<xn+hx/2 do
begin
r:=sqrt(sqr(x-x1)+sqr(f(x)-y1));
writeln('x=',x:5:2,' f(x)=',f(x):8:3,' расстояние до (x1,y1)=',r:8:3);
if x=x0 then
begin
mn:=r;
zx:=x;
zf:=f(x);
end
else if r<mn then
begin
mn:=r;
zx:=x;
zf:=f(x);
end;
x:=x+hx;
end;
writeln('Наиболее близко к точке (x1,y1) находится точка [',zx:0:2,',',zf:0:3,'] r=',mn:0:3)
end.
begin
f:=2*sin(2*x/4)
end;
var x0,xn,hx,x1,y1,x,r,mn,zx,zf:real;
begin
write('Введите начало интервала x0=');
readln(x0);
repeat
write('Введите конец интервала xn>',x0:0:2,' xn=');
readln(xn);
until xn>x0;
repeat
write('Введите шаг табуляции hx<',xn-x0:0:2,' hx=');
readln(hx);
until hx<xn-x0;
writeln('Введите координаты точки(x1,y1)');
readln(x1,y1);
x:=x0;
while x<xn+hx/2 do
begin
r:=sqrt(sqr(x-x1)+sqr(f(x)-y1));
writeln('x=',x:5:2,' f(x)=',f(x):8:3,' расстояние до (x1,y1)=',r:8:3);
if x=x0 then
begin
mn:=r;
zx:=x;
zf:=f(x);
end
else if r<mn then
begin
mn:=r;
zx:=x;
zf:=f(x);
end;
x:=x+hx;
end;
writeln('Наиболее близко к точке (x1,y1) находится точка [',zx:0:2,',',zf:0:3,'] r=',mn:0:3)
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
Что выполняет ученик по команде внимание...
alenavol200514.03.2021 16:25 -
Ребят по бурятскому языку упр 1 страница 132...
Sabinaaa3323.02.2020 23:11 -
Китайский язык; учебник 5 класса. Нужен перевод текста письмо бабушке...
dashkin67816.07.2022 22:49 -
5. mashq. Savollarga ll shaxs buyruq-istak maylidagi fe llarni qowah...
DanilFox0216.08.2021 07:45 -
1. Определите по звездной карте экваториальные координаты α Овна....
ficon26315.05.2022 14:17 -
Как перенести иконки с первого монитора на второй?...
ghbdtnzujdyjfns07.07.2022 13:46 -
Почему никто не отвечает на действительно сложные во ответы на которые...
gamsteriv17.07.2020 12:37 -
Где найти бесплатную книгу воскресни за 40 дней ? ...
kolyakolomiets22.09.2020 20:00 -
Какая тема в повести юнуса чуяко чужая боль является центральной?...
кошка45203.08.2020 16:20 -
Азбука Морзе. На листочке дали код без пробелов. Зашифрованно одно...
Forkier06.02.2023 13:12
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.