Решение задач блока Begin 1-10
Решение задач из задачника по программированию М. Э. Абрамяна. Задачи из блока Begin: «Ввод и вывод данных, оператор присваивания».
Задача Begin1
Дана сторона квадрата a. Найти его периметр P = 4·a.
uses
PT4;
var
a, p: real;
begin
Task('Begin1');
read(a);
p := 4 * a;
write(p);
end.Задача Begin2
Дана сторона квадрата a. Найти его площадь S = a2.
uses
PT4;
var
a, s: real;
begin
Task('Begin2');
read(a);
s := sqr(a);
write(s);
end.Задача Begin3
Даны стороны прямоугольника a и b. Найти его площадь S = a·b и периметр P = 2·(a + b).
uses
PT4;
var
a, b, s, p: real;
begin
Task('Begin3');
read(a, b);
s := a * b;
p := 2 * (a + b);
write(s, p);
end.Задача Begin4
Дан диаметр окружности d. Найти ее длину L = π·d. В качестве значения π использовать 3.14.
uses
PT4;
const
pi = 3.14;
var
d, l: real;
begin
Task('Begin4');
read(d);
l := pi * d;
write(l);
end.Задача Begin5
Дана длина ребра куба a. Найти объем куба V = a3 и площадь его поверхности S = 6·a2.
uses
PT4;
var
a, v, s: real;
begin
Task('Begin5');
read(a);
v := sqr(a) * a;
s := 6 * sqr(a);
write(v, s);
end.Задача Begin6
Даны длины ребер a, b, c прямоугольного параллелепипеда. Найти его объем V = a·b·c и площадь поверхности S = 2·(a·b + b·c + a·c).
uses
PT4;
var
a, b, c, v, s: real;
begin
Task('Begin6');
read(a, b, c);
v := a * b * c;
s := 2 * (a * b + b * c + a * c);
write(v, s);
end.Задача Begin7
Найти длину окружности L и площадь круга S заданного радиуса R:
L = 2·π·R, S = π·R2.
В качестве значения π использовать 3.14.
uses
PT4;
const
pi = 3.14;
var
r, l, s: real;
begin
Task('Begin7');
read(r);
l := 2 * pi * r;
s := pi * sqr(r);
write(l, s);
end.Задача Begin8
Даны два числа a и b. Найти их среднее арифметическое: (a + b)/2.
uses
PT4;
var
a, b: real;
begin
Task('Begin8');
read(a, b);
write((a + b) / 2);
end.Задача Begin9
Даны два неотрицательных числа a и b. Найти их среднее геометрическое, т. е. квадратный корень из их произведения: (a·b)1/2.
uses
PT4;
var
a, b: real;
begin
Task('Begin9');
read(a, b);
write(sqrt(a * b));
end.Задача Begin10
Даны два ненулевых числа. Найти сумму, разность, произведение и частное их квадратов.
uses
PT4;
var
a, b: real;
begin
Task('Begin10');
read(a, b);
write(sqr(a) + sqr(b));
write(sqr(a) - sqr(b));
write(sqr(a) * sqr(b));
write(sqr(a) / sqr(b));
end.
