[YorikBir]

Здравствуйте все, нужна помощь. Есть форма, на форме 3 Edita, Button и memo. В едиты вводятся данные, и при нажатии на кнопку в мемо выскакивало 2 списка. Мне не понятен сам смысл вывода в компонент мемо, я только начинаю изучать Делфи так-что не ругайте.

Вот код

Код:

var V,P0,n:integer;
 V0,P:real;
begin
V:=StrtoInt(Edit1.Text);
P0:=StrtoInt(Edit2.Text);
V0:=StrtoInt(Edit3.Text);
n:=10 ;
while(n<50) do
begin
n:=n+10;
P:=P0*(exp(n*ln(V/(V+V0))));
Memo1.Lines.Add(IntToStr(n)+' : '+IntToStr(P));
end;
repeat
n:=n+50;
P:=P0*(exp(n*ln(V/(V+V0))));
Memo1.Lines.Add(IntToStr(n)+' : '+IntToStr(P));
Until(n=250);
end;

Админ: Пользуемся тегами для оформления кода!

Пробовал из интернета вставить строку, но не работает, помогите поправить код.

[AND_REY]

Переменная P дробная надо использовать FloatToStr();

Код:

var V,P0,n:integer;
 V0,P:real;
 begin
 V:=StrtoInt(Edit1.Text);
 P0:=StrtoInt(Edit2.Text);
 V0:=StrtoInt(Edit3.Text);
 n:=10 ;
 while(n<50) do
 begin
 n:=n+10;
 P:=P0*(exp(n*ln(V/(V+V0))));
 Memo1.Lines.Add(IntToStr(n)+' : '+FloatToStr(P));
 end;
 repeat
 n:=n+50;
 P:=P0*(exp(n*ln(V/(V+V0))));
 Memo1.Lines.Add(IntToStr(n)+' : '+FloatToStr(P));
 Until(n=250);
 end;

[YorikBir]

Спасибо огромное.