Дана матрица чисел , найдти индекс в котором находиться ближайший элемент к заданому

@zops · Регистрация: 06.11.2009

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

помогите

@кот Бегемот · 06.11.2009, 22:51

тип данных?

@zops · 06.11.2009, 23:22 **[ТС]**

целые

@flambo · 07.11.2009, 00:50

оБЪясни немного задание: там же можно выбрать индекс элемента который находится правее, левее и т.д. нужного элемента, но при этом он будет ближайшим к заданому..
что именно искать то?

@кот Бегемот · 07.11.2009, 00:54

Дана матрица чисел , найдти индекс в котором находится ближайший элемент к заданому
Два варианта:
1. Задан номер элемента массива

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
a:array[1..100]of integer;
n,nom,bliz,min,i:integer;
begin
min:=32767;
writeln('Ведите количество элементов');
readln(n);
writeln('введите элементы массива');
for i:=1 to n do
read(a[i]);
writeln('Введите номер заданного элемента');
readln(nom);
for i:=1 to n do
if nom<>i then 
       if abs(a[i]-a[nom])<min then begin
                               min:=abs(a[i]-a[nom]);
                               bliz:=i;
                               end;
writeln('Ближайший к заданному элемент с индексом ',bliz);
end.

2. Задано значение элемента

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
a:array[1..100]of integer;
n,nom,bliz,min,i:integer;
begin
min:=32767;
writeln('Ведите количество элементов');
readln(n);
writeln('введите элементы массива');
for i:=1 to n do
read(a[i]);
writeln('Введите значение элемента');
readln(nom);
for i:=1 to n do
 if nom<>a[i] then 
       if abs(a[i]-nom)<min then begin
                               min:=abs(a[i]-nom);
                               bliz:=i;
                               end;
writeln('Ближайший к заданному элемент с индексом ',bliz);
end.

@zops · 07.11.2009, 00:56 **[ТС]**

по значению ближайший (максимальный или минимальный элемент)

я то впринцепи понял все да и сдела кое что , вот тока засел как найдти его этот ближайший через мин и мах е пойму и все(

Delphi
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
program dzzu;
uses crt;
const n=5;
type marray=array [1..n,1..n] of integer;
var W:marray;
zup:integer;
 
procedure vvod (pp:integer; var a:marray);
var i,j:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(25);
end;
 
procedure vuvod (pp:integer; a:marray);
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
write (a[i,j]:4);
writeln;
end;
end;
 
 
[COLOR="Red"]function Mxmn(pp:integer; a:marray; Var mx,imx,jmx,mn,imn,jmn:Integer):integer;
Var i,j,k: Integer;
begin
 
writeln('число');
k:=random(25);
writeln (k);
 
mx:=a[1,1];imx:=1;jmx:=1;
Repeat
for i:=1 to n do
for j:=1 to n do
 begin
  if a[i,j]>mx then
   begin
    mx:=a[i,j];
    imx:=i;
    jmx:=j;
   end;
   end;
Until mx>k;
 
mn:=a[1,1];imn:=1;jmn:=1;
Repeat
for i:=1 to n do
for j:=1 to n do
begin
  if a[i,j]<mn then
   begin
    mn:=a[i,j];
    imn:=i;
    jmn:=j;
   end;
   end;
Until mn<k;
 
mn
mx
end;
writeln('Максимальный элемент a[',imx,',',jmx,']=',mx);
writeln('Минимальный  элемент a[',imn,',',jmn,']=',mn);[/COLOR]
 
 
Begin
vvod(zup,w);
vuvod(zup,w);
Readln;
End.

как то так , тока не доконца(

@кот Бегемот · 07.11.2009, 00:59

Для flambo
Ближайший, значит абсолютное значение разности между ним и другим элементом минимально

Добавлено через 2 минуты
Для zoops Пардон, в задании индекс только один, надо уточнять, матрица линейная или прямоугольная.

@zops · 07.11.2009, 01:03 **[ТС]**

с функцией я намудрил по жескому

дана матрица (любая) и в этой матрице нада вывести индекс элемента который будет ближайшим к числу который мы видем (любое число )

да одно число ближайщее тока
,говорю же набросок это ,мог намудрить

@кот Бегемот · 07.11.2009, 01:08

Тогда всё работает, проверяй

Добавлено через 2 минуты
Для произвольного числа

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
a:array[1..100]of integer;
n,nom,bliz,min,i:integer;
begin
min:=32767;
writeln('Ведите количество элементов');
readln(n);
writeln('введите элементы массива');
for i:=1 to n do
read(a[i]);
writeln('Введите число');
readln(nom);
for i:=1 to n do
        if abs(a[i]-nom)<min then begin
                               min:=abs(a[i]-nom);
                               bliz:=i;
                               end;
writeln('Ближайший к заданному элемент с индексом ',bliz);
end.

@zops · 07.11.2009, 01:09 **[ТС]**

мм спасибо

@кот Бегемот · 07.11.2009, 01:11

Проверишь, кнопочку "спасибо" не забудь нажать

Новые блоги и статьи Все статьи Все блоги /
Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .

@zops 2 / 2 / 0 Регистрация: 06.11.2009 Сообщений: 17

	Дана матрица чисел , найдти индекс в котором находиться ближайший элемент к заданому 06.11.2009, 22:13. Показов 1472. Ответов 10 Метки нет (Все метки) помогите 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	06.11.2009, 22:51
	тип данных? 0

@zops 2 / 2 / 0 Регистрация: 06.11.2009 Сообщений: 17
	06.11.2009, 23:22 [ТС]
	целые 0

@flambo 28 / 28 / 7 Регистрация: 03.10.2009 Сообщений: 122
	07.11.2009, 00:50
	оБЪясни немного задание: там же можно выбрать индекс элемента который находится правее, левее и т.д. нужного элемента, но при этом он будет ближайшим к заданому.. что именно искать то? 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	07.11.2009, 00:59
	Для flambo Ближайший, значит абсолютное значение разности между ним и другим элементом минимально Добавлено через 2 минуты Для zoops Пардон, в задании индекс только один, надо уточнять, матрица линейная или прямоугольная. 0

@zops 2 / 2 / 0 Регистрация: 06.11.2009 Сообщений: 17
	07.11.2009, 01:03 [ТС]
	с функцией я намудрил по жескому дана матрица (любая) и в этой матрице нада вывести индекс элемента который будет ближайшим к числу который мы видем (любое число ) да одно число ближайщее тока ,говорю же набросок это ,мог намудрить 0

@zops 2 / 2 / 0 Регистрация: 06.11.2009 Сообщений: 17
	07.11.2009, 01:09 [ТС]
	мм спасибо 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	07.11.2009, 01:11
	Проверишь, кнопочку "спасибо" не забудь нажать 1