мета-данные страницы
  •  
Загрузка не удалась. Возможно, проблемы с правами доступа?

Различия

Показаны различия между двумя версиями страницы.

Ссылка на это сравнение

Предыдущая версия справа и слеваПредыдущая версия
Последняя версияСледующая версия справа и слева
pascal:iterations [20/10/2010 14:22] ocapascal:iterations [20/10/2010 14:24] oca
Строка 79: Строка 79:
 <code pascal| Цикл While-Do> <code pascal| Цикл While-Do>
 writeln('Печатаем числа от 1 до 10'); writeln('Печатаем числа от 1 до 10');
-While (i <= 10) Do +While (i >= 10) Do 
   { Потеряны Begin и End? }   { Потеряны Begin и End? }
   writeln(i);    writeln(i);
  { Судя по коду, значение i - неопределено }  { Судя по коду, значение i - неопределено }
-  i:=i+1;  +  i:=i-1;  
-  { Эта команда никогда не выполнится }+  { Эта команда или никогда не выполнится }
 </code>   </code>  
  
Строка 91: Строка 91:
 <code pascal| Цикл While-Do> <code pascal| Цикл While-Do>
 writeln('Печатаем числа от 1 до 10'); writeln('Печатаем числа от 1 до 10');
-i:=1; +i:=100;
  { Инициализация }  { Инициализация }
-While (i <= 10) Do +While (i >= 10) Do 
 Begin Begin
   writeln(i);    writeln(i);
-  i:=i+1; +  i:=i-1;
   { Шаг цикла }   { Шаг цикла }
 End;   End;