Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 05.06.2011
Сообщений: 3

Как мне сделать чтобы после нахождения первого минимального элемента (напр mas[2;4]=4) следующий элемент начинал искаться с 4 строки ?

05.06.2011, 18:06. Показов 743. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Ребят помогите плиз!!
Дан массив например !! происходит поиск по массиву минимального элемента после того как он находиться он записывается и ищет следующий элемент!!!
Как мне сделать чтобы после нахождения первого минимального элемента (напр mas[2;4]=4) следующий элемент начинал искаться с 4 строки ?
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
05.06.2011, 18:06
Ответы с готовыми решениями:

Как сделать чтобы text1 начинал новую внесенную запись с новой строки?
Как сделать чтобы text1 начинал новую внесенную запись с новой строки? то есть... чтото типо обычного чата принажатии кнопки сапись...

Вставить элемент в массив после первого минимального элемента массива
Вставить элемент в массив после первого минимального элемента массива.

Нужно сделать так, чтобы после нажатия правой кнопки мыши, кот снова начинал идти
В программе кот идет с края до края, все снова и снова... Нажатием правой кнопки он идет вправо, нажатием левой кнопки он идет влево. Все...

6
 Аватар для liker
18 / 18 / 3
Регистрация: 24.04.2010
Сообщений: 54
05.06.2011, 18:28
Вообще ничего не понял Оо Какие строки, если в примере ты показал одномерный массив? И как это минимальное значение mas[2;4]=4? Может 2?
0
 Аватар для deathNC
1905 / 1016 / 123
Регистрация: 08.12.2009
Сообщений: 2,792
Записей в блоге: 2
05.06.2011, 18:33
Никак. В цикле дальше просто ищешь и всё. Зачем заново начинать.
Нормально напиши задание.

Добавлено через 1 минуту
liker, в примере он показал двумерный массив. Просто полагаю у него функция есть, которая отыскивает первый элемент, удовлетворяющий условиям, и заканчивает на этом поиск. А ему, наверное, нужны все элементы
0
0 / 0 / 0
Регистрация: 05.06.2011
Сообщений: 3
05.06.2011, 18:37  [ТС]
ну задание дак задание
решить задачу коммивояжера через алгоритм Крускала !!))
0
 Аватар для liker
18 / 18 / 3
Регистрация: 24.04.2010
Сообщений: 54
05.06.2011, 18:37
Цитата Сообщение от deathNC Посмотреть сообщение
Никак. В цикле дальше просто ищешь и всё. Зачем заново начинать.
Нормально напиши задание.

Добавлено через 1 минуту
liker, в примере он показал двумерный массив. Просто полагаю у него функция есть, которая отыскивает первый элемент, удовлетворяющий условиям, и заканчивает на этом поиск. А ему, наверное, нужны все элементы
Да нечего тут гадать, пусть выложит нормальное описание задачи, т.к. несколько минимальных элементов быть не может. Один максимальный и один минимальный.
0
0 / 0 / 0
Регистрация: 05.06.2011
Сообщений: 3
05.06.2011, 18:39  [ТС]
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
procedure TForm1.Button2Click(Sender: TObject);
var sum,a,b,x,y,k,n,i,j,z,m:integer;
    mas: array [1..10, 1..10] of string[5];
    mas1:array[1..20] of string[5];
begin
z:=1;
a:=1;
b:=2;
x:=1;
k:=1000;
n:=strtoint(edit1.text);
for i:=1 to n do
for j:=1 to n do
mas[i,j]:=stringgrid1.cells[i,j];
for y:=1 to n do
begin
for i:=1 to n do
for j:=1 to n do
begin
if mas[i,j]='*' then mas[i,j]:='1000';
if (strtoint(mas[i,j])<k) and (i<>j) and (strtoint(mas[i,j])<>1000) then
begin
k:=strtoint(mas[i,j]);
a:=i;
b:=j;
end;
end;
if (mas1[z]<>inttostr(a)) and (mas1[z]<>inttostr(b)) then
begin
stringgrid2.cells[1,x]:='v'+inttostr(a);
stringgrid2.cells[2,x]:='v'+inttostr(b);
stringgrid2.cells[3,x]:=mas[a,b];
mas[a,b]:='1000' ;
mas[b,a]:='1000' ;
x:=x+1;
 
end;
k:=1000;
mas1[z]:=inttostr(a);
z:=z+1;
mas1[z]:=inttostr(b);
z:=z+1;
end;
0
05.06.2011, 19:14
 Комментарий модератора 
называйте темы информативно
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
05.06.2011, 19:14
Помогаю со студенческими работами здесь

Найти следующий по величине после минимального элемент массива
Задан одномерный массив чисел. Написать программу которая находит следующий по величине после минимального элемент и его номер. ...

Как сделать так, чтобы таймер начинал отсчет с 00:00:00?
Добрый день! Подскажите, пожалуйста, как сделать так, чтобы таймер на форме начинал отсчет с нуля? DateTime time = new DateTime(0,...

Как сделать так чтобы файл не начинал работать в браузере, а скачивался?
Привет всем. Проблема такова: есть ссылка на файл &lt;p&gt;&lt;a href=&quot;audio-player/03 You Tear Me Up.mp3&quot;&gt;04 Get On Your...

Найти номер минимального по модулю элемента массива и сумму модулей после первого отрицательного элемента
1.В одномерном массиве, состоящем из n вещественных элементов, вычислить: а)номер минимального по модулю элемента массива; б)сумму...

Изъять из списка L после каждого вхождения элемента E1 следующий элемент
Уважаемые мастера, прошу помощи в создании программы до динамическим структурам, т.к. вообще ничего в них не понимаю. Разработать...


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&amp;d=1772460536 Одним из. . .
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru