Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 22.10.2018
Сообщений: 2
1

Протабулировать функцию и определить значение функции, которое ближе всего расположено к заданной точке

26.11.2018, 20:59. Просмотров 967. Ответов 1
Метки нет (Все метки)

Напишите программу на паскале, пожалуйста, не получается понять:
Значение функции f(x)=2sin(3x/4) определены при x=x0(hx)xn. Определить значение функции, которое ближе всего расположено к точке с координатами (x1, y1). Значения x0, hx, xn, x1, y1 задать произвольно. Цикл нужно сделать с предусловием.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.11.2018, 20:59
Ответы с готовыми решениями:

Определить значение функции, которое ближе всего расположено к точке с заданными координатами
Напишите программу на паскале,пожалуйста,не получается понять: Значение функции f(x)=x^2 +2x -3...

Дано множество отрезков; найти отрезок, середина которого ближе всего к заданной точке
Дано множество отрезков. Среди отрезков, длина которых больше D, найти отрезок, середина которого...

В одномерном массиве найти индекс и значение элемента, которое ближе всего к значению -5
Всем доброго дня, нужна помощь, я в паскале только на азах, а девушке задали задание что я, что она...

Определить, какая из двух точек расположена ближе к заданной точке
На оси х о у заданы своими координатами три точки a, b, c. Определить, какая из точек b или c...

1
Модератор
60282 / 45386 / 31320
Регистрация: 18.05.2008
Сообщений: 109,028
27.11.2018, 09:36 2
Лучший ответ Сообщение было отмечено Uncle_Izichka как решение

Решение

Это по приведенному условию.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
function f(x:real):real;
begin
f:=2*sin(2*x/4)
end;
var x0,xn,hx,x1,y1,x,mn,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
  writeln('x=',x:5:2,' f(x)=',f(x):8:3);
  if x=x0 then
   begin
    mn:=sqr(x-x1)+sqr(f(x)-y1);
    zf:=f(x);
   end
  else if sqr(x-x1)+sqr(f(x)-y1)<mn then
   begin
    mn:=sqr(x-x1)+sqr(f(x)-y1);
    zf:=f(x);
   end;
  x:=x+hx;
 end;
writeln('Значение функции в точке находящейся ближе всех к точке (x1,y1)=',zf:0:3)
end.
Но какое-то условие куцее, надо бы по хорошему кроме значения функции вывести значение аргумента и расстояния до все точек.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
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.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.11.2018, 09:36

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Определить, какая из двух точек расположена ближе к заданной точке
Задача: На числовой оси расположены три точки: A, B, C. Определить, какая из двух последних...

Протабулировать функцию и найти сумму значений функции в каждой точке
Условие задания: Протабулировать функцию в интервале от a до b с шагом 0,01. Сама функция...

Протабулировать 1 функцию на интервале [a, b] с шагом h=0.01 Найти сумму значений функции в каждой точке
2)Протабулировать 1 функцию на интервале с шагом h=0.01 Найти сумму значений функции в каждой...

Вычислить экспоненту того числа, значение которого ближе всего к значению функции
Помогите написать программу в C#. 1)Даны три числа a, b, c. Вычислить экспоненту того числа,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.