VPF::[Pascal] Матрица - Форум программистов

r00tkit

Дата 26.12.2007, 21:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 26.12.2007

Репутация: нет
Всего: нет

Парни помогите. Завтра надо сдать задачи а у меня две этих задачи не получаются:

1). Определить номер первого из столбцов, содерж. как минимум 2 нулевых элемента (оформить в виде функции).

2). Характеристикой строки целочисленной матрицы назовем сумму её отрицательных четных элементов. Переставляя строки заданной матрицы расположить их в соответствии с убыванием их характеристик. (Оформить в виде процедуры).

За малейшую помощь буду благодарен. smile

Hang

Дата 27.12.2007, 01:34 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 77
Регистрация: 16.12.2007
Где: Вологда

Репутация: 1
Всего: 3

Цитата

1). Определить номер первого из столбцов, содерж. как минимум 2 нулевых элемента (оформить в виде функции).

Код


uses crt;
var n,m: Integer;

function poisk(n: Integer; m: Integer): Integer;
var
    i,j,k,l,g: Integer;
    a: array [1..50,1..50] of Integer;
begin
  for i:=1 to n do
  for j:=1 to m do
  begin
    write ('a[',i,',',j,']=');
    Readln(a[i,j]);
  end;
  Writeln;
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(' ',a[i,j]);
      writeln;
  end;
  writeln;
  k:=0;
  l:=0;
  for j:=1 to m do
  for i:=1 to n do
    if (a[i,j]=0) and (l=0) then
    begin
      k:=k+1;
      if k>1 then
      begin
        l:=1;
        g:=j;
      end;
    end;
    if k=0 then
      writeln('nulevih elementov net')
    else
      writeln('stolbez pod #',g);
end;

begin
  clrscr;
  write('vvedite kolichestvo strok='); Readln(n);
  write('vvedite kolichestvo stolbzov='); Readln(m);
  poisk(n,m);
  readln;
end.

Извини, что без комментариев, думаю и так все понятно

r00tkit

Дата 27.12.2007, 08:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 26.12.2007

Репутация: нет
Всего: нет

Спасибо .. smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »