IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Нужна помощь с Матрицай М на Н, сумма элементов
ovosch
сообщение 24.05.2011 0:54
Сообщение #1





Группа: Пользователи
Сообщений: 4
Пол: Мужской
Реальное имя: ovosch

Репутация: -  0  +


Доброй ночи.
Не получается решить задачу . Помогите пожалуйсто

Дана вещественная матрица размерности n×m. Найти общую сумму элементов только тех столбцов, которые имеют хотя бы один нулевой элемент.

program ovosch;
var A:array [1..100,1..100] of integer;

i,j,m,n:integer;
sum: real;
begin

readln(n);
readln(m);
for i:=1 to n do begin
for j:=1 to m do begin
 a[i,j]:=random(51);
      write(a[i,j]:4);
      end;
      writeln
      
      end;
      if j=0 then ??????
      end.


Это всё ,что я смог сделать. Вроде всё ясно, представляю, но записать ума не хватает unsure.gif

М
Теги! Правила Форума, п.5, и правила раздела Задачи, п.2
Lapp

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Lapp
сообщение 24.05.2011 1:10
Сообщение #2


Уникум
*******

Группа: Модераторы
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Цитата(ovosch @ 24.05.2011 1:54) *
Дана вещественная матрица размерности nЧm. Найти общую сумму элементов только тех столбцов, которые имеют хотя бы один нулевой элемент.

program ovosch;
var A:array [1..100,1..100] of integer;

i,j,m,n:integer;
sum: real;
begin

readln(n);
readln(m);
for i:=1 to n do begin
for j:=1 to m do begin
 a[i,j]:=random(51);
      write(a[i,j]:4);
      end;
      writeln
      
      end;
      if j=0 then ??????
      end.


Это всё ,что я смог сделать. Вроде всё ясно, представляю, но записать ума не хватает unsure.gif

Как-то вот так попробуй:
program ovosch;
var 
  A:array [1..100,1..100] of integer;
  i,j,m,n: integer;
  s,t: extended;
  z: boolean;

begin
  readln(n);
  readln(m);
  for i:=1 to n do begin
    for j:=1 to m do begin 
      a[i,j]:=random(51);
      write(a[i,j]:4);
    end;
    writeln
  end;
  s:= 0;
  for j:=1 to m do begin
    t:= 0;
    z:= false;
    for i:=1 to n do begin 
      z:= z or (a[i,j]=0);
      t:= t+a[i,j]
    end;
    if z then s:= s+t
  end;
  ........

Заметь, что во втором двойном цикле внешний проход по столбцам.

Исправил ошибки

Сообщение отредактировано: Lapp - 24.05.2011 2:17


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
ovosch
сообщение 24.05.2011 1:19
Сообщение #3





Группа: Пользователи
Сообщений: 4
Пол: Мужской
Реальное имя: ovosch

Репутация: -  0  +


Цитата(Lapp @ 24.05.2011 1:10) *

Как-то вот так попробуй:
program ovosch;
var 
  A:array [1..100,1..100] of integer;
  i,j,m,n: integer;
  s,t: extended;

begin
  readln(n);
  readln(m);
  for i:=1 to n do begin
    for j:=1 to m do begin 
      a[i,j]:=random(51);
      write(a[i,j]:4);
      end;
      writeln
    end
  end;
  s:= 0;
  for j:=1 to m do begin
    t:= 0;
    z:= false;
    for i:=1 to n do begin 
      z:= z or (a[i,j]=0);
      t:= t+a[i,j]
    end;
    if z then s:= s+t
  end;
  ........

Заметь, что во втором двойном цикле внешний проход по столбцам.

спасибо, сейчас разберусь!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 25.07.2025 3:40
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"