Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.53/15: Рейтинг темы: голосов - 15, средняя оценка - 4.53
0 / 0 / 0
Регистрация: 16.11.2011
Сообщений: 17
1

Найти последовательность из нулей и единиц

16.11.2011, 22:32. Показов 2826. Ответов 4
Метки нет (Все метки)

Даны две целочисленные квадратные матрицы порядка 6
.Найти последовательность из нулей и единиц b1,...,b6 такую,что b[i]=1, когда i-е строки первой и второй матриц содержат вместе не более трёх положительных элементов;
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.11.2011, 22:32
Ответы с готовыми решениями:

Найти последовательность из нулей и единиц матрицы, что удовлетворяют условиям
Даны две целочисленные квадратные матрицы порядка 6.Найти последовательность из нулей и единиц...

Построить последовательность из нулей и единиц
Даны натуральное число n и квадратная матрица порядка n(n=5). Построить последовательность b1,….,bn...

Получить последовательность нулей и единиц задающую двоичное представление
Решила данную задачу, но сказали, что переводит в десятичную нельзя. Как быть?? Помогите! Даны...

Получить последовательность нулей и единиц, задающую двоичное представление числа p + 1
Совсем недавно стала знакомиться с pascal, и не знаю с чего начать решать данную задачу. Подскажите...

4
Почетный модератор
7963 / 3934 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
16.11.2011, 22:41 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

vasya121, используйте поиск
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
uses crt;
var a: array [1..100,1..100] of integer;
    c: array [1..100,1..100] of integer;
    b: array [1..100] of byte;
    n,i,j,k: integer;
begin
writeln ('Исходная матрица 1');
for i:=1 to 6 do
    b[i]:=0;
for i:=1 to 6 do
    begin
    for j:=1 to 6 do
        begin
        a[i,j]:=random(21)-15;
        write (a[i,j]:3);
        end;
    writeln;
    end;
writeln ('Исходная матрица 1');
for i:=1 to 6 do
    begin
    for j:=1 to 6 do
        begin
        c[i,j]:=random(21)-15;
        write (c[i,j]:3);
        end;
    writeln;
    end;
i:=1;
while i<=6 do
      begin
      for j:=1 to 6 do
          if (a[i,j]>0) or (c[i,j]>0) then inc(k);
      if k<=3 then b[i]:=1;
      k:=0;
      i:=i+1;
      end;
writeln;
writeln ('Последовательность В');
for i:=1 to 6 do
    write (b[i],' ');
end.
Добавлено через 39 секунд
Хотя нет, по той теме и не поймешь, что задачи одинаковые...
0
0 / 0 / 0
Регистрация: 21.04.2011
Сообщений: 4
19.11.2011, 01:58 3
КонецСвета,
помоги пожалуйста
Решить задачу 3-мя способами:
1) с использованием двумерного массив
2)с использованием записей
3) с использованием файлов данных
Задача: Даны сведения о рабочих одной бригады: номер или фамилия, стаж работы, возраст, премия, зарплата. Определить номера или фамилии тех рабочих, у которых размер премии не менее 500000 рублей
0
Почетный модератор
7963 / 3934 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
19.11.2011, 02:05 4
Павел Николаеч, извини, не представляю... Особенно
Цитата Сообщение от Павел Николаеч Посмотреть сообщение
фамилия, стаж работы, возраст, премия, зарплата
в двумерном массиве. В нем, все таки, однородные данные... Может, с помощью одномерных массивов? Это мой предел.
0
0 / 0 / 0
Регистрация: 21.04.2011
Сообщений: 4
19.11.2011, 21:50 5
посмотри 2-ой и 3-ий пункт, может эти знаешь???
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.11.2011, 21:50

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

Найти количество нулей и единиц в массиве
Задан двумерный массив целых чисел A размером N на M, состоящий из нулей и едениц. Найти количество...

Построить последовательность b1,..,bn из нулей и единиц
Помогите, пожалуйста, программку написать: Даны натуральное число n&gt;=2, действительная квадратная...

найти самую длинную непрерывную цепочку нулей в последовательности нулей и единиц
Требуется найти самую длинную непрерывную цепочку нулей в последовательности нулей и единиц. В...


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

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

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