​Цель: изучить структуры алгоритмов

​Задачи:

1) ​Записать синтаксис на языке Pascal основных алгоритмических структур

​2) Составить по одной программе на языке Pascal с использованием записанных алгоритмических структур

​

​Ветвления на языке Pascal

​{Неполная форма ветвления}

​If <условие> then <действие>;

​

​{Полная форма ветвления}

​If <условие> then <действие 1> else <действие 2>;

​Циклы

​{Цикл с предусловием (цикл "Пока")}

​while <условие> do <тело цикла>;

​

​{Цикл с параметром (цикл "Для")}

​for <имя параметра>:=<значение 1> to/downto <значение 2> do <тело цикла>;

​

​{Цикл с постусловием (цикл "До")}

​repeat

​ <тело цикла>

​until <условие>;

​Задание 1. Неполное ветвление

​По введённому числу от 1 до 7 вывести название дня недели

​Задание 2. Полное ветвление

​Составьте программу, которая:

1) спрашивает и запоминает имя пользователя

2) поздоровается с пользователем по имени

3) спросит пользователя о его температуре тела и если:

​ а) температура ниже 37,0, то программа поздравит пользователя с крепким здоровьем

​ б) температура равна или выше 37,0, то программа посоветует пользователю обратиться за медицинской помощью в поликлинику.

​Задание 3. Цикл с предусловием (цикл "Пока")

​Составьте программу, которая посчитает сумму N чисел

​Задание 4. Цикл с постусловием (цикл "До")

​Составьте программу, которая из N введённых чисел определит самое большое число

​Задание 5. Цикл с параметром (цикл "Для")

​Составьте программу, которая выведен на экран значения N степеней двойки