выборка и сравнение из массива

[Dennikid]

для конкретного случая не может. просто нужна сама идея как сделать. а с другими случаями я разберусь.

[Квэнди]

Ну если совсем грубо и не вдумываясь, то так:

var x,xo:array of integer;
y,yo:array of extended;
i,j,tempx:integer;
tempy:extended;
begin
memo1.Clear;
setlength(x,0);
setlength(y,0);
setlength(xo,0);
setlength(yo,0);
memo1.Lines.LoadFromFile('c:\а-bez.txt');
for i := 0 to memo1.Lines.Count-1 do
  begin
    tempx:=strtointdef(copy(memo1.Lines[i],1,pos(' ',memo1.Lines[i])-1),0);
    tempy:=strtofloatdef(copy(memo1.Lines[i],pos(' ',memo1.Lines[i])+1,length(
      memo1.Lines[i])-pos(' ',memo1.Lines[i])),0);
    if (tempx mod 5)=0 then
      begin
        setlength(x,length(x)+1);
        setlength(y,length(y)+1);
        x[length(x)-1]:=tempx;
        y[length(y)-1]:=tempy;
      end;
  end;
for i := 0 to length(x)-1 do
  begin
    if (i>0)and(abs(x[i]-x[i-1])>5) then
      begin
        for j := 0 to (abs(x[i]-x[i-1])div 5)-1 do
          begin
            setlength(xo,length(xo)+1);
            setlength(yo,length(yo)+1);
            xo[length(xo)-1]:=x[i-1]+(5*j);
            yo[length(yo)-1]:=0;
          end;
      end
    else
      begin
        if i>0 then
        begin
          setlength(xo,length(xo)+1);
          setlength(yo,length(yo)+1);
          xo[length(xo)-1]:=x[i];
          yo[length(yo)-1]:=y[i];
        end
        else
          if x[i]>-90 then
            begin
              for j := 0 to (abs((-90-x[i])div 5)-1) do
              begin
                setlength(xo,length(xo)+1);
                setlength(yo,length(yo)+1);
                xo[length(xo)-1]:=x[i]+(-5*(j+1));
                yo[length(yo)-1]:=0;
              end;
            end;
      end;
  end;
for i := 0 to length(xo)-1 do
  memo2.Lines.Add(inttostr(xo[i])+' '+floattostr(yo[i]));

[Dennikid]

Спасибо, попробуем!

[Dennikid]

не совсем точно срабатывает. если в исходном файле. допустим не будет строки 75 то он 70 и 75 присваивает 0(((( будет дорабатывать. Но идея хороша.

[Квэнди]

ну это уш доработайте сами, сам алгоритм думаю ясен

[Dennikid]

А вот вариант проще, сам придумал:

procedure TForm1.Button2Click(Sender: TObject);
var ugol: array[-90..90] of String;
a,s,d,i:integer;
begin
Memo1.Clear;
Memo2.Clear;
for a:=-90 to 90 do
ugol[a]:='0';
memo1.Lines.LoadFromFile('c:\а-bez.txt');
for i := 0 to memo1.Lines.Count-1 do
begin
s:=strtointdef(copy(memo1.Lines[i],1,pos(' ',memo1.Lines[i])-1),0);
ugol[s]:=copy(memo1.Lines[i],pos(' ',memo1.Lines[i])+1,length(
memo1.Lines[i])-pos(' ',memo1.Lines[i]));
end;
d:=-90;
while d<=90 do
begin
memo2.Lines.Add(inttostr(d)+' '+ugol[d]);
d:=d+5;
end;
end;