Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
АиП теория 1-22.rtf
Скачиваний:
3
Добавлен:
01.03.2025
Размер:
2 Мб
Скачать
☆

3:Writeln(‘Среда’); 4:writeln(‘Четверг’);

5:Writeln(‘Пятница’);

6:Writeln(‘Суббота’); 7:writeln(‘Воскресенье’);

else writeln(‘Номервведенневерно’);

end; end. 

Билет 6

Цикл с предусловием WHILE

Оператор while выполняет оператор или блок операторов, пока определенное выражение не примет значение false. Поскольку перед каждым выполнением цикла.

  • Оператор while состоит из заголовка и тела цикла. Операторы, находящиеся в теле цикла, обязательно заключаются в операторные скобки begin и end.

  • "Условие выполнения цикла" - это выражение логического типа (булевское выражение) выражение отношения или логическое выражение, принимающее одно из двух значений: true или false.

  • Если проверяемое условие ложно изначально, то операторы входящие в тело цикла не выполняются, проход по телу цикла не осуществляется и выполняются инструкции, находящиеся после операторной скобки end.

  • Служебные слова while и do означают "пока" и "делай".

Пример:

Program NOD; var   n1, n2 : integer ;   nod : integer ;   r : integer; begin   writeln ('Вычисление НОД') ;   writeln ('для двух целых чисел.') ;   write ('Введите в одной строке два числа') ;   writeln ('и нажмите <Enter>') ;   write ('->') ;   readln (n1, n2) ;   while (n1 mod n2)do     begin       r : = n1 mod n2 ;

      n1 : = n2 ;       n2 : = r ;     end ;   nod : = n2 ;   writeln ('НОДчисел', n1, 'и', n2, 'это', nod) ;   readln ; end.

Билет№7 (1 вопрос)

Цикл с параметром (FOR)

Оператор цикла for называют цикл с параметром. Цикл с параметром используется в том случае, когда требуется выполнить заданное количество шагов цикла. Нужно сказать, что for Pascal не слишком гибок (в отличие, например, от С), так как параметр цикла (или счетчик) изменяется на величину, равную единице. Таким образом, когда требуется выполнить дробный шаг необходимо использовать цикл типаwhile. Существует две разновидности цикла for: с увеличением и с уменьшением значений счетчика (или параметра).

 Оператор for состоит из заголовка и тела цикла. Составной оператор, находящийся в теле цикла, должен быть заключен в операторные скобки begin и end.

 В качестве идентификатора счетчика обычно используется "i".

Переменная счетчика должна быть порядкового типа. Например, целочисленного типа: byte, integer.

Начальное и конечное значения параметра цикла нельзя изменять во время выполнения цикла.

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

Блок-схема

(В данной блок схеме:M - начальное значение счетчика, N - конечное значение счетчика)

Билет №8 (1 вопрос)

Цикл с постусловием REPEAT

При выполнении while оператора компьютер вычисляет значение условия. Если условие истинно, то исполнительная часть оператора while будет выполняться до тех пор, пока это условие не примет значение False. Если значение условия есть False в самом начале, то исполнительная часть оператора while вообще не будет выполняться.

Иногда при решении задач возникает необходимость выполнить тело цикла хотя бы один раз, а потом исследовать условие повторять ли его еще раз. Эту задачу выполнит другой вид цикла Repeat.

repeat повторяй операторы операторы until <условие>; до тех пор, пока условие не будет верным

Есть небольшое отличие в организации цикла repeat по сравнению с while: для выполнения в цикле repeat нескольких операторов не следует помещать эти операторы в операторные скобки begin ... end. Зарезервированные слова repeat и until действуют как операторные скобки.

Конструкция repeat ... until работает аналогично циклу while. Различие заключается в том, что цикл while проверяет условие до выполнения действий, в то время как repeat проверяет условие после выполнения действий.это гарантирует хотя бы одно выполнение действий до завершения цикла.

Например,

a) repeat       read (Number);       Sum := Sum+Number;     until Number=-1

b) repeat       i := i+1;       writeln (Sqr(i))     until Number=-1

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]