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

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

Задание 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) Перевести расстояние в километрах в мили.