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

@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 работать.

Новые блоги и статьи Все статьи Все блоги /
Программа опроса у.з. расходомера 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, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .
мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .

@Пытливый 3764 / 2272 / 705 Регистрация: 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

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

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

@Пытливый 3764 / 2272 / 705 Регистрация: 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

@Пытливый 3764 / 2272 / 705 Регистрация: 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

@Пытливый 3764 / 2272 / 705 Регистрация: 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