матрица

[mortizi]

Заданная матрица Х (n, n), n <= 15. Разработать программу, которая строит логический вектор L (n) по правилу: L (i) = true, если в i-той строке этой матрицы количество отрицательных элементов больше количества положительных, иначе - L (i) = false.Вивести матрицю на екран.Помогите разработать программу.

[min@y™]

Помогите разработать программу.

а чо делать-то надо?

[mortizi]

Сообщение от min@y™

а чо делать-то надо?

Разработать программу, которая строит логический вектор L (n) по правилу: L (i) = true, если в i-той строке этой матрицы количество отрицательных элементов больше количества положительных, иначе - L (i) = false.

[min@y™]

Разработать программу, которая строит логический вектор L (n) по правилу: L (i) = true, если в i-той строке этой матрицы количество отрицательных элементов больше количества положительных, иначе - L (i) = false.

Я имел в виду - помочь-то чем?

[mortizi]

Сообщение от min@y™

Я имел в виду - помочь-то чем?

написать программу

[TaLadno]

я написал, на 1Ске
куды тебе платформу скинуть?

min@y, не издевайся над девушкой, ей и так тяжело

[mortizi]

Сообщение от TaLadno

я написал, на 1Ске
куды тебе платформу скинуть?

min@y, не издевайся над девушкой, ей и так тяжело

сюда

[Аватар]

сюда

Не поместится, да и не подымешь. Язык то хоть какой?

не издевайся над девушкой

Откуда знаешь?

[TaLadno]

Сообщение от mortizi

сюда

Ну тогда на:

Процедура Ы_ы()
    Матрица = Новый Массив(15, 15);
    Вектор = Новый Массив(15);
	
    Для ИндексСтрока = 0 По Матрица.Количество() - 1 Цикл
        КоличествоМинимальных = 0;
        КоличествоНеМинимальных = 0;
        Для ИндексСтолбец = 0 По Матрица[ИндексСтрока].Количество() - 1 Цикл
            Если Матрица[ИндексСтрока][ИндексСтолбец] < 0 Tогда
                КоличествоМинимальных = КоличествоМинимальных + 1
            Иначе
                КоличествоНеМинимальных = КоличествоНеМинимальных + 1;
            КонецЕсли;
        КонецЦикла;
		
        Вектор.Добавить(КоличествоНеМинимальных > КоличествоНеМинимальных);
    КонецЦикла;
	
    Для Каждого ЭлементВектора из Вектор Цикл
        Сообщить(ЭлементВектора);
    КонецЦикла;	
КонецПроцедуры

И как люди пишут на этой гадости
До сегодня ни разу не пробовал, даже не знаю работает оно или нет

Сообщение от Аватар

Язык то хоть какой?

Это настолько неважная вещь в приказе на выполнение, что бедняга забыла указать её.

Сообщение от Аватар

Откуда знаешь?

Ниоткуда, просто предполагаю

[mortizi]

Сообщение от TaLadno

Ну тогда на:

Процедура Ы_ы()
    Матрица = Новый Массив(15, 15);
	Вектор = Новый Массив(15);
	
	Для ИндексСтрока = 0 По Матрица.Количество() - 1 Цикл
		КоличествоМинимальных = 0;
		КоличествоНеМинимальных = 0;
        Для ИндексСтолбец = 0 По Матрица[ИндексСтрока].Количество() - 1 Цикл
            Если Матрица[ИндексСтрока][ИндексСтолбец] < 0 Tогда
				КоличествоМинимальных = КоличествоМинимальных + 1
			Иначе
				КоличествоНеМинимальных = КоличествоНеМинимальных + 1;
			КонецЕсли;
        КонецЦикла;
		
        Вектор.Добавить(КоличествоНеМинимальных > КоличествоНеМинимальных);
    КонецЦикла;
	
	Для Каждого ЭлементВектора из Вектор Цикл
        Сообщить(ЭлементВектора);
    КонецЦикла;	
КонецПроцедуры

И как люди пишут на этой гадости
До сегодня ни разу не пробовал, даже не знаю работает оно или нет



Это настолько неважная вещь в приказе на выполнение, что бедняга забыла указать её.


Ниоткуда, просто предполагаю

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Math;
 
type
    MAS = array[1..3, 1..3] of integer;
    VECT = array[1..3] of integer;
 
type
  TForm1 = class(TForm)
    Button5: TButton;
    function zero_position(B: VECT; n: integer): integer;
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
implementation
 
{$R *.dfm}
 
function TForm1.zero_position(B: VECT; n: integer): integer;
var
   i, pos: integer;
begin
     pos := 0;
     for i := 1 to n do
       if (B[i] = 0) then
         begin
           pos := i;
           break;
         end;
     zero_position := pos;
end;
 
procedure TForm1.Button5Click(Sender: TObject);
var
   A: MAS;
   B, V: VECT;
   i, j, k, max, S: integer;
begin
     A[1, 1] := 0; A[1, 2] := 1; A[1, 3] := 3;
     A[2, 1] := -20; A[2, 2] := 0; A[2, 3] := 30;
     A[3, 1] := 21; A[3, 2] := 15; A[3, 3] := 0;
 
     for i := 1 to 3 do
       begin
         for j := 1 to 3 do
           V[j] := A[i, j];
         B[i] := zero_position(V, 3);
         Caption := Caption + '   ' + IntToStr(B[i]);
       end;
end;
end.

А У МЕНЯ ВОТ ТАК ПОЛУЧИЛОСЬ и не работаеть