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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 22.12.2007, 12:15   #1
Vedma
Новичок
Джуниор
 
Аватар для Vedma
 
Регистрация: 20.12.2007
Сообщений: 1
Вопрос Pascal

Привет всем!
Помогите кто-чем может. Мне нужно составить программу в Pascal.
Задание:
Дана матрица С[N,M]. Определить количество положительных элементов каждого столбца матрицы и сформировать из них вектор.
Vedma вне форума Ответить с цитированием
Старый 22.12.2007, 12:31   #2
Abbatik
Форумчанин
 
Аватар для Abbatik
 
Регистрация: 11.11.2007
Сообщений: 136
По умолчанию

Код:
uses crt;
const n=5;m=4;
var 
c:array[1..n,1..m] of integer;
a:array[1..m] of integer;
i,j:integer;
begin
clrscr;
randomize;
for i:=1 to n do begin
for j:=1 to m do begin
c[i,j]:=50-random(100);
write(c[i,j]:3);
if c[i,j]>0 then a[j]:=a[j]+1;
end;
writeln;
end;
writeln('vektor---->');
for i:=1 to m do write(a[i]:3);
readkey;
end.
ICQ - 446037211

Последний раз редактировалось Abbatik; 22.12.2007 в 12:32. Причина: [code][/code]
Abbatik вне форума Ответить с цитированием
Старый 22.12.2007, 15:25   #3
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Подсчитать количество положительных элементов по столбцам можно так:
Код:
program matrix;
uses crt;
var a:array[1..20,1..20]of integer;
    b:array[1..20]of integer;
    n,m,i,j,k:integer;
begin
clrscr;
{vvod i rasp matr}
write('n=');readln(n);
write('m=');readln(m);
writeln('ischod matr');
randomize;
for i:=1 to n do
  begin
    for j:=1 to m do
      begin
        a[i,j]:=random(10)-5;
        write(a[i,j]:3);
      end;
    writeln;
  end;
readln;
{podschet po stolbcham}
for j:=1 to m do
  begin
   k:=0;
   for i:=1 to n do
   if a[i,j]>0 then
      begin
        k:=k+1;
        b[k]:=a[i,j];
      end;
   writeln('Kol pol chis v stb',j,'=',k);
   end;
readln;
end.
А насчет вектора немного не понял условие, если нужен вектор из всех положительных элементов массива, то это написал Abbatik. Правда из условия непонятно, может нужно векторы по каждому столбцу или вектор из количеств положительных элементов столбцов. Если можно, уточните.
puporev вне форума Ответить с цитированием
Ответ


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

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
БД на Pascal Умелец Помощь студентам 24 16.09.2010 20:44
Pascal Nadjuha Помощь студентам 2 18.06.2008 18:13
Need help, Pascal Бедный студент Помощь студентам 0 31.05.2008 01:38
Pascal bladebreaker Помощь студентам 2 23.05.2007 22:15