й координаты правых верхних вершин и . . .
oo . . . максимальная координата по оси У левых нижних вершин прямоугольников будет меньше минимальной координаты правых верхних вершин, то . . .
oo . . . общая площадь есть.
В задаче необходимо использовать типовой алгоритм нахождения МАКСИМАЛЬНОГО (МИНИМАЛЬНОГО) ЭЛЕМЕНТА МАССИВА.
Для вычисления общей площади необходимо найти произведение разности:
oo максимальной координаты по оси Х левых нижних вершин прямоугольников и минимальной координаты правых верхних вершин и . . .
oo . . . максимальной координаты по оси У левых нижних вершин прямоугольников и минимальной координаты правых верхних вершин.
Программа на Паскале:
var x1, x2, y1, y2: array 1. . 10 of integer;
n, i, xmax, xmin, ymax, ymin: integer;
begin
writeln (введите количество прямоугольников);
readln (n);
for i:1 to n do
readln (x1i, y1i, x2i, y2i);
xmax:x11;
xmin:x21;
ymax:y11;
ymin:y22;
for i:1 to n do
begin
if x1i xmax then xmax:x1i;
if x2i xmin then xmin:x2i;
if y1i ymax then ymax:y1i;
if y2i ymin then ymin:y2i;
end;
if (xmax2, а не 1, т. к. функция STR$ записывает один лишний пробел перед словом.
Программа на Паскале:
var a: string;
n,s,i,x,k:integer;
begin
writeln (введите число);
readln (a);
n:length(a);
while n1 do
begin
s:0;
for i:1 to n do
begin
val (copy(a,i,1),x,k);
s:sx;
end;
str(s,a);
n:length(a);
end;
writeln (цифровой корень числа, s);
end.
Тест:
Дано:
123456
Результат:
3
5. Перевести число из одной системы счисления в другую (табл. 4).
Идея решения:
Страницы: << < 8 | 9 | 10 | 11 > >>