Предмет: Информатика,
автор: RM1994
Помогите решить эту задачу в паскале!!!!
Для двух треугольников с катетами а, b, с, d. Найти сумму площадей треугольников.(Вычисление площади оформить в виде под программы-функция или процедура).
Ответы
Автор ответа:
0
function S_tr(a,b:integer):real;
begin
S_tr:=a*b/2
end;
var a,b,c,d:integer;
s:real;
begin
s:=0;
read(a,b,c,d);
s+=S_tr(a,b);
s+=S_tr(c,d);
writeln(s);
end.
begin
S_tr:=a*b/2
end;
var a,b,c,d:integer;
s:real;
begin
s:=0;
read(a,b,c,d);
s+=S_tr(a,b);
s+=S_tr(c,d);
writeln(s);
end.
Интересные вопросы
Предмет: Литература,
автор: kanafieva2000
Предмет: Қазақ тiлi,
автор: nurniaznazym
Предмет: Математика,
автор: FlickPal
Предмет: Математика,
автор: NASIMANoNIMe