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

Различия

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

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

Предыдущая версия справа и слеваПредыдущая версия
pascal:iterations [20/10/2010 14:24] – 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:=100; +i:=9;
  { Инициализация }  { Инициализация }
-While (i >= 10) Do +While (i >= 0) Do 
 Begin Begin
-  writeln(i); +  writeln(10-i);
   i:=i-1;    i:=i-1;
   { Шаг цикла }   { Шаг цикла }