Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиПоискОблакоComboВсе проекты

Ошибка в цикле Repeat Until Прошу помочь Выдается ошибка EConvert with message 0.5 is not a valid floating point value.

Мораг Инкогнито Ученик (237), закрыт 1 месяц назад
Здраствуйте необходимо написать цикл .Цикл написан
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,Math, Buttons;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Memo1: TMemo;
Button1: TButton;
BitBtn1: TBitBtn;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
x,s,a,p,n:real;
begin
Memo1.Lines.Clear;
x:=0.5;
n:=0;
a:=1;
s:=0;
p:=0.0001;
x:=StrToFloat(Edit1.Text);
p:=StrToFloat(Edit2.Text);
Repeat
n:=n+1;
s:=s+a;
a:=(a*power(x,2))/(2*n*(2*n+1));
Memo1.Lines.Add('Итерация'+FloatToStr(n)+' a='+ FormatFloat('0.00000',a)+' y='+FormatFloat('0.0000',s));
Until abs(a)<p;
end;
end.
Лучший ответ
Qobil Baratov Профи (572) 1 месяц назад
ошибка из-за региональные стандарты, вместо точек попробуй запетую.
Остальные ответы
Похожие вопросы
Также спрашивают