Почему цикл не завершает свою работу?

@MrCap4a · Регистрация: 31.08.2022

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

Пишу программу и при попытке запустить ее вижу, что она работает некорректно(не уходит дальше определенного этапа). С помощью println нашел на каком месте программа стопорится. Программа работает, но не уходит дальше этого цикла. Переменная alphabet представляет из себя массив с английским алфавитом.

Мне надо чтобы массив на 500 ячеек заполнялся английскими буквами так, чтобы одна половина из них была гласными, а другая половина- согласными.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var count1 : integer := 0;///Четные
  var count2 : integer := 0;///Нечетные
  var count3 : integer := 0;///Общий счетчик
  var i: integer := 0;
  while (count1 <> 250) and (count2 <> 250) do
    begin
    i:=randnum;
    if (i.isEven) and (count1 <> 250) then begin
    numb[count3] := i;
    count1 += 1;
    count3 += 1;
    end;
    if (i.isOdd) and (count2 <> 250) then begin
    numb[count3] := i;
    count1 += 1;
    count3 += 1;
    end;
    end;
  println(numb);

@JuriiMW · 01.09.2022, 05:24

MrCap4a, во-первых, этот код PABC.NET. Так зачем его в неправильном разделе разместили?
Во-вторых, код нужно обрамлять тегами в соответствии с ЯП.
В-третьих, что за „alphabet“? Их нет у вас в коде…
В-четвёртых, что собой представляет „randnum“? Для нас это чёрный ящик?
В-пятых, вы заполняете массив вовсе не буквами, а числами… ибо метод .isEven не определён над символьными переменными

И вообще, чтобы разделить гласные и согласные, необходимо одно из трёх:
— либо наличие отдельно перечня всех гласных и согласных
— либо наличие полного алфавита и отдельно гласных
— либо наличие полного алфавита и отдельно согласных

P.S. Согласно установленным Правилам, полное задание в студию!
А то, не понятно, какую половину — левую или правую?

Как я понял:

Pascal
1
2
3
4
## var(гласные,согласные):=('AEIOUY','BCDEFGHJKLMNPQRSTVWXYZ');
var l:=function(a:String):String->ArrRandom(250,1,a.Length).Select(x->a[x]).JoinToString;
var a:=l(гласные)+l(согласные);
a.Print;

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .