Операторы цикла

[Настька 123]

Напишите фрагмент программы с использованием оператора цикла, который выводит на экран числа от 1 до 3 с шагом 0,3 ( то есть: 1; 1,3; 1,6 и так далее до 3).

[ByAlex]

Сообщение от Настька 123

Напишите фрагмент программы с использованием оператора цикла, который выводит на экран числа от 1 до 3 с шагом 0,3 ( то есть: 1; 1,3; 1,6 и так далее до 3).

n:=1;
while n<>3 do
begin
   write(n,' ' );
   n:=n+0.3;
end;

[whatever]

ByAlex, так зациклится

1 1,3 1,6 1,9 2,2 2,5 2,8 3,1 ...

Нужно хотя бы так:

n:=1;
while n<3 do // либо while n<=3 do , что здесь не принципиально
begin
   write(n,' ' );
   n:=n+0.3;
end;

[Настька 123]

Спасибо, очень сильно помогли :-*

[Вадим Мошев]

Можно, кстати, использовать цикл for

for i:=0 to 9 do
                WriteLn(1 + 0.3*i);

[ByAlex]

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

ByAlex, так зациклится

Нужно хотя бы так:

n:=1;
while n<3 do // либо while n<=3 do , что здесь не принципиально
begin
   write(n,' ' );
   n:=n+0.3;
end;

Согласен, ошибочка.