for5 (delphi)

[ilnar]

помогите пожалуйста ... Дано вещественное число цена 1 кг. конфетю Вывести стоимость 0.1 0.2...., 2кг. конфет

[werser]

pr:=0.1;
for i:=1 to 20 do begin
cen:=1;
c:=cen*pr;
pr:=pr+0.1;
Write(' ',c);
end;

[IT-man]

for i:=1 to 20 do
writeln(i/10,'---',i/10*cost);

[ilnar]

отправь пожалуйста который ты зделаль пожалуйста?

[werser]

а тут же делфи тогда нада вывод сделать в листбокс

[ilnar]

а как сделать это?

[ilnar]

отправь всё равно пожалуйста

[werser]

ListBox1.Items.Add(floattostr(c));

[werser]

Итог будит такой

var pr,cen,c:real;
pr:=0.1;
for i:=1 to 20 do begin
cen:=1;
c:=cen*pr;
pr:=pr+0.1;
ListBox1.Items.Add(floattostr(c));
end;

[ilnar]

готовые отправте пожалуйста!