Даны стороны двух прямоугольных треугольников: а=1.5, в=1.5, с=2.12; а=1, в=3, с=3.15 составьте программу для вычисления разности из площадей. используйте подпрограмму вычисления площади одного треугольника.
Var m, n, nok, t, i: longint; begin write('введите через пробел два целых положительных числа- '); readln(m, n); {сначала ищем нок - наименьшее общее кратное} if m = n then begin nok : = m; t : = m * m end else begin t : = m * n; repeat if m > n then m : = m - n else n : = n - m until m = n; nok : = t div m end; {теперь умножаем нок на числа натурального ряда, пока не дойдем до величины t=m*n} if nok = t then writeln('требуемых чисел нет') else begin i : = 1; while (nok * i < t) do begin write(nok * i, ' '); i : = i + 1 end end end. тестовое решение: введите через пробел два целых положительных числа- 8 120 120 240 360 480 600 720 840 введите через пробел два целых положительных числа- 35 620 4340 8680 13020 17360 введите через пробел два целых положительных числа- 7 13 требуемых чисел нет
#include < math.h>
#include < cstdlib> #include < iostream>
using namespace std;
float s(float a,float b,float c)
{
float s,p;
p=(a+b+c)/2;
s=sqrt(p*(p-a)*(p-b)*(p-c));
return s;
}
int main()
{
float a1=1.5,b1=1.5,c1=2.12,a2=1,b2=3,c2=3.15;
float s1,s2;
s1=s(a1,b1,c1);
s2=s(a2,b2,c2);
cout< < s1-s2< < endl;
system("pause");
return 0 ;
}