Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Общие вопросы Delphi
Регистрация

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

Ответ
 
Опции темы
Старый 02.04.2008, 17:26   #1
jenja
Пользователь
 
Регистрация: 27.02.2008
Сообщений: 22
Репутация: 10
По умолчанию найти сумму элементов строки

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


минимальный элемент я нашала, а как записать, чтобы он складывал именно те элементы, где находится минимальный элемент?
jenja вне форума   Ответить с цитированием
Старый 02.04.2008, 17:47   #2
Dj_smart
Капсула от спама
Участник клуба
 
Аватар для Dj_smart
 
Регистрация: 04.03.2008
Адрес: /www[.](.*)[.]ru/
Сообщений: 779
Репутация: 290

icq: 9804336
Радость

Вот дерзай:
Код:

var n,m,min,nmin:word;
min:=65530;
for n:=1 to 25 do begin
  for m:=1 to 25 do begin
    if mas[n,m]<min then begin
      nmin:=n;
      min:=mas[n,m]
    end;
  end;
end;

Результат nmin-твое значение
__________________
Если данный ответ не столь конкретен, как Вы желаете его увидеть, возможно необходимо поразмыслить, стоит ли вопрос того, чтобы о нём спрашивать на форуме?
CncFiles.ru - бесплатный файловый хостинг
Dj_smart вне форума   Ответить с цитированием
Старый 02.04.2008, 17:49   #3
puporev
Профессионал
 
Регистрация: 13.10.2007
Сообщений: 2,739
Репутация: 965
По умолчанию

Цитата:
минимальный элемент я нашала, а как записать, чтобы он складывал именно те элементы, где находится минимальный элемент?
Если вы нашли минимальный элемент, то должны были найти и номер строки, где он находится.
Это пишется так:
Код:

min:=a[1,1];imin:=1;
for i:=1 to n do
for j:=1 to n do
if a[i,j]<min then
    begin
      min:=a[i,j];
      imin:=i;
    end;

Сейчас ищем сумму в строке:
Код:

sum:=0;
for j:=1 to n do
sum:=sum+a[imin,j];

Вроде все.
puporev вне форума   Ответить с цитированием
Ответ

Опции темы

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найти сумму ряда 11111 Помощь студентам 14 01.11.2010 20:55
В двумерном массиве 4*5 найти сумму элементов по строке или столбцу. bkmz Помощь студентам 11 16.04.2008 11:17
Найти сумму последних L положительных элементов в массиве A={a[i]}. Assembler Kasim Помощь студентам 2 16.12.2007 17:12
Найти сумму ряда с точностью Е=10^-3 Добрый Кот Паскаль 2 12.12.2007 13:04
вычислить сумму отрицательных элементов в массиве only_win Паскаль 2 25.09.2007 15:22


21:30.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru