[Opium1992]

Помогите с задачкой!! никак догнать не могут как решить..
вот она =) (на украинском, я перевёл на русский как мог =))

Задано две целочисленные матрицы A(n,n) і B(n,n) n<=15 . Сделать програму, которая строит і печатает вектор X(n) по правилу: X(i)=1,если все елементи i-го рядка первой и второй матриц отрицательные и X(i)=1 в других случаях.

буду очень признателен

[lmikle]

Ну и в чем проблема?
1. Напиши функцию (пусть f), которая принимает на вход матрицу и номер ряда (строки?) и возвращает True, если все элементы этого ряда отрицательные.
2. Напиши вторую функцию, которая стоит вектор (фактически, одномерный массив), при этом значение i-го элемента вектора = -1, если f(a,i) = True и f(b,i) = True, иначе значение элемента = 1.
Ну а с выводом вектора справишься.

[Opium1992]

Вот смотри я хз че не так

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Type Tmas=array[0..14] of integer; Var a,b:array[0..14] of Tmas; l:boolean; i,j:integer; begin    for i:=0 to n-1 do        for j:=0 to n-1 do           a[i,j]:=StrToInt(StringGrid1.Cells[j,i]);     for i:=0 to n-1 do        for j:=0 to n-1 do           b[i,j]:=StrToInt(StringGrid2.Cells[j,i]);   end;   for i:=1 to n do   begin l:=true;   for j:=1 to n do   if (a[i,j]>=0) or (b[i,j]>=0) then l:=false;   if l=true then x[i]:=1 else x[i]:=0 ;   for i:=1 to n do   Edit2.Text:=IntToStr(x);   end;

Admin: Пользуемся тегами!