Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
8 / 8 / 1
Регистрация: 17.12.2009
Сообщений: 85
1

Заполнить массив равным количеством нулей и единиц

23.12.2013, 01:29. Просмотров 635. Ответов 3
Метки нет (Все метки)


Как реализовать вопрос в теме?
Pascal
1
2
3
for i:=1 to 12 do begin
      a[i]:=Random(2);
                       end;
Добавлено через 1 час 10 минут
Pascal
1
2
3
4
5
6
7
8
9
10
While a[1]+a[2]+a[3]+a[4]+a[5]+a[6]+a[7]+a[8]+a[9]+a[10]+a[11]+a[12]<>6 do begin
        if a[1]+a[2]+a[3]+a[4]+a[5]+a[6]+a[7]+a[8]+a[9]+a[10]+a[11]+a[12]<6 then begin
           i:=Random(12);
           a[i]:=1;
           end
        else begin
           i:=Random(12);
           a[i]:=0;
           end;
      end;
p.s. тихо сам с собою я веду беседу...
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.12.2013, 01:29
Ответы с готовыми решениями:

В строке, состоящей из групп нулей и единиц, подсчитать количество единиц в группах с нечетным количеством
В строке состоящей из групп нулей и единиц ,подсчитать количество единиц в группах с нечетным...

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

В строке, состоящей из групп нулей и единиц, подсчитать количество единиц в группах с нечетным количеством символов.
В строке, состоящей из групп нулей и единиц, подсчитать количество единиц в группах с нечетным...

В строке, состоящей из групп нулей и единиц, подсчитать количество единиц в группах с нечетным количеством символов
Я сделал эту задач,ну попросили теперь сделать заменить все cout через puts,я попытался но у меня...

3
Модератор
8396 / 4150 / 2871
Регистрация: 17.08.2012
Сообщений: 13,228
23.12.2013, 04:33 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program half;
 
const m = 12;
 
var i, k: integer;
    a: array [1..m] of integer;
 
begin
  randomize;
  for i := 1 to m do a[i] := 0;
  i := 0;
  repeat
    k := random(m) + 1;
    if a[k] = 0 then
      begin
        a[k] := 1;
        i := i + 1
      end
  until i >= m div 2;
  for i := 1 to m do write(a[i]:2);
  readln
end.
0
Программист
307 / 182 / 176
Регистрация: 05.12.2013
Сообщений: 683
Записей в блоге: 5
23.12.2013, 15:09 3
Pascal
1
2
3
4
5
for i:=1 to n do
  if i<n div 2 then
    A[i]:=0
  else
    A[i]:=1;
Первую половину массива заполняю нулями, вторую - единицами. В итоге массив заполнен равным количеством нулей и единиц.
0
Модератор
8396 / 4150 / 2871
Регистрация: 17.08.2012
Сообщений: 13,228
25.12.2013, 01:02 4
Arigato_RU, по контексту индекс случайный... Если не случайный, так можно и проще.
Pascal
1
2
3
4
5
for i:=1 to n div 2 do 
  begin 
    A[i]:=0;
    A[i + n div 2]:=1
  end;
Добавлено через 1 минуту
даже ещё проще.
Pascal
1
for i:=1 to n do A[i] := i mod 2;
Добавлено через 10 минут
и Ваш код тоже можно записать значительно проще.
Pascal
1
for i:=1 to n do A[i]:= ord(i<n);
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.12.2013, 01:02

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

Дана строка, состоящая из групп нулей и единиц. Подсчитать количество единиц в группах с нечетным количеством
Дана строка, состоящая из групп нулей и единиц. Подсчитать количество единиц в группах с нечетным...

Дана строка, состоящая из групп нулей и единиц. Подсчитать количество единиц в группах с нечетным количеством символов.
Дана строка, состоящая из групп нулей и единиц. Подсчитать количество единиц в группах с нечетным...

Заполнить массив случайным образом 0 и 1 так, чтобы кол-во единиц было больше количества нулей
Добрый вечер, ребят. Помогите, пожалуйста, решить задачу на C#. Буду очень благодарен! Задача:...

Заполнить массив значениями 0 и 1 случайным образом, но чтобы нулей было в два раза больше, чем единиц
Здравствуйте! Не могу решить задачу, есть ли идеи как это можно сделать? Заранее благодарю! ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.