позиционная систе́ма счисле́ния (позиционная нумерация) — система счисления, в которой значение каждого числового знака (цифры) в записи числа зависит от его позиции (разряда).изобретение позиционной нумерации, основанной на поместном значении цифр, приписывается шумерам и вавилонянам. в более поздний период такая нумерация была развита индусами и имела неоценимые последствия в цивилизации. к числу таких систем относится десятичная система счисления, возникновение которой связано со счётом на пальцах. в средневековой европе она появилась через итальянских купцов, в свою очередь заимствовавших её у жителей средней азии.
"Цикл со счётчиком"
В начале присваивает заданной переменной (переменная-счётчик) начальное число. Переменной-счётчиком может быть любая переменная типа integer, затем в зависимости от направления прибавляет (to) или убавляет (downto) счётчик на единицу. Цикл начинает повторение пока счётчик будет меньше или равен второму числу. Когда счётчик стал больше второго числа, цикл выполняет строки команд до конца, но уже не начинает повторять из снова.
В строках с командами цикла не должно быть команды, которая изменяет значение счётчика, иначе будет ошибка. Счётчик нельзя изменять внутри цикла пока он идёт.
Записьfor ПеременнаяСчётчик := Число Направление Второечисло do
begin
Строки с командами, которые должен повторять цикл;
end;
ПримерПрограмма, которая выводит числа от 5 до 10 и в конце пишет "Конец"
program raf105;
var i: integer;
begin
for i:=5 to 10 do
begin
writeln(i);
end;
writeln('Конец');
end.
Цикл While"Цикл с условием старта"
Начинает повторение, только если соблюдено заданное условие
Записьwhile Условие do
begin
Строки с командами, которые должен повторять цикл;
end;
ПримерПрограмма, которая просит ввести 1, если введено не 1, то просит ввести снова. Когда введено 1, пишет "Вы ввели 1. Конец"
program raf105;
var a: integer;
begin
write('Введите 1: ');
readln(a);
while a <> 1 do
begin
write('Вы ввели не 1. Введите число снова: ');
readln(a);
end;
writeln('Вы ввели 1. Конец');
end.
Цикл Repeat"Цикл с условием завершения"
Похож на цикл While, только заканчивает повторение, если соблюдено условие. Обычно используется если цикл нужно повторить хотя бы 1 раз.
Записьrepeat
Строки с командами, которые должен повторять цикл;
until Условие;
ПримерПрограмма, которая запрашивает пароль, если введено 123, то выводит "Конец" если введено не 123, то выводит сообщение "Введите пароль снова"
program raf105;
var a: integer;
begin
a:= 0;
repeat
if a = 0
then write('Введите пароль: ')
else write('Введите пароль снова: ');
readln(a);
until a = 123;
writeln('Конец');
end.
