Pascal: Занятие №3. Часть 1: Цикл с постусловием в Паскаль

Цикл с постусловием в Паскаль (repeat)

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

repeat оператор1; оператор2; . . .; операторN until условие {до тех пор, пока условие не станет истинным}

repeat оператор1; оператор2; . . .; операторN until условие {до тех пор, пока условие не станет истинным}

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

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

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

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

1
2
3
4
5
6
7
8
9
10

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

1
2
3
4
5
6
7
8

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

В решенной задаче оператор 8-й строки — это счетчик (i:=i+1), который просчитывает количество раз и одновременно является условием для выхода из цикла.

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

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

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

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

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

var str:string;

var str:string;

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

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

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

1
2
3
4
5
6
7

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

1
2
3
4
5
6
7

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

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