Занятие 1_2. Циклы в Pascal abc.net
Begin var (a,b):=readInteger2; assert(a>=b); var k:=0; var s:=0; while s<=a do begin inc(k); s+=b end; writeln(k-1) End.
Оператор break в цикле while
Например, в случае, когда последовательность чисел должна заканчиваться нулем, то примерный код обработки последовательности может быть таким:
begin // . while True do // бесконечный цикл begin // ввод очередного элемента последовательности var b := ReadInteger; // или ReadReal if b = 0 then break; // выход из цикла при вводе элемента, равного нулю // обработка очередного элемента последовательности end; // вывод результатов end.
Цикл с постусловием (repeat) в Pascal abc.net
repeat // заголовок цикла <операторы> // тело цикла until <условие>
sum := 0; x := 2; repeat sum += x; x += 2; until x = 22;
Оператор цикла со счетчиком (for) в Pascal abc.net
for [var] i: integer := 1 to 5 do <оператор>
for var i := 1 to 5 do <оператор>
begin var (a, b) := readinteger2(‘Введите два целых числа. Первое должно быть меньше второго:’); assert(a < b); // проверка действительно ли a < b for var i := (a + 1) to (b — 1) do println(i); println(b — a — 1); // количество чисел end.
Пример: Используя один цикл, вычислить значение суммы, заданной следующей формулой (N > 0):
Begin var n:=readInteger(‘N = ‘); assert(n>0); var x:=readReal(‘X = ‘); var sum:=0.0; var f:=-1.0; var num:=1.0; for var i:=1 to n do begin num*=x; sum+=(x+f*num)/i; f*=-1.0; end; writeln(sum) End.
Задание: Используя один цикл, вычислить значение суммы, заданной следующей формулой (N > 0): 
Не забудьте, что использование функции возведения в степень запрещено.
Например, если необходимо как-то обработать последовательность чисел с заданным количеством элементов, то примерный код может быть таким:
begin // предварительные действия N := ReadInteger; // или Read(N); for var i := 1 to N do begin // ввод очередного элемента var b := ReadInteger; //или ReadReal, или Read(b); // обработка очередного элемента end; // вывод результатов обработки end.
Упрощенный цикл LOOP
Для того, чтобы реализовать цикл с конкретным числом итераций, не используя счетчик цикла, возможен упрощенный вариант:
// Выводить 5 раз слово "Привет!" loop 5 do begin println(‘Привет!’); end; // .
Обработка цифр числа
О том, как выделять из числа отдельные его разряды Вы ознакомились в предыдущем уроке.
Теперь рассмотрим более сложный вариант с обработкой цифр числа.
Замечание: В решении должен использоваться один цикл, запрещено использовать математические функции наподобие power или ln .
begin var n := readinteger(‘Введите количество цифр N:’); var num := 0; assert(n > 0); println(‘Введите цифры:’); loop n do begin var a := readinteger; num += a; num := num * 10; end; println(num div 10); end.
Задание: Дано целое число. Найти количество его цифр и их сумму.
Замечание: В решении должен использоваться только один цикл, запрещено использовать математические функции наподобие power или ln .
begin println(‘Введите целое число:’); var n := readinteger; var (newnum, sign) := (0, sign(n)); n := abs(n); while n > 0 do begin newnum += (n mod 10); newnum *= 10; n := n div 10; end; println(sign * (newnum div 10)); end.
Вложенные циклы
Пример: Дано целое число K > 0, а также K наборов ненулевых целых чисел. Признак завершения каждого набора — число 0. Для каждого набора вывести количество его элементов. Вывести также общее количество элементов во всех наборах.
begin var k:=ReadInteger(‘Введите число’); assert(k>0); var st:=»; assert(k>0); var c:=0; for var i:=1 to k do begin var count:=0; var x:=ReadInteger; while x<>0 do begin count+=1; read(x); end; st+=count.ToString+’ ‘; c+=count; end; Println(‘Кол-во элементов для каждого =’,st); println(‘Всего элементов’,c); end.
Задание: Даны целые числа K > 0, N ≥ 0, а также K наборов целых чисел по N элементов в каждом наборе. Найти количество наборов, содержащих число 2. Если таких наборов нет, то вывести 0.