Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
PixelEagle
0 / 0 / 1
Регистрация: 09.11.2014
Сообщений: 3
1

Дана вещественная матрица размерности m*n. Вывести номера строк содержащих больше положительных элементов чем

09.11.2014, 16:27. Просмотров 805. Ответов 2
Метки нет (Все метки)

Дана вещественная матрица размерности m*n. Вывести номера строк, содержащих больше положительных элементов, чем отрицательных. Помогите пожалуйста. Delphi7
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.11.2014, 16:27
Ответы с готовыми решениями:

Вывести номера строк матрицы, содержащих больше положительных элементов, чем отрицательных
Здравствуйте! Помогите пожалуйста написать прогу в Делфи. Срочно надо! Дана...

Дана квадратная вещественная матрица размерности n x n. Найти количество нулевых элементов, стоящих
Дана квадратная вещественная матрица размерности n x n. Найти количество...

Дана вещественная матрица размерности n * m. Поменять местами строки с максимальным и минимальным элементами
Помогите пожалуйста Дана вещественная матрица размерности n * m. Поменять...

Дана матрица. Перечислить номера всех элементов (строку и столбец, значение элемента), содержащих цифру 5
Дана матрица. Перечислить номера всех элементов (строку и столбец, значение...

Дана матрица NxN. Вывести индексы положительных элементов.
Delphi 7 народ, помогитеее! Двумерный массив, помогите пожалуйста решить такую...

2
KMSNasgool
58 / 48 / 25
Регистрация: 17.12.2013
Сообщений: 204
10.11.2014, 04:10 2
Лучший ответ Сообщение было отмечено PixelEagle как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
program Project1;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
  SysUtils;
 
var
  I, J, M, N, Otr, Pol: Integer;
  Mass: array of array of Real;
begin
  WriteLn('Введите размерность матрицы');
  Write('Количество строк M=');
  ReadLn(M);
  SetLength(Mass, M);
  Write('Количество столбцов N=');
  ReadLn(N);
  for I := 0 to M - 1 do
    SetLength(Mass[I], N);
  WriteLn('Введите значения элементов матрицы:');
  for I := 0 to M - 1 do
    for J := 0 to N - 1 do begin
      Write('Mass[' + IntToStr(I) + ',' + IntToStr(J) + ']=');
      ReadLn(Mass[I, J]);
    end;
  WriteLn('Номера строк, содержащих больше положительных элементов, чем отрицательных:');
  for I := 0 to M - 1 do begin
    Otr := 0;
    Pol := 0;
    for J := 0 to N - 1 do begin
      if Mass[I, J] < 0 then Inc(Otr)
      else Inc(Pol);
    end;
    if Pol > Otr then WriteLn(IntToStr(I));
  end;
  ReadLn;
end.
0
PixelEagle
0 / 0 / 1
Регистрация: 09.11.2014
Сообщений: 3
16.11.2014, 17:32  [ТС] 3
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
   m, n: integer;
  a: array of array of integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
begin
randomize;
  n := strtoint(Edit1.Text);
  m := strtoint(Edit2.Text);
  StringGrid1.ColCount := m;
  StringGrid1.RowCount := n;
  setlength(a, n, m);
  for i := 0 to n - 1 do
    for j := 0 to m - 1 do
    begin
      a[i, j] := random(200) - 100;
      StringGrid1.Cells[j, i] := inttostr(a[i, j]);
    end;
end;
 
end.
Можете написать код для второй кнопки чтобы выводил номера строк

Добавлено через 1 минуту
можете написать код для второй кнопки?

Добавлено через 25 секунд
можете написать код для второй кнопки?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.11.2014, 17:32

Дана вещественная матрица размером. Упорядочить ее строки по неубыванию их первых элементов
Выдает ошибку,как исправить?? var a:array of array of real; x,y:byte; ...

Дана вещественная матрица размером. Упорядочить ее строки по неубыванию их первых элементов
Помогите заменить динамический массив на статический var a:array of array...

Дана вещественная матрица размером. Упорядочить ее строки по неубыванию их первых элементов
Дана вещественная матрица размером. Упорядочить ее строки по неубыванию их...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru