Среди заданных чисел найти отрицательные и вывести на экран модули этих чисел

[reapple]

помогите решить задачу по делфи.
Среди заданных чисел X и Y, найти отрицательные и вывести на экран модули этих чисел.
я понимаю, что сначала нужно сравнивать их 0, чтобы найти отрицательное, а как в коде это будет? и как работать с модулями?

[Alex11223]

Так и будет, с помощью if.

как работать с модулями?

Math в uses и Abs(x)

[Вадим Мошев]

а как в коде это будет?

А вы напишите, попробуйте. Если что, мы подскажем, поправим.

[northener]

Сообщение от reapple

помогите решить задачу по делфи.
Среди заданных чисел X и Y, найти отрицательные и вывести на экран модули этих чисел.
я понимаю, что сначала нужно сравнивать их 0, чтобы найти отрицательное, а как в коде это будет? и как работать с модулями?

Сначала нужно найти в себе силы, чтобы открыть Дельфи и попытаться хоть что-то сделать самому.

[reapple]

задачу решила

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Panel2: TPanel;
    Panel3: TPanel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var x,y,b,c:integer;
begin
b:= StrToInt(Edit1.text);
c:= StrToInt(Edit2.text);
if b<0 then begin
x:= Abs(b);
Panel2.Caption:= IntToStr(x);
end;
if c<0 then begin
y:=Abs(c);
Panel3.Caption:= IntToStr(y);
end;
end;


end.