Оператор цикла с параметром For

Оператор For изменяет некоторую переменную (счетчик цикла) в заданных пределах (от минимального значения до максимального) с единичным шагом и при этом на каждый шаг может выполнять какую-либо команду или набор команд. В качестве счетчика цикла может использоваться любая целочисленная переменная.

For <Счетчик цикла>:= <Минимальное значение> То

<Максимальное значение> Do <Команда>;

В качестве <Команды> может использоваться любая конструкция языка, в том числе условные операторы или операторы цикла, а также составной оператор. В качестве <Минимального значения> и <Максимального значения> могут быть использованы целочисленные переменные или константы.

Использование переменной <Счетчика цикла> после оператора зацикливания не рекомендуется, так как значение этой переменной может быть не определено. Это связано с работой оптимизатора компиляции в Delphi, подставляющего вместо некоторых счетчиков цикла регистры процессора для ускорения выполнения программы.

При компиляции программы, в которой переменная <Счетчик цикла> используется после оператора цикла, выдается предупреждение " [Warning] FOR-LOOP variable <Имя переменной> may be undefined after loop» — " [Предупреждение] Значение переменной-счетчика цикла <Имя переменной> может быть не определено после завершения оператора цикла».

program Project2;

{$APPTYPE CONSOLE}

uses

SysUtils;

var

x1,x2:integer;

y1,y2,y3:double;

z1,z2,z3:char;

s:string[10];

l:boolean;

i:Integer; // Номер обрабатываемого символа

function Rus (mes:String):String;

begin

{ TODO -oUser -cConsole Main: Insert code here }

for i:=1 to Length(mes) do

case mes[i] of

'A'..'п': mes[i]:= Chr(Ord(mes[i]) - 64);

'р'..'я': mes[i]:= Chr (Ord(mes[i]) - 16);

end;

rus:=mes;

end;

begin

writeln(Rus('Ввод целых чисел'));

readln(x1,x2);

writeln('x1=',x1,' x2=',x2);

writeln('x1=',x1:3,' x2=',x2:3);

writeln(Rus('Ввод вещественных чисел y1,y2,y3'));

readln(y1,y2,y3);

writeln('y1=',y1,' y2=',y2,' y3=',y3);

writeln('y1=',y1:5:1,' y2=',y2:5:1,' y3=',y3:5:1);

writeln(Rus('Ввод символов'));

readln(z1,z2,z3);

writeln(z1,z2,z3);

writeln(Rus('Ввод строки'));

readln(s);

writeln(s);

L:=true;

writeln(L);

readln;

end.

Дата добавления: 2015-07-26