Стандартные математические функции и процедуры Турбо-Паскаля

Лабораторная работа №1

Программирование линейных алгоритмов

Цель работы: выработать практические навыки работы с системой Borland Pascal, научиться создавать, вводить в компьютер, выполнять и исправлять простейшие программы на языке Pascal в режиме диалога, познакомиться с диагностическими сообщениями компилятора об ошибках при выполнении программ, реализующих линейные алгоритмы.

Общие сведения:

Линейным называется алгоритм, в котором результат получается путем однократного выполнения заданной последовательности действий при любых значениях исходных данных. Операторы программы выполняются последовательно, один за другим, в соответствии с их расположением в программе.

Пример

Пример1: Определить расстояние на плоскости между двумя точками с заданными координатами M1(x1,y1) и M2(x2,y2)

Этапы решения задачи:

1. Математическая модель: расстояние на плоскости между двумя точками M1(x1,y1) и M2(x2,y2) высчитывается по формуле

2. Составим схему алгоритма

Уточним содержимое блока "Вычисление и печать расстояния"

Дальнейшая детализация не требуется. Переводим блок-схему на язык Паскаль.

program example1;

var x1, x2, y1, y2: integer;

d:real;

begin

write('x1= '); readln(x1);

write('y1= '); readln(y1);

write('x2= '); readln(x2);

write('y2= '); readln(y2);

d:=sqrt(sqr(x2-x1)+sqr(y2-y1));

writeln('d=',d);

end.

Доработаем программу, так чтобы она обладала некоторым интерфейсом:

program example1;

var x1, x2, y1, y2: integer;

d:real;

begin

writeln('Эта программа вычисляет расстояние между двумя точками на плоскости');

writeln('Введите координаты двух точек:');

write('x1= '); readln(x1);

write('y1= '); readln(y1);

write('x2= '); readln(x2);

write('y2 ='); readln(y2);

d:=sqrt(sqr(x2-x1)+sqr(y2-y1));

writeln('d= ',d);

writeln('нажмите Enter для завершения работы программы');

readln;

end.

Контрольные вопросы:

1. Каковы назначение и возможности системы Borland Pascal?

2. Как запустить программу на трансляцию и выполнение?

3. Как записываются операторы начала и конца программы?

4. Из каких разделов состоит программа на языке Pascal?

5. В какой последовательности должны быть записаны разделы программы на языке Pascal?

6. Как записываются операторы вывода на экран в Pascal?

Задачи:

Задачи по вариантам

(выполнить все задачи)

1. Дана длина ребра куба. Найти объем куба и площадь его боковой поверхности.

2. Три сопротивления R1, R2, R3 соединены параллельно. Найти сопротивление соединения.

3. Определить время падения камня на поверхность земли с высоты h.

4. Известна длина окружности. Найти площадь круга, ограниченного этой окружностью.

5. Треугольник задан координатами своих вершин. Найти:

o периметр треугольника;

o площадь треугольника.

6. Вычислить высоту треугольника, опущенную на сторону а, по известным значениям длин его сторон a, b, c.

7. Вычислить объем цилиндра с радиусом основания r и высотой h.

8. Определить расстояние, пройденное физическим телом за время t, если тело движется с постоянным ускорением а и имеет в начальный момент времени скорость V0

9. Вычислить площадь треугольника по формуле Герона, если заданы его стороны.

10. Определить координаты вершины параболы y=ax2+bx+c (a№0). Коэффициенты a,b,c заданы.

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

Приложение: операции и стандартные функции

В Турбо-Паскале применяются следующие условные знаки и служебные слова для описания различных операций:

Отметим, что операции в скобках имеют высший приоритет, т. е. сначала выполняются операции в скобках, в том числе вычисление аргументов и значения функции. Операции одинакового приоритета выполняются слева направо, например a/c*b соответствует (a/c)*b.

Под смешанным типом переменных в выражении подразумевается операция с целым и вещественным типом переменных.

Стандартные математические функции и процедуры Турбо-Паскаля

Поскольку при вызове функции или процедуры производятся некоторые вычисления, преобразования или выполняются другие действия, то вызов функции можно назвать оператором-функцией, а вызов процедуры - оператором-процедурой.

При вызове функция возвращает значение, которое необходимо присвоить переменной. Например, запись Y:= Sin(x); позволяет вычислить значение синуса угла "х", которое присваивается переменной "Y". Функции имеют высший приоритет, т. е. в выражении сначала вычисляется значение функции, а затем выполняются другие операции. Например: в выражении Y:= 5 * Cos(Pi + x); сначала вычисляется значение аргумента, затем значение функции, которое умножается на пять.

При вызове процедура производит определенные действия и может возвращать значения параметров. Процедура может не иметь параметров, например, для инициализации распределения случайных чисел вызывается процедура Randomize;. Процедуры могут включать параметры, которые необходимо задать при вызове процедуры и параметры, которые возвращают значения после выполнения процедуры. Например, при вызове процедуры Str(x, s); параметр "x" должен быть задан, а параметр "S" возвращает строковый вид числа "x". В некоторых процедурах параметры изменяют свое значение, Например, процедура Inc(x); увеличивает значение "x" на единицу, т. е. возвращает новое значение "x", что соответствует оператору x:=x+1; Таким образом, при вызове процедуры необходимо знать назначение и тип задаваемых параметров.