#include < math.h>
#include < cstdlib> #include < iostream>
using namespace std;
int main()
{
float x1,x2,x3,y1,y2,y3;
cout< < "введите кординаты первой точки"< < endl;
cin> > x1;
cin> > y1;
cout< < "введите кординаты второй точки"< < endl;
cin> > x2;
cin> > y2;
cout< < "введите кординаты третьей точки"< < endl;
cin> > x3;
cin> > y3;
float ax=x1-x2,ay=y1-y2,bx=x2-x3,by=y2-y3,cx=x3-x1,cy=y3-y1;
float a=sqrt(ax*ax+ay*ay);
float b=sqrt(bx*bx+by*by);
float c=sqrt(cx*cx+cy*cy);
float s,p,p;
p=a+b+c;
p=p/2;
s=sqrt(p*(p-a)*(p-b)*(p-c));
cout< < "площадь равна "< < s< < " периметр равен "< < p< < endl;
system("pause");
return 0 ;
}
var a: array [byte,byte] of real; i,j,n,m: byte; s: real; d,p: word;
beginwrite('введите количество строк n = '); readln(n); write('введите количество строк m = '); readln(m); for i: =1 to n do for j: =1 to m do readln(a[i,j]);
s: =0; d: =0; p: =0; for i: =1 to m do beginfor j: =1 to n do s: =s+a[j,i]; for j: =1 to n doif a[j,i]< (s/n) then inc(d); writeln('количество элементов в столбце ',i,' прямоугольной вещественной матрицы, меньших среднего арифметического d = ',d,' среднее арифметическое = ',(s/n): 0: 4); p: =p+d; d: =0; s: =0; end; writeln('общее количество элементов меньших элементов в столбцах = ',p); writeln('матрица'); for i: =1 to n do beginfor j: =1 to m do write(a[i,j],' '); writeln; end; end.
Поделитесь своими знаниями, ответьте на вопрос:
ответ
объяснение: 8бит 1001кбаит 1 мбаит 1гбаит