- •Часть 2
- •Основы алгоритмизации
- •1.1. Этапы решения задач с помощью компьютера
- •1.2.Алгоритм: определение и свойства
- •Свойства алгоритма
- •1.3. Запись алгоритма в виде блок-схем
- •1.4. Основные типы вычислительных алгоритмов
- •2. Основы программирования на Паскале
- •Основные элементы языка
- •Стандартные идентификаторы
- •Зарезервированные слова языка Паскаль
- •Общие правила написания идентификаторов
- •Общая структура программы на Паскале
- •Константы и переменные
- •Комментарии
- •2.2. Типы данных
- •Целочисленные типы
- •Целочисленные типы данных
- •Вещественные типы
- •Вещественные типы данных
- •Булевский тип boolean
- •Массивы
- •2.3. Программирование линейных вычислительных процессов Арифметические выражения
- •Sqr (cos (1.5*pi*z)) – sqrt (exp (frac(y))).
- •Оператор присваивания
- •Организация ввода и вывода
- •2.4. Организация программ разветвляющейся структуры Логические выражения
- •Оператор условия if
- •If p then a1 else a2;
- •Оператор выбора case
- •Оператор перехода goto
- •2.5. Организация программ циклической структуры
- •Оператор цикла с параметром for
- •Оператор цикла с предусловием while
- •Оператор цикла с постусловием repeat
- •Вложенные циклы
- •2.6. Подпрограммы
- •Функции
- •Процедуры
- •Область действия параметров
- •Блок а – основная программа
- •4. Примеры решения задач Вариант 10
- •Программа
- •Пример расчета
- •Пример расчета
- •Разность наибольшего и наименьшего элементов
- •Задача 5 Программа
- •Пример расчета
- •Список литературы
- •Содержание
- •153460, Г. Иваново, пр. Ф. Энгельса, 7.
Оператор условия if
Оператор if имеет вид :
If p then a1 else a2;
При выполнении этого оператора сначала вычисляется логическое выражение p (условие), в случае истинности которого выполняется оператор а1, а в случае ложности – оператор а2. Ключевые слова if, then и else имеют смысл если, то и иначе, соответственно.
Возможен сокращенный вариант оператора if:
if p then a1;
Здесь, если условие p истинно, выполняется оператор а1. Если условие p ложно, управление передается следующему (за оператором if) оператору в программе. Можно сказать, что первый вариант оператора if осуществляет выбор между двумя действиями, а второй – между действием и отсутствием действия.
Пример использования оператора if:
program sqroot; {Вычисление действительных корней квадратного уравнения}
var
a, b, c: real; {коэффициенты уравнения}
x1, x2: real; {корни уравнения}
d: real; {дискриминант}
begin
writeln (’Введите коэффициенты уравнения:’);
write (’a =’); readln (a);
write (’b =’); readln (b);
write (’c =’); readln (c);
d: = b * b – 4 * a * c; {вычисление дискриминанта}
if d > = 0
then
begin
x1: = (-b + sqrt(d)) / (2 * a);
x2: = (-b – sqrt(d)) / (2 * a);
writeln (’Корни уравнения:’);
writeln (’ x1= ’, x1 : 9 : 3, ’ x2= ’, x2 : 9 : 3);
end
else
writeln (’Действительных корней нет.’);
end.
Оператор выбора case
Оператор case используется для выбора одного из нескольких направлений дальнейшего хода программы. Этот оператор имеет вид:
case p of
a: s1;
b: s2;
. .
n: sn;
else sn+1;
end;
При выполнении оператора case сначала вычисляется выражение p, называемое селектором выбора. Выражение p должно принадлежать типу данных, имеющему конечное число значений (например: integer). Затем, в зависимости от полученного значения (если оно равно одной из констант a, b, …, n, которые называются константами выбора), выполняется один из операторов s1, s2, …, sn, помеченный соответствующей константой. Каждый из этих операторов может быть составным. Затем управление передается следующему (после case) оператору в программе.
Если значение выражения p не совпадает ни с одной из констант выбора, выполняется оператор sn+1, содержащийся после ключевого слова else, причем ветвь else в операторе case необязательна.
Зарезервированные слова case, of, else и end имеют смысл вариант, из, иначе и конец.
Кроме одиночных констант в вариантах оператора case могут использоваться диапазоны значений и списки (представленные через запятую).
Пример использования оператора case:
program number; { Определение времени года по номеру месяца}
var
month: integer; {номер месяца}
begin
write (’Введите номер месяца:’);
readln (month);
writeln (‘Время года:’);
case month of
1, 2, 12: writeln (’зима’);
3..5: writeln (’весна’);
6..8: writeln (’лето’);
9..11: writeln (’осень’);
else writeln (’число должно быть от 1 до 12’);
end;
end.