Переделайте эту программу через процедуру

@Sadler42 · Регистрация: 26.09.2015

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
type
  letters = array ['A'..'Z'] of integer;
var
  a: letters;
  i: char;
begin
  randomize;
  for i:='A' to 'Z' do
begin
  a[i]:=random(1001);
    writeln(i,'-',a[i]);
end;
  for i:='A' to 'Z' do
begin
  if (1000-a[i])<=250 then
    writeln(i,'-',a[i]);
end;
end.

@JokeR.BY · 27.11.2015, 17:26

Pascal
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
type
    TRange = 'A'..'Z';
    TArray = Array[TRange] Of Word;
procedure GetMaxId(const ar: TArray);
var
    Result, i: Char;
begin
    Result := Low(TRange);
    for i := Succ(Low(TRange)) to High(TRange) do
        if (ar[i] > ar[Result])
        then
            Result := i;
    WriteLn; Write(Result, ' - most used letter (', ar[Result], ')');
end;
var
    i: Char;
    ar: TArray;
begin
    Randomize();
    for i := Low(TRange) to High(TRange) do
    begin
        ar[i] := Random(1001);
        WriteLn(i, ' - ', ar[i]);
    end;
    GetMaxId(ar);
end.

@Sadler42 · 28.11.2015, 12:41 **[ТС]**

Это на FreePascal работает?

Добавлено через 1 минуту
Пишет ошибку Can't create object file и Can't create executable. С функцией тоже самое

@JokeR.BY · 28.11.2015, 13:01

вполне себе компилит.

@JokeR.BY · 28.11.2015, 13:03

возможно, файл залочен каким-то другим процессом.

@Sadler42 · 28.11.2015, 13:21 **[ТС]**

хм, походу FreePascal не работает. Перезагрузил комп не работает, переустановил FreePascal то же самое, Не знаете, что случилось?

@JokeR.BY · 28.11.2015, 13:24

Sadler42, компилятор имеет право записи в папку, куда он компилит? попробуйте удалить имеющийся *.o и *.exe (или что у вас там за исполняемый файл).

Новые блоги и статьи Все статьи Все блоги /
Киев стоит - украинская песня zorxor 28.01.2026 wfWdiRqdTxc О Господи, Вечный, Ты . . . Я помоги, Бесконечный. . . Я прошу Ты. . . Я погибаю, спаси. . . Я прошу Тебя Вечный. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка 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, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@Sadler42 0 / 0 / 0 Регистрация: 26.09.2015 Сообщений: 25
	28.11.2015, 12:41 [ТС]
	Это на FreePascal работает? Добавлено через 1 минуту Пишет ошибку Can't create object file и Can't create executable. С функцией тоже самое 0

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	28.11.2015, 13:01
	вполне себе компилит. Миниатюры 0

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	28.11.2015, 13:03
	возможно, файл залочен каким-то другим процессом. 0

@Sadler42 0 / 0 / 0 Регистрация: 26.09.2015 Сообщений: 25
	28.11.2015, 13:21 [ТС]
	хм, походу FreePascal не работает. Перезагрузил комп не работает, переустановил FreePascal то же самое, Не знаете, что случилось? 0

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	28.11.2015, 13:24
	Sadler42, компилятор имеет право записи в папку, куда он компилит? попробуйте удалить имеющийся .o и .exe (или что у вас там за исполняемый файл). 0