Пожаловаться
- 08.05.2018 23:01
- Информатика
- remove_red_eye 15248
- thumb_up 46
Ответы и объяснения 1
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!
№1
function ГЕРОН(a,b,c:real):real;
begin
var p:=(a+b+c)/2;
Result:=Sqrt(p*(p-a)*(p-b)*(p-c))
end;
begin
var a,b,c,d:real;
Write('Введите стороны четырехугольника: '); Read(a,b,c,d);
var e:=Sqrt(a*a+b*b);
Writeln('Его площадь равна ',ГЕРОН(a,b,e)+ГЕРОН(c,d,e):0:5)
end.
Пример
Введите стороны четырехугольника: 8.5 6.2 14 7.4
Его площадь равна 64.52086
№2
begin
var n:=ReadInteger('n=');
var x:=ReadReal('x=');
var (m,s):=(1.0,1.0);
loop n-1 do begin
m*=x; s+=m
end;
Writeln('S=',s*x)
end.
Пример
n= 4
x= 3
S=120
// Внимание! Если программа не работает, обновите версию!
№1
function ГЕРОН(a,b,c:real):real;
begin
var p:=(a+b+c)/2;
Result:=Sqrt(p*(p-a)*(p-b)*(p-c))
end;
begin
var a,b,c,d:real;
Write('Введите стороны четырехугольника: '); Read(a,b,c,d);
var e:=Sqrt(a*a+b*b);
Writeln('Его площадь равна ',ГЕРОН(a,b,e)+ГЕРОН(c,d,e):0:5)
end.
Пример
Введите стороны четырехугольника: 8.5 6.2 14 7.4
Его площадь равна 64.52086
№2
begin
var n:=ReadInteger('n=');
var x:=ReadReal('x=');
var (m,s):=(1.0,1.0);
loop n-1 do begin
m*=x; s+=m
end;
Writeln('S=',s*x)
end.
Пример
n= 4
x= 3
S=120
Пожаловаться
- 09.05.2018 06:49
- thumb_up 29
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы