Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 22.06.2010, 08:48
azamatom azamatom вне форума
Прохожий
 
Регистрация: 29.05.2010
Сообщения: 7
Репутация: 10
По умолчанию Квадратная матрица

Помогите решить такую задачу:
Дана квадратная матрица порядка n. Рассмотрим те строки, которые начинаются с отрицательного элемента. Вывести номер такой строки и сумму элементов. Вывести номер такой строки и сумму элементов этой строки.
Заранее спасибо!
Ответить с цитированием
  #2  
Старый 22.06.2010, 13:31
Аватар для SerginhoLD
SerginhoLD SerginhoLD вне форума
Новичок
 
Регистрация: 19.11.2009
Сообщения: 73
Репутация: 12
По умолчанию

Код:
от первой стоки до последней
  если первый элемент строки меньше нуля то
  начнем
    выводим номер строки
    от первого элемента строки до последнего
      складываем их
    выводим полученную сумму
  закончили 

*тут такой смайлик стучащий кулачком по голове*
__________________
знаете почему внизу эскалатора бабка в будке сидит?
она там педальки крутит и лесенка едет!

Последний раз редактировалось SerginhoLD, 22.06.2010 в 13:37.
Ответить с цитированием
  #3  
Старый 22.06.2010, 15:07
Rjkzy Rjkzy вне форума
Прохожий
 
Регистрация: 15.06.2010
Адрес: дома
Сообщения: 34
Репутация: 10
По умолчанию

Код:
var
i,j:cardinal
Res:Real;
begin
  for i:=0 to n-1 do
    begin
    if StringGird1.cells[i,o]<0 then
      begin
      res:=0;
      memo1.lines.add('Номер строки: '+inttostr(i));
      for j:=0 to n-1 do
        begin
        res:=res+StringGird1.cells[i,j];
        end;
      memo1.lines.add('Сумма элементов: '+floattostr(res));
      end;
    end;
end;

ну вот где-то так... могут быть ошибки в синтаксисе, писал тут.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 19:14.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter