Даны два вещественных числа P и R. Найти порядковый номер элемента массива A размерности N, который наиболее близкий к их разности

@хускар123 · Регистрация: 21.01.2013

Студворк — интернет-сервис помощи студентам

Даны два вещественных числа P и R. Найти порядковый номер элемента массива A размерности N, который наиболее близкий к их разности.

@Taftis · 04.02.2013, 15:21

сначала в проге вычисли их разность потом в вектор запишы результат вычисления элемента и разности и найди минимум индексы минимума=искомому

Добавлено через 43 секунды

Pascal

const
  nmax=100;
var
  p,r,min: real;
  a: array[1..nmax] of integer;
  n,i,k: byte;
begin
  write('Введите через пробел числа P и R: ');
  readln(p,r);
  write('Введите размер массива: ');
  readln(n);
  for i:=1 to n do
  begin
    write('a[',i,'] = ');
    readln(a[i]);
  end;
 
  k:=1;
  for i:=2 to n do
    if abs(a[i]-abs(p-r)) <= abs(a[k]-abs(p-r)) then
    k:=i;
  writeln('Номер элемента, наиболее близкого к разности ',p,' и ',r,' = ',k);
end.

@хускар123 · 05.02.2013, 15:16 **[ТС]**

что такое abs?

@ermolay · 05.02.2013, 16:06

Сообщение от хускар123

что такое abs?

функция abs(x) возвращает абсолютную величину числа (модуль). Например:
abs(-23) = 23;

@хускар123 0 / 0 / 0 Регистрация: 21.01.2013 Сообщений: 18
		1
	Даны два вещественных числа P и R. Найти порядковый номер элемента массива A размерности N, который наиболее близкий к их разности 04.02.2013, 13:25. Показов 996. Ответов 3 Метки нет (Все метки) Даны два вещественных числа P и R. Найти порядковый номер элемента массива A размерности N, который наиболее близкий к их разности. 0

@хускар123 0 / 0 / 0 Регистрация: 21.01.2013 Сообщений: 18
	05.02.2013, 15:16 [ТС]	3
	что такое abs? 0

@ermolay 3451 / 2389 / 2135 Регистрация: 04.12.2011 Сообщений: 3,966
	05.02.2013, 16:06	4
	Сообщение от хускар123 что такое abs? функция abs(x) возвращает абсолютную величину числа (модуль). Например: abs(-23) = 23; 1

Опции темы