Заполнение стека четными/нечетными случайными числами в зависимости от четности первого элемента

@nikitosikkk · Регистрация: 04.05.2017

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

Заполнить,с использованием возможностей датчика случайных чисел стек целыми числами из дипазона [a/b] ,причем четными ,
если первое число-четно и нечетными -в пративном случаие.Мощность- кол-во элементв стека ,тоже определяется с помощью датчика случайных чисел.

@JuriiMW · 16.05.2017, 11:35

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
begin
  Randomize;
  var a := ReadLnInteger('a =');
  var b := ReadLnInteger('b =');
  var n := Random(10,100);
  WriteLn('n = ', n);
  var s := New Stack<integer>;
  var first := Random(a, b); s.push(first);
  for var i := 2 to n do
    begin
      var t := Random(a, b); if odd(t) = odd(first) then s.push(t);
    end;
  s.Println;
end.

@volvo · 16.05.2017, 12:32

Если нужно, чтобы в стеке было именно n элементов - то я бы переписал 11-ю строку вот так:

Pascal
11
     var t := Random(a, b); s.push(t + ord(odd(t) <> odd(first)));

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

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .

@nikitosikkk 0 / 0 / 0 Регистрация: 04.05.2017 Сообщений: 4

	Заполнение стека четными/нечетными случайными числами в зависимости от четности первого элемента 16.05.2017, 11:00. Показов 1238. Ответов 2 Метки нет (Все метки) Заполнить,с использованием возможностей датчика случайных чисел стек целыми числами из дипазона [a/b] ,причем четными , если первое число-четно и нечетными -в пративном случаие.Мощность- кол-во элементв стека ,тоже определяется с помощью датчика случайных чисел. 0

Заполнение стека четными/нечетными случайными числами в зависимости от четности первого элемента

Решение