Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
кук
0 / 0 / 0
Регистрация: 23.04.2013
Сообщений: 50
1

Выведите на экран ту из матриц, которая имеет большее количество нулевых строк

13.05.2013, 12:36. Просмотров 522. Ответов 3
Метки нет (Все метки)

В17. Задание 2.
Заданы три целочисленные матрицы размером 6х7. Выведите на экран ту из них, которая
имеет большее количество нулевых строк. Если таких матриц несколько, то выведите все.
помогите очень нужно))))
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.05.2013, 12:36
Ответы с готовыми решениями:

Подсчитать количество нулевых элементов для заданных матриц
составить программу вычисления заданного значения. Обработку массива оформить...

Выведите на экран одну из строк формулы
Выведите на экран одну из строк формулы S= 2*4**N S= 1*3**N для заданного...

Напечатать ту из матриц, где большее количество нулевых элементов
Помогите пожалуйста с информатикой Задание 3 Даны три матрицы 3 x 3....

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

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

3
Midian
220 / 220 / 170
Регистрация: 31.03.2013
Сообщений: 1,963
Завершенные тесты: 6
14.05.2013, 15:41 2
Кликните здесь для просмотра всего текста
C#
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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
using System;
 
class Matrix
{
    public int[,] arr = new int[6,7];
    public void get()
    {
        for (int i = 0; i < 6; ++i)
        {
            for (int j = 0; j < 7; ++j)
            {
                Console.Write(arr[i,j]+" ");
            }
            Console.WriteLine();
        }
    }
    public int kol()
    {
        int k = 0; int p = 0;
        for (int i = 0; i < 6; ++i)
        {
            k = 0;
            for (int j = 0; j < 7; ++j)
            if (arr[i,j] == 0)
            {
                k++;
            }
            if (k == 7) p++;
        }
        return p;
    }
}
 
class Program
    {
        static void Main()
        {
            Matrix arr1 = new Matrix();
            Matrix arr2 = new Matrix();
            Matrix arr3 = new Matrix();
            Random rand = new Random();
           for (int i = 0; i < 6; ++i)
               for (int j = 0; j < 7; ++j)
               {
                   arr1.arr[i, j] = rand.Next(0, 2);
                   arr2.arr[i, j] = rand.Next(0, 1);
                   arr3.arr[i, j] = rand.Next(0, 2);
               }
           Console.WriteLine("Первая матрица:");
           arr1.get();
           Console.WriteLine("Вторая матрица:");
           arr2.get();
           Console.WriteLine("Третья матрица:");
           arr3.get();
           Console.WriteLine("Матрица с наибольшими количеством нулевых строк:");
           if (arr1.kol() > arr2.kol() && arr1.kol() > arr3.kol()) arr1.get();
               if (arr2.kol() > arr1.kol() && arr2.kol() > arr3.kol()) arr2.get();
               else arr3.get();
           Console.ReadKey();
        }
    }
0
кук
0 / 0 / 0
Регистрация: 23.04.2013
Сообщений: 50
14.05.2013, 15:58  [ТС] 3
напишите в FreePascale)))) очень надо... Зарание спасибо)))
0
Midian
220 / 220 / 170
Регистрация: 31.03.2013
Сообщений: 1,963
Завершенные тесты: 6
14.05.2013, 16:43 4
Будешь должен
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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
const n = 6; m = 7;
var
i,j,k,p,p1,p2,p3: byte;
arr1,arr2,arr3: array [1..n,1..m] of integer;
 
procedure get(mass: array [1..n,1..m] of integer);
begin
for i:=1 to n do
begin
for j:=1 to m do
begin
write(mass[i,j],' ');
end;
writeln;
end;
end;
 
function kol(mass: array [1..n,1..m] of integer;var p: byte): byte;
begin
k:=0; p:=0;
for i:=1 to n do
begin
k:=0;
for j:=1 to m do
if (mass[i,j] = 0) then
begin
inc(k);
end;
if (k = m) then inc(p);
end;
end;
 
begin
for i:=1 to n do
begin
for j:=1 to m do
begin
arr1[i,j]:=random(2);
arr2[i,j]:=random(2);
arr3[i,j]:=random(2);
end;
writeln;
end;
writeln('1 массив:');
get(arr1);
writeln('2 массив:');
get(arr2);
writeln('3 массив:');
get(arr3);
writeln();
kol(arr1,p1);
kol(arr2,p2);
kol(arr3,p3);
if (p1 > p2) and (p1 > p3) then get(arr1);
if (p2 > p1) and (p2 > p3) then get(arr2);
if (p3 > p1) and (p3 > p2) then get(arr3)
else
writeln('Таких матриц нету!');
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.05.2013, 16:43

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

Даны числа а и b: определить, какое из чисел имеет большее количество делителей
Помогите решить))

Напечатать ту из матриц, где больше нулевых строк
Даны три целые матрицы. Напечатать ту из них, где больше нулевых строк (если...


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

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

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