Составление линейных алгоритмов с использованием основных

Составление линейных алгоритмов с использованием основных функций
Задача 1. Даны два ненулевых числа. Найти сумму, разность, произведение и частное
их модулей.
var a, b: real;
begin
write('Введите два числа ->');
readln(a, b);
writeln('Сумма модулей = ', abs(a)+abs(b):6:2);
writeln('Разность модулей = ', abs(a)-abs(b):6:2);
writeln('Произведение модулей = ', abs(a)*abs(b):6:2);
writeln('Частное модулей = ', abs(a)/abs(b):6:2);
end.
Задача 2. Даны катеты прямоугольного треугольника a и b. Найти его гипотенузу c
и периметр P:
.
var a, b, c, p: real;
begin
write('Введите длины катетов прямоугольного треугольника ->');
readln(a, b);
c:=sqrt(sqr(a)+sqr(b));
p:=a+b+c;
writeln('Гипотенуза = ', c:6:2);
writeln('Периметр = ', p:6:2);
end.
Задача 3. Даны два круга с общим центром и радиусами R1 и R2 (R1 > R2). Найти
площади этих кругов S1 и S2, а также площадь S3 кольца, внешний радиус которого
равен R1, а внутренний радиус равен R2: S1=pi·(R1)2, S2=pi·(R2)2, S3=S1–S2.
var r1, r2, s1, s2, s3: real;
begin
write('Введите радиусы двух кругов ->');
readln(r1, r2);
s1:=pi*sqr(r1);
s2:=pi*sqr(r2);
s3:=s1-s2;
writeln('Площадь первого круга = ', s1:6:2);
writeln('Площадь второго круга = ', s2:6:2);
writeln('Площадь кольца = ', s3:6:2);
end.
Задача 4. Дана длина L окружности. Найти ее радиус R и площадь S круга,
ограниченного этой окружностью, учитывая, что L=2·pi·R, S=pi·R2.
var l, r, s: real;
begin
write('Введите длину окружности ->');
readln(l);
r:=l/(2*pi);
s:=pi*sqr(r);
writeln('Радиус окружности = ', r:6:2);
writeln('Площадь круга = ', s:6:2);
end.
Задача 5. Дана площадь S круга. Найти его диаметр D и длину L окружности,
ограничивающей этот круг, учитывая, что L=2·pi·R, S=pi·R2.
var s, d, l, r: real;
begin
write('Введите площадь круга ->');
readln(s);
r:=sqrt(s/pi);
d:=r*2;
l:=2*pi*r;
writeln('Диаметр окружности = ', d:6:2);
writeln('Длина окружности = ', l:6:2);
end.
Задача 6. Найти расстояние между двумя точками с заданными координатами x1 и x2
на числовой оси: |x2–x1|.
var x1, x2, d: real;
begin
write('Введите координаты двух точек на числовой оси ->');
readln(x1, x2);
d:=abs(x2-x1);
writeln('Расстояние между точками = ', d:6:2);
end.
Задача 7. Даны три точки A, B, C на числовой оси. Найти длины отрезков AC и BC и
их сумму.
var xa, xb, xc, ac, bc, s: real;
begin
write('Введите координаты точек A, B и C на числовой оси ->');
readln(xa, xb, xc);
ac:=abs(xc-xa);
bc:=abs(xc-xb);
s:=ac+bc;
writeln('Длина отрезка AC = ', ac:6:2);
writeln('Длина отрезка BC = ', bc:6:2);
writeln('Сумма длин отрезков = ', s:6:2);
end.
Задача 8. Даны три точки A, B, C на числовой оси. Точка C расположена между
точками A и B. Найти произведение длин отрезков AC и BC.
var xa, xb, xc, ac, bc, p: real;
begin
write('Введите координаты точек A, B и C (точка С между А и В) на числовой оси ->');
readln(xa, xb, xc);
ac:=abs(xc-xa);
bc:=abs(xc-xb);
p:=ac*bc;
writeln('Длина отрезка AC = ', ac:6:2);
writeln('Длина отрезка BC = ', bc:6:2);
writeln('Произведение длин отрезков = ', p:6:2);
end.
Задача 9. Даны координаты двух противоположных вершин прямоугольника: (x1,
y1), (x2, y2). Стороны прямоугольника параллельны осям координат. Найти периметр
и площадь данного прямоугольника.
var x1, y1, x2, y2, a, b, p, s: real;
begin
write('Введите координаты противоположных вершин прямоугольника: (x1, y1) и (x2, y2)
->');
readln(x1, y1, x2, y2);
a:=abs(x1-x2);
b:=abs(y1-y2);
p:=2*(a+b);
s:=a*b;
writeln('Периметр прямоугольника = ', p:6:2);
writeln('Площадь прямоугольника = ', s:6:2);
end.
Задача 10. Найти расстояние между двумя точками с заданными координатами (x1,
y1) и (x2, y2) на плоскости. Расстояние вычисляется по
формуле:
.
var x1, y1, x2, y2, d: real;
begin
write('Введите координаты двух точек: (x1, y1) и (x2, y2) ->');
readln(x1, y1, x2, y2);
d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
writeln('Расстояние между точками = ', d:6:2);
end.