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

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. Каковы назначение и возможности системы BorlandPascal?

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. По данным сторонам прямоугольника вычислить его периметр, площадь и длину диагонали.