3. Цикл do while (з післяумовою)

{

float y, x=0;

do

{y=2*x;

Memo1->Lines->Add("x="+FloatToStr(x) +"y="+FloatToStr(y));

x+=0.1;

}

while (x<=10); }