Поиск наибольшего элемента массива. Растолкуйте пример пожалуйста!

@Bazaroff · Регистрация: 29.05.2011

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

В учебнике дан пример. Не могу разобраться.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program n_4;
var
    i, imax: integer;
    a: array [1..10] of integer;
begin
    randomize;
    for i := 1 to 10 do
    begin
        a[i]:= random(100);
        writeln ('a[', i, ']=', a[i])
    end;
    imax := 1;
    for i := 2 to 10 do
        if a[i] > a[imax] then imax := i;
    writeln ('Наибольший элемент массива', a[imax])
end.

Я понимаю так. В begin мы присваиваем рандомные значения элементам массива а при помощи цикла

Pascal
1
a[i]:= random(100)

Ход вычислений мне непонятен.
Мы заранее присвоили переменной imax значение 1. То есть минимальное возможное значение. А далее не въеду никак.
Ставится условие для сравнения начиная со второго элемента? Как так? А первый что проверять не станем?
Растолкуйте пожалуйста люди добрые!

Вообще с этой переменной i (я так понимаю, счетчик цикла), прям беда у меня какая-то с пониманием. Вот носится вокруг головы что-то трансцедентное, неуловимое как мечта когда не знаешь чего хочешь.
Иногда кажется, что начинаешь понимать благодаря мистическому вдохновению. А потом оказывается не-а, нифига не понял!(((

Растолкуйте вот прям на пальцах для чайника из самых распоследних чайников!
Люди добрые! Плиз!(((

@Пытливый · 14.11.2022, 01:28

У меня результат выглядит так.

Поиск наибольшего элемента массива. Растолкуйте пример пожалуйста!

@Bazaroff · 14.11.2022, 10:11 **[ТС]**

Пытливый, ух ты! А почему у меня не так?(

Добавлено через 1 минуту
У вас досбокс 0.84. У меня 0.72. Может быть в этом причина?

@Bazaroff · 14.11.2022, 10:17 **[ТС]**

@Bazaroff · 14.11.2022, 10:18 **[ТС]**

Окно не растягивается.

@Пытливый · 14.11.2022, 14:06

Уменьшите размер шрифта.

@Пытливый · 14.11.2022, 14:15

Хотя у вас DOSBox, а у меня DOSBox-X. А это существенно лучшая версия.
У меня например картинка паскаля выглядит так:

А в DosBox так:

Разница в качестве очевидна

@Пытливый · 14.11.2022, 14:25

Собственно можете взять мою сборку под DosBox-X тут.

@Bazaroff · 14.11.2022, 22:30 **[ТС]**

Сообщение от Пытливый

мою сборку

Спасибо! Скачал. Паскаля в комплекте нет?

@bormant · 14.11.2022, 22:31

Сообщение от Bazaroff

Паскаля в комплекте нет?

есть.

@Bazaroff · 15.11.2022, 00:50 **[ТС]**

Я собсно, не искал досбокс. Я о нем только краем уха слышал. Искал конкретно Паскаль, и вот сборку и нашел. DOSBox 0.72.

Добавлено через 1 час 41 минуту
Господа, а как в этом DosBox-x Паскаль-то запустить?
Вот запустил сам досбокс. Диск Z:. Ну ладно, перерыл все, что у него там есть... где? как?

Добавлено через 28 минут
Уфф вроде разобрался.
Блин... эт надо в аутоексек ему путь прописать... Мс дос прям)))

Добавлено через 7 минут
Не редактируется гад!(((

@Пытливый · 15.11.2022, 03:03

Там автоматом запускается Norton commander. Нажмите F2 появится менюшка. Нажать и будет счастье.

@Bazaroff · 15.11.2022, 10:32 **[ТС]**

Сообщение от Пытливый

автоматом запускается Norton commander.

Не. У меня просто мсдос. Запустить-то запустил. Но чисто из командной строки.
Он пытается сразу, как у него по умолчанию прописано в аутоэксек, смонтировать диск D:, и с диска D: уже открыть Нортон Коммандер.
Но диска D: у меня нет. Только С:.
Обнаружил утилиту для редактирования аутоэксек. Сегодня попробую его вычистить, и переписать.

Добавлено через 7 минут
Было ковырял MS DOS 6.22. Представление имею, кое что помню.

@Пытливый · 15.11.2022, 12:08

Сообщение от Bazaroff

Он пытается сразу, как у него по умолчанию прописано в аутоэксек, смонтировать диск D:, и с диска D: уже открыть Нортон Коммандер.
Но диска D: у меня нет. Только С:.

Вам надо отредактировать файл DOSBox-X\dosbox-x.conf
В самом низу файла есть раздел:

Code
1
2
3
4
5
[autoexec]
keyb ru 866
mount d D:\Software\DOSBox-X\Soft\
cd d:\bp\bin\
d:\nc50\nc.exe

Замените в нем путь D:\Software на свой, куда вы распаковали архив. Если вы распаковали в корень диска с:, то будет так:

Code
1
2
3
4
5
[autoexec]
keyb ru 866
mount d C:\DOSBox-X\Soft\
cd d:\bp\bin\
d:\nc50\nc.exe

@Bazaroff · 15.11.2022, 22:36 **[ТС]**

Сообщение от Пытливый

mount d

Наверное че нить так mount c /y?

@bormant · 15.11.2022, 23:07

Bazaroff,
Нет.
mount какую_букву_диска_назначить_внутри_DosBo x для_какого_реального_пути

@Bazaroff · 20.11.2022, 18:21 **[ТС]**

Отредактировал все же аутоексек.

Было:

Сообщение от Пытливый

[autoexec]
keyb ru 866
mount d C:\DOSBox-X\Soft\
cd d:\bp\bin\
d:\nc50\nc.exe

NC все равно торчал на диске Z:. В списке дисков С: не было. Приходилось в командной строке переходить на диск С:. ДОС запрашивал подтверждение, и затем уже забираться куда надо.
Тягомотина.

Сейчас написал так:

Code
1
2
3
4
mount c C:\
c:
cd dosbox-x\soft\nc50
nc

Работает в лучшем виде.

Добавлено через 30 минут
А как язык переключать в Паскале?(((

@Пытливый · 20.11.2022, 19:35

Сообщение от Bazaroff

А как язык переключать в Паскале?(((

Упс, мой косяк. Забыл в сборку включить переключалку языков. Прикрепляю архив.
В каталог сборки DOSBox-X\Soft\ надо закинуть файлик KEYRUS.COM и заменить старый файл dosbox-x.conf, новым из архива.

@Пытливый · 20.11.2022, 19:36

ПС: Ну и измените монтирование диска на свое, раз у вас не работает мой вариант

@bormant · 20.11.2022, 19:49

После keyb ru 866 должно работать LAlt+RShift -- русский, LAlt+LShift -- английский.

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

@Пытливый · 20.11.2022, 20:27

Сообщение от bormant

Вот только это ж мучение, в окошке DosBox-а что-то набирать.

С чего бы это? В чем отличие от любого другого окна?

Сообщение от bormant

После keyb ru 866 должно работать LAlt+RShift -- русский, LAlt+LShift -- английский.

А вот у меня не переключает зараза ни в какой комбинации под Win11, а с KeyRus все нормально начинает по правому Ctrl работать.

Новые блоги и статьи Все статьи Все блоги /
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .

@Пытливый 3765 / 2272 / 706 Регистрация: 29.05.2013 Сообщений: 9,622
	14.11.2022, 01:28
	У меня результат выглядит так. 1

@Bazaroff 288 / 93 / 11 Регистрация: 29.05.2011 Сообщений: 2,423
	14.11.2022, 10:11 [ТС]
	Пытливый, ух ты! А почему у меня не так?( Добавлено через 1 минуту У вас досбокс 0.84. У меня 0.72. Может быть в этом причина? 0

@Bazaroff 288 / 93 / 11 Регистрация: 29.05.2011 Сообщений: 2,423
	14.11.2022, 10:17 [ТС]
	0

@Bazaroff 288 / 93 / 11 Регистрация: 29.05.2011 Сообщений: 2,423
	14.11.2022, 10:18 [ТС]
	Окно не растягивается. 0

@Пытливый 3765 / 2272 / 706 Регистрация: 29.05.2013 Сообщений: 9,622
	14.11.2022, 14:06
	Уменьшите размер шрифта. Миниатюры 1

@Пытливый 3765 / 2272 / 706 Регистрация: 29.05.2013 Сообщений: 9,622
	14.11.2022, 14:15
	Хотя у вас DOSBox, а у меня DOSBox-X. А это существенно лучшая версия. У меня например картинка паскаля выглядит так: А в DosBox так: Разница в качестве очевидна 1

@Пытливый 3765 / 2272 / 706 Регистрация: 29.05.2013 Сообщений: 9,622
	14.11.2022, 14:25
	Собственно можете взять мою сборку под DosBox-X тут. 1

@Bazaroff 288 / 93 / 11 Регистрация: 29.05.2011 Сообщений: 2,423
	15.11.2022, 00:50 [ТС]
	Я собсно, не искал досбокс. Я о нем только краем уха слышал. Искал конкретно Паскаль, и вот сборку и нашел. DOSBox 0.72. Добавлено через 1 час 41 минуту Господа, а как в этом DosBox-x Паскаль-то запустить? Вот запустил сам досбокс. Диск Z:. Ну ладно, перерыл все, что у него там есть... где? как? Добавлено через 28 минут Уфф вроде разобрался. Блин... эт надо в аутоексек ему путь прописать... Мс дос прям))) Добавлено через 7 минут Не редактируется гад!((( 0

@Пытливый 3765 / 2272 / 706 Регистрация: 29.05.2013 Сообщений: 9,622
	15.11.2022, 03:03
	Там автоматом запускается Norton commander. Нажмите F2 появится менюшка. Нажать и будет счастье. 1

@bormant Модератор 7818 / 4637 / 2837 Регистрация: 22.11.2013 Сообщений: 13,159 Записей в блоге: 1
	15.11.2022, 23:07
	Bazaroff, Нет. mount какую_букву_диска_назначить_внутри_DosBo x для_какого_реального_пути 1

@Пытливый 3765 / 2272 / 706 Регистрация: 29.05.2013 Сообщений: 9,622
	20.11.2022, 19:36
	ПС: Ну и измените монтирование диска на свое, раз у вас не работает мой вариант 1

@bormant Модератор 7818 / 4637 / 2837 Регистрация: 22.11.2013 Сообщений: 13,159 Записей в блоге: 1
	20.11.2022, 19:49
	После `keyb ru 866` должно работать LAlt+RShift -- русский, LAlt+LShift -- английский. Вот только это ж мучение, в окошке DosBox-а что-то набирать. Куда проще использовать для набора кода редактор, поддерживающий кодировку cp866, а в окошке DosBox-а выполнить или отладить, если деваться уже некуда. 1