[gpavel]

не пойму что не так почему не работает

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1KeyPress(Sender: TObject; var Key: Char);
    procedure Summ(var j,i:integer);


  private

    { Private declarations }
  public
  j,i:integer;

    { Public declarations }
  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var l,res,op,rop: integer;
begin
randomize;
l:=random(100);
res:=random(100);
Summ(l,res);
op:=StrToInt(label1.Caption);
rop:=StrToInt(label3.Caption);
if op+rop=StrToInt(label5.Caption) then ShowMessage( 'правельно')
else ShowMessage( ' не правельно') ;
label5.Caption:='';
end;
procedure TForm1.FormCreate(Sender: TObject);
var l,res : integer;
begin

//randomize;
//l:=random(100);
//res:=random(100);
//Summ(l,res);
end;

procedure TForm1.Button1KeyPress(Sender: TObject; var Key: Char);
begin
form1.Label5.Caption:=form1.Label5.Caption+key;
end;

procedure TForm1.Summ(var j, i: integer);

begin      if   (j=i) and((j+i)>100) then
 begin
  if j>50 then j:=j-50;
  if j>60 then j:=j-60;
  if j>70 then j:=j-70;
  if j>80 then j:=j-80;
  if j>90 then j:=j-90;
end;

if (j+i)>100 then
begin
  if i>j then begin
  i:=i-j;
  end;
end;
if (j+i)>100 then
 begin
  if j>i then    begin
   j:=j-i;
  end;
end;
edit1.Text:= IntToStr(i);
edit2.Text:= IntToStr(j);
form1.Label1.Caption:=IntToStr(i);
form1.Label3.Caption:=IntToStr(j);
//if j+i=StrToInt(label5.Caption) then ShowMessage( 'правильно')
//else ShowMessage( ' не правильно') ;
//memo1.Lines[r]:=IntToStr(i)+'+'+inttostr(j);
//label5.Caption:='' ;



end;

end.

lmikle: Первое предупреждение!

[angvelem]

Хоть объясни, что этот код вытворяет. На первый взгляд (на второй тоже), полная ахинея.

[Uniq!]

Код? Ээээ. Это набор не читаемых символов.

Меня порадовало:

Код:

op:=StrToInt(label1.Caption);
rop:=StrToInt(label3.Caption);

прям Петросян.

[Alegun]

Нарушение ПФ п.п. 2.4, 2.8 детектед


Замените

Код:

...
if (j+i)>100 then
begin
if i>j then begin
i:=i-j;
end;
end;
if (j+i)>100 then
begin
if j>i then begin
j:=j-i;
end;
end;

...

на

Код:

...
if (j + i) > 100 then if i > j then i:= i - j else j:= j - i;
...

[lmikle]

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

не пойму что не так почему не работает

Второе предупреждение!

1. Что должн делать код?
2. Как не работает? Какое сообщение об ошибке? На каком этапе?

Если хотите получить помощь, давайте больше информации.