дробные числа

@Tolka4 · Регистрация: 10.09.2013

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

подскажите с кодо!!! написал код а он работает только с целыми числами. если ввожу например 0,5 или 5,3 то выдает ошибку. помогите исправить плиз!!!

procedure TForm1.Button1Click(Sender: TObject);

Delphi

var
  x,y: real;
begin
x:=strtoint(Edit1.Text);
 
  if x<=0 then y:=0
    else if (x>0)and(x<=1) then y:=x
      else y:=sqr(x);
Memo1.Text:=floattostr(y);
end;

@Puporev · 18.09.2013, 16:46

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

ввожу например 0,5 или 5,3

А ты введи 0.5 или 5.3

@Tolka4 · 18.09.2013, 16:51 **[ТС]**

все рвно не рабит

@Puporev · 18.09.2013, 16:56

Delphi

1	x:=strtofloat(Edit1.Text);

@Tolka4 · 18.09.2013, 16:59 **[ТС]**

спасибо большое

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	18.09.2013, 16:46	2
	Сообщение от Tolka4 ввожу например 0,5 или 5,3 А ты введи 0.5 или 5.3 0

@Tolka4 0 / 0 / 0 Регистрация: 10.09.2013 Сообщений: 17
	18.09.2013, 16:51 [ТС]	3
	все рвно не рабит 0

@Tolka4 0 / 0 / 0 Регистрация: 10.09.2013 Сообщений: 17
	18.09.2013, 16:59 [ТС]	5
	спасибо большое 0