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

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

16.05.2017, 11:00. Показов 1045. Ответов 2
Метки нет (Все метки)

Заполнить,с использованием возможностей датчика случайных чисел стек целыми числами из дипазона [a/b] ,причем четными ,
если первое число-четно и нечетными -в пративном случаие.Мощность- кол-во элементв стека ,тоже определяется с помощью датчика случайных чисел.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.05.2017, 11:00
Ответы с готовыми решениями:

Заполнение массива случайными нечетными числами
Заполните массив из 50-ти элементов случайными нечётными целыми числами от 1 до 99. (используйте...

Заполнение массива чётными случайными числами
Подскажите, где и как следует написать, чтобы числа при ранодомном заполнении в заданном диапазоне...

Организовать заполнение двумерного массива целыми четными и нечетными числами случайным образом в интервале от 1 до 6
Запрашивать размерность двумерного массива. Затем организовать заполнение двумерного массива целыми...

Создать два новых стека, с четными и нечетными элементами первоначального стека
Дано указатель P1 на вершину непустого стека. Создать два новых стека , переместив в первый из них...

2
4951 / 2559 / 2310
Регистрация: 10.12.2014
Сообщений: 9,813
16.05.2017, 11:35 2
Лучший ответ Сообщение было отмечено nikitosikkk как решение

Решение

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.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32240 / 20880 / 8085
Регистрация: 22.10.2011
Сообщений: 36,118
Записей в блоге: 7
16.05.2017, 12:32 3
Если нужно, чтобы в стеке было именно n элементов - то я бы переписал 11-ю строку вот так:
Pascal
11
     var t := Random(a, b); s.push(t + ord(odd(t) <> odd(first)));
, а то сейчас, если сгенерировано значение не совпадающее по четности с первым элементом, то оно просто игнорируется, и в результате стек содержит меньше элементов, чем заявлено.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.05.2017, 12:32
Помогаю со студенческими работами здесь

Создать стек со случайными целыми числами. Удалить из него записи с четными числами.
Создать стек со случайными целыми числами. Удалить из него записи с четными числами.

Цикл с четными и нечетными числами
как мне сделать цикл, желательно for, который бы перебирал цифры от 0 до 10, и если цифра четная,...

Заполнить массив случайными четными числами
создать массив длиной 20, и заполнить его случайными четными числами

Заполнить массив чередующимися четными и нечетными числами
Необходимо заполнить массив чередующимися четными и нечетными.В коде есть где то ошибка,массив...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru