Программа на DELPHI 7, которая представляет число, написанное в Edit в виде a*sqrt(b)
Добавлено: 19 апр 2013, 21:30
Написал так:
var n: real; //число
d: real; //делитель
r: integer; //остаток от деления
m: real;
f:real;
begin
n := StrToFloat(Edit1.text);
d := 0.00000001;
repeat
begin
f:=d*d;
r := n mod f;
end;
if r <> 0 then
d := d + 0.000000000001;
until r = 0;
if d > n then
Label1.Caption:='нет рациональных значений, ответ: '+(StrToFloat(n));
else
m:=n/d;
Label2.Caption:=FloatToStr(m);
Label1.Caption:=FloatToStr(d);
end;
выдаёт ошибку [Error] Unit1.pas(48): Operator not applicable to this operand type
Помогите разобраться, плз, или предложите свой вариант программы, которая прочитает число n (например, 2.4494897...) в Edit1 и представит его в виде a корней из b ( 2.4494897 = 2 корня из 3). Заранее спасибо, если что, не сочтите за нуба, поправьте=))
var n: real; //число
d: real; //делитель
r: integer; //остаток от деления
m: real;
f:real;
begin
n := StrToFloat(Edit1.text);
d := 0.00000001;
repeat
begin
f:=d*d;
r := n mod f;
end;
if r <> 0 then
d := d + 0.000000000001;
until r = 0;
if d > n then
Label1.Caption:='нет рациональных значений, ответ: '+(StrToFloat(n));
else
m:=n/d;
Label2.Caption:=FloatToStr(m);
Label1.Caption:=FloatToStr(d);
end;
выдаёт ошибку [Error] Unit1.pas(48): Operator not applicable to this operand type
Помогите разобраться, плз, или предложите свой вариант программы, которая прочитает число n (например, 2.4494897...) в Edit1 и представит его в виде a корней из b ( 2.4494897 = 2 корня из 3). Заранее спасибо, если что, не сочтите за нуба, поправьте=))