Сумма отрицательных.

[thinkcler]

Нужно найти сумму отрицательных чисел.
Вот программный код действия:

procedure TForm1.N2Click(Sender: TObject);
var
    x,y,h,a,b:real;
    cod:integer;
    s1,s2:string;
begin
    val(Edit1.text,a,cod);
    val(Edit2.text,b,cod);
    val(Edit3.text,h,cod);
    x:=a;
    while x<=b+h/2 do
    begin
        y:=sin(2*x)-2*cos(x);
        str(x:10:2,S1);
        str(y:10:2,S2);
        memo1.lines.add(S1+S2);
        x:=x+h
    end;
end;

[m0dE^]

Добавь еще одну переменную, а при вычислении сделай условие: если результат меньше нуля, то плюсуй к этой самой новой перменнной..

P.S. или я не так понял вопрос