Delphi 7(найти произведение).

[Надежда_ИСУ]

Здравствуйте!!! Посмотрите пожалуйста, что тут не так???


Даны десять вещественных чисел.Найти их произведение.

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
a,p:real;
begin
i:=0;
p:=1;
While (i<10) do
begin
p:=p*a;
inc(i);
end;
Label1.Caption:=(p);
end;
end.

Выдаёт такую ошибку:

[Error] Unit1.pas(41): Incompatible types: 'String' and 'Real'

[Stilet]

Label1.Caption:=FloatToStr(p);

[Надежда_ИСУ]

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

Label1.Caption:=FloatToStr(p);

А как сделать,чтобы числа можно было с клавиатуры вводить???

[Базиля]

Как вариант
Функция InputBox

[Надежда_ИСУ]

[QUOTE=Базиля;1179185]Как вариант
Что-то не понимаю я принцип этой функции непосредственно в моей задаче...

[Базиля]

Что именно не понятно?
P.S. Там же даже пример приведен.

[kventin_zhuk]

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  a,p:real;
  str: string;
begin
  i:=0;
  p:=1;
  while (i<10) do
  begin
    str := InputBox('Введите число:', 'Введите число ' + IntToStr(i),'1');
    a := StrToFloat(str);
    p := p*a;
    inc(i);
  end;
  ShowMessage('Результат = ' + FloatToStr(p));
end;

[Базиля]

 a := StrToInt(str);

Тогда уж

 a := StrToFloat(str);

или

a :=StrToFloat(InputBox('Введите число:', 'Введите число ' + IntToStr(i+1),''));

[Надежда_ИСУ]

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

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  a,p:real;
  str: string;
begin
  i:=0;
  p:=1;
  while (i<10) do
  begin
    str := InputBox('Введите число:', 'Введите число ' + IntToStr(i),'1');
    a := StrToInt(str);
    p := p*a;
    inc(i);
  end;
  ShowMessage('Результат = ' + FloatToStr(p));
end;

Не, ну Вы прям МОЗГ!!!Спасибо!!!

[kventin_zhuk]

Базиля, Верно подмечено