Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

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

Читайте также:
  1. C Описываем оператор-функцию
  2. А.1 Обзор программных операторов
  3. Автоматизация этапов жизненного цикла БП
  4. Анализ структуры интегрированной информационной системы управления предприятием регионального оператора связи
  5. В обратных термодинамических циклах
  6. Ввод/вывод двумерных массивов осуществляется в двух вложенных циклах
  7. Взаимодействия в группе операторов

Оператор 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; просмотров: 65 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
Условный оператор множественного выбора Case| Типы несовместимости: соподчинение,противоположность, противоречие

mybiblioteka.su - 2015-2024 год. (0.005 сек.)