Для любого числа Х рассчитать QW=100*X, если Х > 0, в противном случае найти CM=x/100.

[SeeYoo]

1. Для любого числа Х рассчитать QW=100*X, если Х > 0, в противном случае найти CM=x/100.

procedure TForm2.Button1Click(Sender: TObject);
var y,x:integer;
begin
x:=Edit1.Text;
if x > 0 then
begin
x:=100*x;
Edit1.Text:=IntToStr(x);
end
else
begin
y:= x / 100;
Edit1.Text:=IntToStr(y);
end;
end;
end.

Ошибки выдаёт, не понимаю в чём дело.

[northener]

Результат деления x / 100 по определению число вещественное и не может быть присвоено целочисленной переменной y

[digitalis]

А что за странные существа QW и CM ? И что делать, если х=0? Делить на 0 ?

[JUDAS]

Ошибки выдаёт, не понимаю в чём дело.

Автор, бросай ты это гиблое дело - программирование. Не твоё оно.
Вон в сельском хозяйстве нужны специалисты.

ответ

procedure TForm2.Button1Click(Sender: TObject);
var y,x:integer;
var X, QW, CM : double;
begin
  x :=  StrToFloatDef(Edit1.Text, 0);
x:=Edit1.Text;
  if x >= 0 then
  begin

x:=100*x;
Edit1.Text:=IntToStr(x);

     QW :=100*x;
     Edit1.Text:=FloatToStr(QW);
  end else
  begin
    CM  := x / 100;
    Edit1.Text:=IntToStr(y);
    Edit1.Text:=FloatToStr(CM );
  end;
end;

end.