Долгунча работает в ФГБУ «Якутское управление по гидрометеорологии и мониторингу окружающей среды» и занимается мониторингом и прогнозированием схода лавин на горных хребтах вдоль основных автомобильных трасс республики.
Самым важным параметром для определения возможности схода лавины является площадь
поверхности горы, покрытая снегом. Для упрощения задачи было решено представлять горы в виде
треугольников с основаниями ai и высотами hi
. Известно, что в этом году снежный покров в горах
образуется на уровне h метров и выше.
Долгунча, к сожалению, не успевает обработать все горные массивы Республики Саха (Якутия),
поэтому он просит вас обработать некоторых из них ему и вычислите общую площадь
поверхности заданных гор, покрытой снегом, если даны длины их оснований и высоты.
Выполните cледующие задания:
1. Вычислите площадь ледника для одной горы: a1 = 4, h1 = 4, h = 2.
2. Вычислите площадь ледника для одной горы: a1 = 6, h1 = 8, h = 6.
3. Вычислите площадь ледника для горной гряды с 15-ми горами:
• h = 7
• a1 = 20, h1 = 11,
• a2 = 12, h2 = 13,
• a3 = 9, h3 = 9,
• a4 = 13, h4 = 8,
• a5 = 13, h5 = 10,
• a6 = 12, h6 = 11,
• a7 = 11, h7 = 8,
• a8 = 10, h8 = 11,
• a9 = 12, h9 = 8,
• a10 = 11, h10 = 13,
• a11 = 11, h11 = 9,
• a12 = 16, h12 = 12,
• a13 = 8, h13 = 15,
• a14 = 16, h14 = 9,
• a15 = 12, h15 = 11
просто ответ на три вопроса нужен
var s: string;
k, error, len: integer;
element: array[1..20] of real;
i, rez: real;
const N = -2;
begin
s := IntToStr(x);
len := length(s);
if len = 0 then writeln('Ошибка!')
else
begin i := 0;
rez := 0;
for k := 1 to len do val(s[k], element[k], error);
for k := 1 to len do
begin
i := element[k] * power( N, len - k );
rez := rez + i;
end;
writeln(rez);
end;
end;
var numeric: integer;
begin
write('Введите двоичное число для перевода в систему счисления с основанием (-2): ');
readln(numeric);
write('ответ: ');
convert(numeric);
end.