Блок схема repeat

Обновлено: 04.07.2024

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.

Программа возведения в степень числа в Паскале

Для начала уточним, что есть формула вычисления степени на Паскале. Но мы не будем ее использовать, а разберем алгоритм решения задачи возведения в степень.

Для того чтобы возвести число в степень, его надо умножить само на себя ровно столько раз, чему равен показатель степени.

Таким образом, возведение числа n в степень d можно выразить так:
n d = n₁ * n₂ * n₃ * … * n_d , где нижние индексы просто указывают очередное по счету число n .

Еще необходимо учесть следующее:

число в нулевой степени равняется 1
если показатель степени отрицателен, т.е. d , то задача решается по формуле:
n d = 1 / (n₁ * n₂ * n₃ * … * n_d)

Т.е., решая программу на Паскале, учитываем:

в программе на языке Паскаль количество итераций (повторений) цикла while должно быть равно показателю степени числа по модулю;
если показатель степени — отрицательное число, то нужно впоследствии единицу разделить на результат.

Задача 6. Вычислить в Паскале степень числа, используя цикл while.

Вложенные циклы

Пример: Дано целое число 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.

Проблема 1: Как избежать ввода отрицательного числа или нуля?
Решение 1: Если вводится неверное число, то нужно вернуться назад к вводу данных (цикл).

Проблема 2: Неизвестно, сколько шагов надо сделать.
Решение 2: Надо остановиться, когда n > 0 , т.е. надо делать «до тех пор пока n не станет больше 0 ».

Цикл Repeat в Паскале используется для организации повторений (итераций) с заранее неизвестным их числом.
Цикл повторяется до тех пор, пока не станет истинным некоторое условие.

repeat оператор1; оператор2; . . .; операторN until условие

Блок-схема решения примера:

Блок-схема решения примера

Решение на Паскале:

Операторы образуют тело цикла и будут выполняться до тех пор, пока значение "условие" не станет равно true , т.е. не станет истинным.
Условием может быть переменная или логическое выражение.
Проверка условия осуществляется уже после первого прохождения операторов тела структуры, т.е. после первой итерации, т.о. цикл с постусловием в Паскаль обязательно выполнится хотя бы один раз, независимо от истинности условия.

Еще одно использование цикла Repeat рассмотрим на примере с решением.

var i,n:integer; begin write ('количество раз'); readln(n); i:=1; repeat write(0); i:=i+1 until i>n end.

begin var n:=readInteger('количество знаков'); var i:=1; repeat write(0); i:=i+1 until i>n end.

Для того, чтобы реализовать цикл с конкретным числом итераций, не используя счетчик цикла, возможен упрощенный вариант с использованием цикла Loop :

// Выводить 5 раз слово "Привет!" loop 5 do begin println('Привет!'); end; // .

Задача 1. Написать программу решения задачи о печати чисел 3 5 7 9 11 13. Решите задачу дважды в одном файле: используя цикл Repeat и цикл loop (если вы его рассмотрели).

[Название файла: L3task1.pas ]

Узнать о работе оператора с постусловием в Паскале можно также из видеоурока:

Оператор break в цикле while

Например, в случае, когда последовательность чисел должна заканчиваться нулем, то примерный код обработки последовательности может быть таким:

begin // . while True do // бесконечный цикл begin // ввод очередного элемента последовательности var b := ReadInteger; // или ReadReal if b = 0 then break; // выход из цикла при вводе элемента, равного нулю // обработка очередного элемента последовательности end; // вывод результатов end.

Задание: Дана последовательность целых чисел, признак завершения которой — число 0 (оно не считается элементом последовательности). Вывести номера чётных чисел последовательности (числа нумеровать с 1). Если последовательность не содержит чётных элементов, выводить ничего не нужно.

repeat // заголовок цикла <операторы> // тело цикла until <условие>

Пример: Вычислить сумму четных чисел от 2 до 20.

sum := 0; x := 2; repeat sum += x; x += 2; until x = 22;

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.

Задание: Даны два целых числа A и B. Выведите квадраты всех целых чисел, расположенных между A и B, в порядке возрастания чисел и включая сами эти числа. Задание: Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1.2, 1.4, …, 2 кг конфет.

Пример: Используя один цикл, вычислить значение суммы, заданной следующей формулой (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.

Задание: Дано целое число N (N ≥ 0) и последовательность из N целых чисел. Найти количество отрицательных чисел в этой последовательности.

Строковый тип данных в Паскаль

Для решения следующей задачи нам пригодится работа со строковым типом данных.
Рассмотрим как объявляются строки в Паскале:

Объявление строковой переменной:

Присваивание значения строковой переменной:

str:='вот такая вот строка';

Пример использования строковых переменных в Паскале

var str1,str2: string; begin str1:='Привет, '; writeln('Ваше имя?'); readln(str2); writeln(str1,str2) end.

begin var str1:='Привет,'; var str2: string; writeln('Ваше имя?'); readln(str2); print(str1,str2) end.

Теперь снова возвращаемся к нашему циклу repeat .

Вчера мы узнали о понятии циклы в паскале в общих чертах, сегодня узнаем о каждом из циклов в паскале поподробней и увидим как они задаются. Будем разбирать цикл while с предусловием, цикл for с параметром и цикл repeat - until с постусловием.

1. Цикл с параметром в Паскале - FOR

Цикл FOR задаёт определённое условие по которому программа будет работать до его выполнения, допустим нужно нам 5 (или n) раз зациклить программу, то это легко сделать с помощью данного цикла. У цикла FOR есть характерная черта - счетчик который обычно обозначается буквой i или j.

Внешний вид цикла с параметром в паскале:

for i:= 1 to n do // присваиваем i сначала одному, потом двум, трем, . n

После 1-го прохода переменной i присваиваем 1, после второго присваиваем 2 и так до тех пор, пока не дойдем до n. to - это до .. в порядке возрастания, также есть downto - до .. в порядке убывания.

Блок - схема цикла с параметром:

2. Цикл с предусловием в Паскале - WHILE

Оператор цикла с предусловием выполняет действия заранее неизвестное число раз. Выход из цикла осуществляется, если некоторое логическое выражение или его результат окажется ложным. Так как верность логического выражения проверяется в начале, тело цикла может не выполнится ни одного разу.

Структура цикла с предусловием:

- логическое выражение, истинность которого проверяется вначале выполнения циклического оператора;

- любые выполняемые операторы языка.

Порядок выполнения цикла:

Пока условие истинно выполняется тело цикла. Как только условие становится ложно выполнение цикла прекращается.

Блок - схема цикла с предусловием:

Примечание: в прямоугольных блоках показано любое действие, которое выполняется в цикле или после него (шаг цикла), в овалах - начало или конец всей программы или её части. Главную роль в данной блок - схеме играет её центральная часть.

Задача: вычислить сумму ряда 1+1.5+2+2.5+3+3.5+ .. + 30

3. Цикл с постусловием - Repeat - until.

Этот оператор аналогичен оператору цикла с предусловием, но отличается от него тем, что проверка условия производится после выполнения тела (действий) цикла. Это обеспечивает его выполнение хотя бы один раз в отличие от ранее разобранных циклов.

Обратите внимание на то, что данный оператор цикла предполагает наличие нескольких операторов в теле цикла, то есть можно выполнять несколько действий, поэтому служебные слова Begin и End не нужны.

Последовательность операторов, входящих в тело цикла выполняется один раз, после чего проверяется соблюдение условия, записанного следом за служебным словом Until. Если условие не соблюдается, цикл завершается. В противном случае - тело цикла повторяется ещё раз, после чего снова проверяется соблюдение условия.

Блок - схема цикла с постусловием:

Формат записи, структура цикла:

Выводы:

1.Цикл с параметром используется переменная, называемая параметром цикла или счётчиком. Перед выполнением цикла параметру (счётчику) устанавливается начальное значение. После выполнения шага цикла значение параметра увеличивается на единицу. Цикл продолжается до тех пор пока параметр не достигнет своего конечного значения, которое указывается после to (downto).

2. Цикл с предусловием выполняется до тех пор, пока условие выполнения не станет ложным, и продолжается, если условие истинно.

3. Цикл с постусловием выполняется до тех пор, пока условие не станет истинно, если условие ложно, цикл продолжается.

Алгоритм: Отделяем и удаляем последовательно последнюю цифру, наращивая счетчик.

n	счетчик
246	0
24	1
2	2
0	3

В чем сложность?: Заранее не определено и неизвестно, сколько цифр нужно убрать, т.е. сколько шагов необходимо сделать.
Как выполнить: Надо перестать отделять цифры, когда n = 0, т.е. надо выполнять пока n > 0

Блок-схема решения:

Решение примера на Паскале:

Цикл while в Паскале применяется для создания повторений с неизвестным заранее их числом. Повторения (итерации) будут осуществляться, пока истинно некоторое условие.

Блок-схема, соответствующая циклу while в Паскале:

Рассмотрим использование цикла while в Паскале на решенном примере:

var i,n:integer; begin write ('количество знаков'); readln(n); i:=1; while i<=n do begin write(0); i:=i+1 end; end.

begin var n:=readInteger('количество знаков'); var i:=1; while i<=n do begin write(0); i:=i+1 end; end.

Задача 3. Ввести целое число и найти сумму его цифр.
Пример:

[Название файла: L3task3.pas ]

Задача 4. Вычислять с использованием цикла while квадратные корни из чисел 900, 893, 886, 879 и т.д. до тех пор, пока это можно делать.

[Название файла: L3task4.pas ]

Детальный разбор работы цикла While в Паскале рассмотрен в видеоуроке:

Пример: найти сумму всех элементов последовательности:

которые по модулю больше 0,001:

Алгоритм:

Блок-схема решения:

Решение на Паскале

Задача 5: Вычислить сумму элементов следующей последовательности с точностью 0,001:

Результат: S = 1.157

[Название файла: L3task5.pas ]

Вложенные циклы в Паскале

Существует возможность использования вложенных циклов в Паскале, когда в теле одного цикла вместо оператора стоит другой цикл.

Важно: Главным обстоятельством во вложенных циклах является использование разных переменных для счетчиков внутреннего и внешнего циклов Пример: Вывести таблицу умножения, используя вложенные циклы в паскале.

const n = 9; var i, j :integer; begin for i:=1 to n do begin for j:=1 to n do write(i*j:4); writeln; end; end.

const n = 9; begin for var i:=1 to n do begin for var j:=1 to n do write(i*j:4); writeln; end; end.

Произведение в Паскале

Точно также, как существует сумматор для сложения, для умножения в паскале тоже существует специальная конструкция:

Рассмотрим пример вычисления факториала числа в Паскале с использованием цикла while .

Пример цикла While в Паскале для вычисления факториала 10! (10!=1 * 2 * 3 * 4 * 5 * 6 * 7 * 8 * 9 * 10)

Здесь необходимо обратить внимание на то, что присваивание n := 1 стоит до цикла, если этого не сделать, то условие будет работать некорректно, так как переменная n будет пуста.

Упрощенный цикл LOOP

Для того, чтобы реализовать цикл с конкретным числом итераций, не используя счетчик цикла, возможен упрощенный вариант:

// Выводить 5 раз слово "Привет!" loop 5 do begin println('Привет!'); end; // .

Обработка цифр числа

О том, как выделять из числа отдельные его разряды Вы ознакомились в предыдущем уроке.
Теперь рассмотрим более сложный вариант с обработкой цифр числа.

Пример: Дано натуральное число N — количество цифр и последовательность из N цифр. Сформировать положительное число, состоящее из этих цифр, начиная со старшего разряда.
Пример:

Замечание: В решении должен использоваться один цикл, запрещено использовать математические функции наподобие 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.

Читайте также: