Проблема с программкой.

[YorikBir]

Вот попробовал написать программку но не могу вывести результат (x,C) в Label пишет ошибку "[Error] Unit1.pas(55): There is no overloaded version of 'IntToStr' that can be called with these arguments" Помогите, x и C нужно вывести в 2 столбика.



unit Unit1;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
var
C0,t,C,D: real; x:real;

procedure TForm1.Button1Click(Sender: TObject);
begin
D:=6;
t:=1;
C0:=5.73;
x:=StrtoFloat(edit1.text);
while x<5 do
begin
C:=C0*(exp(-(x*x/(4*D*t))));
x:=x+1;
Label1.Caption:=IntToStr(x);
Label2.Caption:=IntToStr(C);
end;
Repeat
C:=C0*(exp((-x*x/(4*D*t))));
x:=x+5;
until x>25;
end;

end.

[tsar_]

"[Error] Unit1.pas(55): There is no overloaded version of 'IntToStr' that can be called with these arguments"

"Не существует переггруженного экземпляра 'IntToStr', который можно вызвать с данными аргументами".
Страшная формулировка описанной ошибки скрывает довольно простой просчет в коде: замените

Label1.Caption:=IntToStr(x);
Label2.Caption:=IntToStr(C);

на

Label1.Caption:=FloatToStr(x);
Label2.Caption:=FloatToStr(C);

Будьте внимательнее!

З.Ы. И код по правилам оформляйте - в тегах # (кнопочка [#] на панели в редакторе сообщения).

[YorikBir]

Спасибо помогло, а можно в label показать цикл весь. Ну например так
1
2
3
4
5

[tsar_]

Если речь идет о цикле While...Do, то замените

Label1.Caption:=FloatToStr(x);
Label2.Caption:=FloatToStr(C);

на

label1.Caption:=label1.Caption+floattostr(х)+#13;
label2.Caption:=label2.Caption+floattostr(С)+#13;

[YorikBir]

Не хочет работать пишет "Illegal character in input file: 'х' ($F5)"

По задаче надо чтоб ответ был в 2 столбца типа:
x=1 -- C=5.1037
2 -- ......
...
25

Может как то можно, соединить 2 цикла в один label?

[YorikBir]

Ну ктонить помогите???