Задачи.

Написать программу, которая вычисляет сумму чисел от 1 до N. Значение N (должно быть <100) вводится с клавиатуры
Написать программу, которая переводит значение расстояния из дюймов в сантиметры (1 дюйм=2,5 см) для значений длин от 1 до 20 дюймов.
Вывести на экран все буквы от ‘a’ до ‘z’
Для значений от 1 до 5 вычислить a=2i, b=2i+1, вывести на экран полученные значения

2. Цикл с предварительным условием (с предусловием, цикл «Пока»)

Цикл с предусловием используется тогда, когда заранее неизвестно число повторений цикла. В TP используется оператор while.

Формат записи: while <условие> do <тело цикла>

пока <условие> выполнить <тело цикла>

While, do – служебные слова

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

Если <тело цикла> состоит из нескольких операторов, то их следует заключить в операторные скобки.

Задача. Вычислить 10! с помощью цикла с предварительным условием. Program factorial; var f,n: integer; begin f:=1; {начинаем с 1} n:=1; {начальное значение для цикла} while n<=10 do begin f:=f*n; {вычисление факториала} n:=n+1; end; writeln (’10!=’,f); end.

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

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

Цикл с постусловием применяется при необходимости выполнить какое-либо вычисление несколько раз до выполнения некоторого условия.

Особенность цикла: цикл выполняется хотя бы один раз, т.к. первая проверка условия выхода из цикла происходит после того, как тело цикла выполнено.

В языке TP для данного цикла существует оператор:

repeat, until – служебные слова

Формат записи:

(повторить)

Repeat

<тело цикла>

(до тех пор)

until <логическое выражение>

Принцип действия:операторы тела цикла выполняются (хотя бы один раз) до тех пор, пока значение логического выражения ложно. Сначала выполняется тело цикла, затем проверяется условие. Прекращается цикла, как только значение логического выражения становится истинным. Так как repeat и untilиграют роль операторных скобок, то использование служебных слов beginи endне обязательно.

Задача.Вычислить значение функции y=x²при x=8,6,4,2 Начальное значение x=8. (Внутри цикла выполняется вычисление функции при текущем значении x; выводятся на экран значения x и y; вычисляется новое значение x путем вычитания числа 2 из предыдущего значения x. Тело цикла повторяется до тех пор, пока условие x=0 не станет истинным) Program f; var x,y: integer; begin x:=8; {начальное значение =8} repeat y:=sqr(x); x:=x-2; writeln(x,’ ‘,y); until x=0; end.