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

Количество строк массива, в которых присутствует хотя бы один отрицательный элемент

09.10.2014, 13:43. Просмотров 1092. Ответов 3
Метки нет (Все метки)

пожалуйста эту программу помогите сделать в Delphi 7

Добавлено через 39 секунд
123

(Перемещено из Turbo Pascal)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.10.2014, 13:43
Ответы с готовыми решениями:

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

Вычислить количество строк матрицы, в которых есть хоть одни отрицательный элемент
Дана матрица размер N на M. Вычислить кол-во строк матрицы в которой есть хоть...

Определить количество строк матрицы, содержащих хотя бы один нулевой элемент
Дана целочисленная прямоугольная матрица. Определить: 1) Количество строк,...

Определить номер строки матрицы R[M,N], хотя бы один элемент которых равен С, и элементы этих строк умножить на d
Определить номер строки матрицы R,хотя бы один элемент которых равен С, и...

Найти сумму элементов в тех столбцах, которые содержат хотя бы один отрицательный элемент
Привет помогите с одном и двумерн массивами ?? в делфи в оконном виде?(...

3
Joy
Эксперт Pascal/Delphi
2171 / 1199 / 1437
Регистрация: 29.08.2014
Сообщений: 4,389
09.10.2014, 14:25 2
Только причем тут Turbo Pascal?
0
Вложения
Тип файла: zip К-во строк с отр эл.zip (4.0 Кб, 4 просмотров)
D1973
Модератор
3580 / 2579 / 1261
Регистрация: 21.01.2014
Сообщений: 10,857
Записей в блоге: 3
Завершенные тесты: 1
09.10.2014, 14:27 3
Лучший ответ Сообщение было отмечено mik-a-el как решение

Решение

В принципе, надо было сразу в раздел Delphi обращаться...
Вот так как-то
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
52
53
54
type
  TForm1 = class(TForm)
    Label1: TLabel;
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Label2: TLabel;
    UpDown1: TUpDown;
    Edit2: TEdit;
    Label3: TLabel;
    UpDown2: TUpDown;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
 i, j, k : integer;
 A    : array of array of integer;
begin
 Randomize;
 k := 0;
//Задали размерность массива
 StringGrid1.RowCount := UpDown1.Position;
 StringGrid1.ColCount := UpDown2.Position;
 SetLength(A, StringGrid1.RowCount, StringGrid1.ColCount);
//Заполнили массив случайными числами от -100 до 100
//и записали его в СтрингГрид
 for i := 0 to StringGrid1.RowCount - 1 do
  for j := 0 to StringGrid1.ColCount - 1 do
   begin
    A[i,j] := -100 + Random(200);
    StringGrid1.Cells[j,i] := IntToStr(A[i,j]);
   end;
//Нашли кол-во строк с отрицательными элементами
 for i := 0 to StringGrid1.RowCount - 1 do
  for j := 0 to StringGrid1.ColCount - 1 do
   if A[i, j] < 0
    then begin
          inc(k);
          break;
         end;
 Label1.Caption:='Кол-во строк с отрицательными элементами: ' + IntToStr(k);
end;
0
Миниатюры
Количество строк массива, в которых присутствует хотя бы один отрицательный элемент  
CodeR
Фрилансер
3381 / 2782 / 3000
Регистрация: 08.02.2012
Сообщений: 6,767
Записей в блоге: 1
09.10.2014, 14:29 4
Лучший ответ Сообщение было отмечено mik-a-el как решение

Решение

Pascal
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
Const nmax=10;
Var A:array[1..nmax,1..nmax] of real;
    i,j,n,m,k:byte;
Begin
    {$ APPTYPE CONSOLE}
    Repeat
     write('Количество строк 1<=M<=',nmax,': ');
     readln(m);
    Until m in [1..nmax];
    Repeat
     write('Количество столбцов 1<=N<=',nmax,': ');
     readln(n);
    Until n in [1..nmax];
    For i:=1 to m do
    Begin
      For j:=1 to n do
      Begin
        A[i,j]:=random*10-5;
        write(A[i,j]:6:2);
      End;
      writeln;
    End;
    For i:=1 to m do
    Begin
      For j:=1 to n do
       if A[i,j]<0 then
       Begin
         inc(k);
         break;
       End;
    End;
    if k=0 then writeln('Нету таких строк')
     else writeln('Таких строк: ',k);
    readln;
End.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.10.2014, 14:29

Найти сумму элементов в тех столбцах, которые содержат хотя бы один отрицательный элемент
Добрый вечер! Очень прошу помочь, т.к. сама не в состоянии написать...

Найти сумму элементов в тех строках, которые содержат хотя бы один отрицательный элемент
Саму матрицу как-то смог создать, но.. Нужно найти сумму элементов в тех...

Найти суммы элементов в тех строках, которые содержат хотя бы один отрицательный элемент
Создать программу по обработке матрицы 8*10 целых чисел. Матрицу заполнить...


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

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

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