VPF::[Паскаль TP7.0] Задачка по матрице

dizel003

Дата 26.5.2008, 21:37 (ссылка)

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

Загрузка ...

Бывалый

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

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

Помогите решить задачу!

Дана целочисленная матрица размера 5*10. Вывести номер ее первой строки, содержащей равное количество положительных и отрицательных элементов.( нулевые не учитывать). Если таких строк нет то вывести 0

Заранее спасибо!

volvo877

Дата 26.5.2008, 22:07 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

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

Для домашних заданий, курсовых, существует "Центр Помощи"

Тема перенесена!

ILyAHA

Дата 26.5.2008, 22:10 (ссылка)

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

Загрузка ...

Гламурный хакер

Профиль
Группа: Участник
Сообщений: 193
Регистрация: 30.3.2007
Где: Ярославская обл. г.Рыбинск

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

В центр помощи обращайся! smile

--------------------

<sсriрt>alert('xss')</sсriрt>

neic

Дата 27.5.2008, 16:27 (ссылка)

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

Загрузка ...

Опытный

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

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

Код


var 
    a:array[1..5,1..10] of real;
    pol:array[1..5] of real;
    otr:array[1..5] of real;
...
    for i:=1 to 5
    begin
    pol[i]:=0;
    otr[i]:=0;
        for j:=1 to 10
        begin
            If a[i,j]>0 then pol[i]:=pol[i]+a[i,j]
            If a[i,j]<0 then otr[i]:=otr[i]-a[i,j]
        end;
    if pol[i]=abs(otr[i]) then 
    begin
        write(i);
        exit
    end;
    end;
write('0')
...

Насчёт exit'a не знаю, мож и end или GoTo какой-нить нужно писать.

Это сообщение отредактировал(а) neic - 27.5.2008, 22:57

THandle

Дата 27.5.2008, 17:52 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

Вот пример программы, писал в Делфе, в Паскале проверить возможности нет, но уверен, должна работать по идее)

Код


program Project1;

var
  Matrix : array [1..5, 1..10] of integer;
  i, j : integer;

function FirstOPStr : integer;
var
  p, o : integer;
begin
  result := 0;
  for i := 1 to 5 do
    begin
      p := 0;
      o := 0;
      for j := 1 to 10 do
        if Matrix[i, j] <> 0 then
          if Matrix[i, j] > 0 then
            inc(p)
          else
            inc(o);
      if p = o then
        begin
          FirstOPStr := i;
          exit;
        end;
    end;
end;

begin
  randomize;
  for i := 1 to 5 do
    begin
      for j := 1 to 10 do
        begin
          Matrix[i, j] := random(10) - random(10);
          write(Matrix[i, j], '  ');
        end;
      writeln;
    end;
  WriteLn('Str number: ', FirstOPStr);
  readln;
end.

THandle

Дата 27.5.2008, 18:27 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

Да, кстати. Там еще не плохо бы проверочку сделать на то что p или o не являются нулями, так как тогда возможна вероятность, что будет показан индекс строки со всеми нулями...

То есть так:

Код



function FirstOPStr : integer;
var
  p, o : integer;
begin
  result := 0;
  for i := 1 to 5 do
    begin
      p := 0;
      o := 0;
      for j := 1 to 10 do
        if Matrix[i, j] <> 0 then
          if Matrix[i, j] > 0 then
            inc(p)
          else
            inc(o);
      if ((p <> 0) or (o <> 0)) then
        if p = o then
          begin
            FirstOPStr := i;
            exit;
          end;
    end;
end;

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