Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.10.2010, 14:34   #1
Sin3v_
 
Аватар для Sin3v_
 
Регистрация: 02.02.2010
Сообщений: 7
По умолчанию Посчитать количество нулей, находящихся на главной диагонали (массив)

Дан двумерный массив A, размером 3 на 4. Массив заполнен нулями и единицами. Посчитать количество нулей, находящихся на главной диагонали.
Sin3v_ вне форума Ответить с цитированием
Старый 03.10.2010, 14:46   #2
Grag
А может и не...
Участник клуба
 
Аватар для Grag
 
Регистрация: 27.03.2010
Сообщений: 1,269
По умолчанию

Цитата:
Сообщение от Sin3v_ Посмотреть сообщение
Дан двумерный массив A, размером 3 на 4.
Ты мне покажи главную диагональ в этом массиве!!!
Перемешивай дело с бездельем и не сойдешь с ума...
Grag вне форума Ответить с цитированием
Старый 03.10.2010, 14:49   #3
_-Re@l-_
C++, Java
Старожил
 
Аватар для _-Re@l-_
 
Регистрация: 10.04.2010
Сообщений: 2,665
По умолчанию

Ну, можно так(разумеется, это не очень рационально) если учитывать что массив будет 3х3
Код:
N:=0;
For I:=1 To 3 Do
Begin
        If A[I,I] = 0 Then Inc(N);
End;
Write('N = ',N);
_-Re@l-_ вне форума Ответить с цитированием
Старый 03.10.2010, 14:57   #4
Sin3v_
 
Аватар для Sin3v_
 
Регистрация: 02.02.2010
Сообщений: 7
По умолчанию

Все я тут сам додумался)
Код:
program example;
var
  a: array[1..3,1..4] of Integer;
  c,i,i2: Integer;
begin
  randomize;
  for i:= 1 to 3 do
  begin
    for i2:= 1 to 4 do
    begin
      a[i,i2]:= random(2);
    end;
  end;
  
  for i:= 1 to 3 do
  begin
    if a[i,i] = 0 then c:= c+1;
  end;
  
  Writeln('Количество нулей = ' + IntToStr(c));
end.
Такова задача 2 курса программистов, я хз какова там диагональ ну пусть будет такой
3 на 4

1 2 3 4
1 2 3 4
1 2 3 4
получается
1 2 3
Sin3v_ вне форума Ответить с цитированием
Старый 03.10.2010, 15:07   #5
Sin3v_
 
Аватар для Sin3v_
 
Регистрация: 02.02.2010
Сообщений: 7
По умолчанию

Еще тут такой вопрос: к примеру random(7) там будут числа от 0 до 7, именно до 7 но самой цифры 7 не будет да?
Sin3v_ вне форума Ответить с цитированием
Старый 03.10.2010, 15:14   #6
Grag
А может и не...
Участник клуба
 
Аватар для Grag
 
Регистрация: 27.03.2010
Сообщений: 1,269
По умолчанию

Абсолютно верно, в диапазоне 0..6
Перемешивай дело с бездельем и не сойдешь с ума...
Grag вне форума Ответить с цитированием
Старый 03.10.2010, 16:22   #7
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Sin3v неправильно Вы додумались.
Вы почитайте внимательно определение ГЛАВНОЙ ДИАГОНАЛИ:
Цитата:
Сообщение от Википедия
Главная диагональ квадратной матрицы — диагональ, которая проходит через верхний левый и нижний правый углы.
и поймёте, что главная диагональ бывает только у квадратной матрицы!

p.s. Если у Вас реально такое задание - то я сочувствую Вам - Вам явно не повезло с преподавателями (или учебниками - смотря где дан этот "шедевр")!
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Матрица. Сумма элементов главной диагонали RECREATOR Помощь студентам 13 11.05.2011 22:12
Массив, нахождение макс элемента ниже главной диагонали L3zh1Y Помощь студентам 2 15.05.2010 13:36
сумма элементов главной диагонали в паскале wrmarw Помощь студентам 5 08.05.2010 12:50
подсчитывать сумму главной и побочной диагонали Fantazerishka Помощь студентам 2 14.10.2009 21:55
Найти отношения суммы элементов главной диагонали и суммы элементов побочной диагонали квадратной матрицы Elmander Помощь студентам 2 21.06.2007 07:15