Сократить код Делфи

@HassLiebe · Регистрация: 24.03.2016

Author24 — интернет-сервис помощи студентам

Ребята, прошу помогите, я уже устал ломать голову, последняя надежда на вас.
Условие задачи: Пусть даны натуральное число n, вещественное число х, вещественная
матрица размером n х 2n. Получите последовательность b1 , b2 , ..., bn из
нулей и единиц, где b i = 1, если элементы i-й строки матрицы не
превосходят х, и b i = 0 в противном случае.
В общем мне нужно, сократить код который я предоставлю ниже.
Мне нужно чтоб, при нахождении несоответствия условию задачи(bi<x) он ставил в последовательности 1 и выходил из цикла переходя на следующею строку. А то у меня он при нахождении несоответствия, все равно проверяет строку до конца, а это не рационально(нагружает программу).
Иными слова, вот проверяет строку нашел число в строке меньше вещественной(х) поставил в последовательности 1 и перешел на следующею строку.

Delphi

var
  Form1: TForm1;
n,m:integer;
x:extended;
b:array of byte;
a:array of array of extended;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
begin
try
n:=strtoint(edit1.Text);
except
showmessage('Натуральное число N должно быть целым!');
exit;
end;
if n<1 then
begin
showmessage('Натуральное число N должно быть больше 0!');
exit;
end;
m:=2*n;
with stringgrid1 do
begin
rowcount:=n;
colcount:=m;
for i:=0 to n-1 do
for j:=0 to m-1 do
cells[j,i]:=inttostr(random(100)-50);
end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
i,j,k:integer;
begin
setlength(a,n);
for i:=0 to n-1 do
setlength(a[i],m);
for i:=0 to n-1 do
for j:=0 to m-1 do
begin
try
a[i,j]:=strtofloat(stringgrid1.Cells[j,i]);
except
showmessage('Элемент вещественной матрицы в строке '+inttostr(i+1)+' и в столбце '+inttostr(j+1)+' должен быть вещественным числом!');
exit;
end;
end;
try
x:=strtofloat(edit2.Text);
except
showmessage('Вещественное число X должно быть вещественным числом!');
exit;
end;
setlength(b,n);
for i:=0 to n-1 do
begin
k:=0;
for j:=0 to m-1 do
if a[i,j]<=x then
k:=k+1;
if k=m then
b[i]:=1
else
b[i]:=0;
end;
with stringgrid2 do
begin
rowcount:=n;
for i:=0 to n-1 do
cells[0,i]:=inttostr(b[i]);
end;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1Click(Sender);
end;

Заранее ВАМ огромное спасибо!

@Puporev · 29.03.2016, 08:06

Delphi

for i:=0 to n-1 do
 begin
  b[i]:=1;
  j:=0;
  while(j<n)and(b[i]=1) do
  if a[i,j]>x then b[i]:=0
  else inc(j);
 end;

	29.03.2016, 08:06