Операции в Memo

28.02.2009, 13:06. **Показов** 1146. **Ответов** 0

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

Помогите пожалуйста!
Нужна програма, которая должна производить операции со столбиком чисел.
Надо, чтобы она сравнивала 3 последовательных числа друг с другом(a,b,y)
и присваивала пременым(c,d) значения 1/0 в зависимости от результата сравнения.
А потом сравнивала c и d и, если они не равны(т.е. знак между a и b отличается от знака между b и y), присваивала преременной счётчику значение +1 и записывала во второй мемо с новой строки значения переменной a.
Далее код програмы- всё, что у меня вышло.(и то не работает :'(:'(:'()

Delphi

var a,b,y:array [1..510] of integer;
  var lin,q,z,e,f,r,n, i:integer;
  var w: integer;
  var c,d:{array[1..255] of} integer;
label l1;
begin
     if Memo1.Lines.Count<>0 then 
      lin := Memo1.Lines.Count -1;
    
       for i:=0 to 495 do 
 
    begin
      w:=i+2;
      f:=i+1;
      e:=i;
 
  a[i]:= StrToInt (F_Test.Memo1.Lines.Strings[e]); 
 
   label1.Caption:=IntToStr(a[i]);
 
  b[i]:= StrToInt(F_Test.Memo1.Lines.Strings[f]); 
 
  label2.Caption :=IntToStr(b[i]);
 
       y[i]:=StrToInt(F_Test.Memo1.Lines.Strings[w]); 
 
   label3.Caption :=IntToStr(y[i]) ;
 
   if a[i]>b[i] then c:=1 else c:=0;
   
   if b[i]>y[i] then d:=1 else d:=0;
    
       
      if (c<>d) and (a[i]<>b[i]) and (b[i]<>y[i])  then z:=z+1; 
         
      label8.Caption :=IntToStr(z);
 
 
 
      end;
 
 
 
end;
 
 
end.

	28.02.2009, 13:06