Главная » Delphi, Исходники, Массивы » Поиск рядов с положительными элементами в массиве NxM
Янв
25

Поиск рядов с положительными элементами в массиве NxM

Условие: Написать программу которая будет находить ряды с положительными числами. После чего выводить количество таких рядов в поле Edit3. Если же хоть в одном ряде массива StringGrid1 вы укажите элемент меньше 0 или просто ноль, то такой ряд отбрасывается программой и не суммируется к общему количеству рядов (с только положительными элементами).

Поиск рядов с положительными элементами в массиве NxM

[sourcecode language=»delphi»]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Edit3: TEdit;
procedure Edit1Change(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }





end;
var
Form1: TForm1;
n,m:integer;
implementation
{$R *.dfm}
procedure TForm1.Edit1Change(Sender: TObject);
begin
n:=StrToInt(Edit1.Text);
StringGrid1.ColCount:=n;
end;
procedure TForm1.Edit2Change(Sender: TObject);
begin
m:=StrToInt(Edit2.Text);
StringGrid1.RowCount:=m;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
k,j,i:integer;
f:boolean;
begin
k:=0;
for j:=0 to m-1 do
begin
f:=true;
for i:=0 to n-1 do
if not (StrToInt(StringGrid1.Cells[0,j])*StrToInt(StringGrid1.Cells[i,j]) > 0) then
begin
f:=false;
break;
end;
if f then inc(k);
end;
Edit3.Text:=IntToStr(k);
end;
end.
[/sourcecode]

[download id=»21″]



Понравилась статья? Сделай приятно ее автору, поделись с друзьями:


Хотите получать обновления данного блога на EMail?

Введите адрес Почтового Ящика:




Подтвердите подписку в письме пришедшем на Почту, после чего начнете получить рассылку.