Пример программы на языке Паскаль

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

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

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

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

3. Переводим блок-схему на язык Паскаль. program example; 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

Задача: разделить одну простую дробь на другую - получить результат.

Ниже приведены блок-схема и текст программы на языке Паскаль. В тексте программы допущено несколько опечаток. Необходимо ввести предложенный текст и исправить опечатки.

program Division;

{Программа деления дробей}

var a, b, c, d, m, n ; integer;

Bigin;

write(“Введите a, b, c, d :”);

readln(a, b, c, m)

m:=axd;

n:=bc;

writeln(m);

writeln(n);

readln(s);

End;

Задание 2

Написать программы для решения следующих задач:

2.1. Вычисления по формулам.

Вычислить значение выражения по формуле (все переменные принимают действительные значения):

2.2. Вычисления в математических задачах

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

2. Вычислить длину окружности и площадь круга одного и того же заданного радиуса R.

3. Даны два числа. Найти среднее арифметическое кубов этих чисел.

4. Даны два действительных числа х и у. Вычислить их сумму, разность, произведение и частное.

5. Дана сторона равностороннего треугольника. Найти площадь этого треугольника, его высоту.

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

7. Найти площадь кольца, внутренний радиус которого равен r, а внешний — R (R > r).

8. Найти площадь треугольника, две стороны которого равны а и b, а угол между этими сторонами γ.

9. Написать программу, которая выводит на экран первые четыре степени числа п.

10. Составить программу для вычисления пути, пройденного лодкой, если ее скорость в стоячей воде v км/ч, скорость течения реки v1 км/ч, время движения по озеру t1 ч, а против течения реки — t2 ч.

11. Полторы кошки за полтора часа съедают полторы мышки. Сколько мышек съедят X кошек за Y часов?

12. Дана величина А, выражающая объем информации в байтах. Перевести А в более крупные единицы измерения информации.

13. Окружность вписана в квадрат заданной площади. Найти радиус этой окружности.

14. Известна площадь круга. Вычислить длину окружности того же заданного радиуса.

15. Найти площадь треугольника по двум сторонам и углу между ними. Величину Угла вводить в градусах. Ответ дать с точностью до трёх знаков после запятой.

16. Найти дальность полёта тела, брошенного под углом к горизонту по формуле S = V*t*cos(a). Величину угла вводить в градусах. Ответ дать с точность до2-х знаков после запятой.