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

Различия

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

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

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