Решение задач блока Begin 11-20
Решение задач из задачника по программированию М. Э. Абрамяна. Задачи из блока Begin: «Ввод и вывод данных, оператор присваивания».
Задача Begin11
Даны два ненулевых числа. Найти сумму, разность, произведение и частное их модулей.
uses
PT4;
var
a, b: real;
begin
Task('Begin11');
read(a, b);
write(abs(a) + abs(b));
write(abs(a) - abs(b));
write(abs(a) * abs(b));
write(abs(a) / abs(b));
end.Задача Begin12
Даны катеты прямоугольного треугольника a и b.
Найти его гипотенузу c и периметр P: c = (a2 + b2)1/2, P = a + b + c.
uses
PT4;
var
a, b, c, p: real;
begin
Task('Begin12');
read(a, b);
c := sqrt(sqr(a) + sqr(b));
p := a + b + c;
write(c, p);
end.Задача Begin13
Даны два круга с общим центром и радиусами R1 и R2 (R1 > R2). Найти площади этих кругов S1 и S2, а также площадь S3 кольца, внешний радиус которого равен R1, а внутренний радиус равен R2:
S1 = π·(R1)2, S2 = π·(R2)2, S3 = S1 − S2.
В качестве значения π использовать 3.14.
uses
PT4;
const
pi = 3.14;
var
r1, r2, s1, s2, s3: real;
begin
Task('Begin13');
read(r1, r2);
s1 := pi * sqr(r1);
s2 := pi * sqr(r2);
s3 := s1 - s2;
write(s1, s2, s3);
end.Задача Begin14
Дана длина L окружности. Найти ее радиус R и площадь S круга, ограниченного этой окружностью, учитывая, что L = 2·π·R, S = π·R2.
В качестве значения π использовать 3.14.
uses
PT4;
const
pi = 3.14;
var
l, r, s: real;
begin
Task('Begin14');
read(l);
r := l / (2 * pi);
s := pi * sqr(r);
write(r, s);
end.Задача Begin15
Дана площадь S круга. Найти его диаметр D и длину L окружности, ограничивающей этот круг, учитывая, что L = π·D, S = π·D2/4.
В качестве значения π использовать 3.14.
uses
PT4;
const
pi = 3.14;
var
s, d, l: real;
begin
Task('Begin15');
read(s);
d := sqrt((4 * s) / pi);
l := pi * d;
write(d, l);
end.Задача Begin16
Найти расстояние между двумя точками с заданными координатами x1 и x2 на числовой оси:|x2 − x1|.
uses
PT4;
var
x1, x2: real;
begin
Task('Begin16');
read(x1, x2);
write(abs(x2 - x1));
end.Задача Begin17
Даны три точки A, B, C на числовой оси. Найти длины отрезков AC и BC и их сумму.
uses
PT4;
var
a, b, c: real;
begin
Task('Begin17');
read(a, b, c);
write(abs(c - a), abs(c - b), abs(c - a) + abs(c - b));
end.Задача Begin18
Даны три точки A, B, C на числовой оси. Точка C расположена между точками A и B. Найти произведение длин отрезков AC и BC.
uses
PT4;
var
a, b, c: real;
begin
Task('Begin18');
read(a, b, c);
write(abs(c - a) * abs(c - b));
end.Задача Begin19
Даны координаты двух противоположных вершин прямоугольника: (x1, y1), (x2, y2). Стороны прямоугольника параллельны осям координат.
Найти периметр и площадь данного прямоугольника.
uses
PT4;
var
x1, y1, x2, y2: real;
begin
Task('Begin19');
read(x1, y1, x2, y2);
write(2 * (abs(x2 - x1) + abs(y2 - y1)), abs(x2 - x1) * abs(y2 - y1));
end.Задача Begin20
Найти расстояние между двумя точками с заданными координатами (x1, y1) и (x2, y2) на плоскости.
Расстояние вычисляется по формуле ((x2 − x1)2 + (y2 − y1)2)1/2.
uses
PT4;
var
x1, y1, x2, y2: real;
begin
Task('Begin20');
read(x1, y1, x2, y2);
write(sqrt(sqr(x2 - x1) + sqr(y2 - y1)));
end.
