Структура программы. Линейный алгоритм.

В качестве примера рассмотрим программу вычисления площади треугольника.

Задание 5. В новом файле наберите текст программы. Сохраните программу в файл Ваши_инициалы2.PAS.

program s_tr;

var

a, h, s: real;

begin

write('Введите высоту: ');

readln(h);

write('Введите основание: ');

readln(a);

s:=a*h/2;

writeln('Площадь равна: ',s:5:2);

end.

Программа начинается со слова program. После служебного слова program записывается имя программы. В нашей программе именем является SquareRectangle. Имя программы записывается на английском языке и задается произвольно автором программы. В конце первой строки, после имени программы стоит ";" - точка с запятой. Этот знак указывает на то, что некоторая инструкция закончена и за ней будет записана следующая инструкция. Точка с запятой является обязательным разделительным знаком в языке Паскаль.

В следующем разделе описываются переменные. В программе используются 3 переменные (a, b, s), все они имеют тип real – дробные числа. Для целых чисел можно использовать тип integer.

Далее в программе следует служебное, зарезервированное, слово begin (начать), которым начинается раздел операторов.

В этом разделе последовательно записываются команды, операторы, которые разделяются ";" - точкой с запятой. Они будут выполняться компьютером.

Значения переменных в нашей программе вводятся с клавиатуры. Для ввода ширины и длины используется процедура ввода readln.

Для вывода ответа используется формат вывода s:5:2, необходимый, чтобы числа отображались в привычном человеку формате, а не в представлении компьютера. Первая цифра означает количество знаков, отводимых для вывода числа, вторая – количество выводимых после запятой знаков.

Программа заканчивается служебным словом end, после которого стоит точка. Она является обязательной во всех паскалевских программах. Точка оповещает о конце текста программы.

Задание 6. Запустите программу и изучите ее работу.

Задание 7. Измените программу так, чтобы она вычисляла площадь прямоугольника (см. блок-схему в тетради). Запустите программу и проверьте правильность ее работы. Сохраните программу в файл Ваши_инициалы3.PAS.

Задание 8. Создайте программу в среде Turbo Pascal, решающую задачу согласно вашему варианту (вариант узнать у преподавателя). Запустите программу и проверьте правильность ее работы. Сохраните программу в файл Ваши_инициалы4.PAS.

Варианты заданий

1. Вычислить площадь круга.

2. Вычислить квадрат разности двух чисел.

3. Вычислить квадрат суммы двух чисел.

4. Вычислить разность квадратов двух чисел.

5. Вычислить длину радиуса окружности заданной площади.

6. Перевести сумму в рублях в доллары согласно сегодняшнему курсу.

7. Перевести расстояние в километрах в мили.

Оператор выбора. Алгоритм с ветвлением.

Для реализации алгоритмов с ветвлением в Турбо Паскаль используется оператор выбора. Формат оператора:

If условие then оператор_1 else оператор_2;

Соответствующая граф-схема будет выглядеть так:

Как правило, в условии используются знаки операций отношения (<, >, =,<>, <=, >=).

Условие может быть записано и сложным логическим выражением. В сложных логических выражениях используются логические операции: and (И), or (ИЛИ), not (НЕ). Отношения, связываемые логическими операциями, заключаются в скобки. Например, требуется определить, есть ли среди чисел a, b, c хотя бы одно равное нулю. Для этого можно составить следующий условный оператор:

IF (a=0) OR (b=0) OR (c=0) THEN WRITE(‘YES’) ELSE WRITE(‘NO’);

Также в сложном условии могут быть использованы и мультипликативные операции:

mod – остаток от деления, div – целая часть от деления.

Например, требуется определить, является ли число а – нечетным.

IF a MOD 2<>0 THEN WRITELN(‘YES’) ELSE WRITELN(‘NO’);

В качестве примера приведем решение задачи: "Из двух чисел выбрать наибольшее".

Program Example;

Var A,B,C : Real; {A,B - для хранения двух вводимых чисел, C - результат}

Begin

Writeln('Введите два числа');

Readln(A,B); {Вводим аргументы с клавиатуры}

If A>B Then C:=A Else C:=B; {Если A>B, то результат - A, иначе результат - B}

Writeln(C:6:3); {Выводим результат на экран}

End.

Задание 9. В новом файле наберите текст программы. Сохраните программу в файл Ваши_инициалы5.PAS. Запустите программу, изучите ее работу.

Задание 10. Измените программу так, чтобы она вычисляла модуль числа (см. блок-схему в тетради). Запустите программу и проверьте правильность ее работы. Сохраните программу в файл Ваши_инициалы6.PAS.

Задание 8. Создайте программу в среде Turbo Pascal, решающую задачу согласно вашему варианту (вариант узнать у преподавателя). Запустите программу и проверьте правильность ее работы. Сохраните программу в файл Ваши_инициалы7.PAS.

1. Проверить квадратное уравнение на наличие корней.

2. Дано целое число. Определить, является ли оно кратным 11.

3. Написать программу, определяющую, принадлежит ли точка (x,y) графику функции y = ax² + bx + c.

ДОМАШНЕЕ ЗАДАНИЕ. Составить конспект.