// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
type
Point=record
x,y:real
end;
function GetPoint(c:char):Point;
begin
Writeln('Введите координаты точки ',c,':');
Read(Result.x,Result.y)
end;
function Line(A,B:Point):real;
begin
Result:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y))
end;
function SqTriangle(pA,pB,pC:Point):real;
begin
var a:=Line(pB,pC);
var b:=Line(pA,pC);
var c:=Line(pA,pB);
if (a+b>c) and (a+c>b) and (b+c>a) then begin
var p:=(a+b+c)/2;
Result:=sqrt(p*(p-a)*(p-b)*(p-c))
end
else Result:=0
end;
begin
var A:=GetPoint('A');
var B:=GetPoint('B');
var C:=GetPoint('C');
Writeln('Площадь треугольника равна ',SqTriangle(A,B,C))
end.
<u><em>Тестовое решение:</em></u>
Введите координаты точки A:
-5 3.18
Введите координаты точки B:
1.45 6.2
Введите координаты точки C:
6 -5.93
Площадь треугольника равна 45.98975
//Dev-C++ 5.11
#include <iostream>
using namespace std;
int main(void)
{const int n=3;
const int m=3;
int ma[n][m];
int c;
cout<<"First matrix"<<endl;
for(int i=0;i<n;i++)
{for(int j=0;j<m;j++)
{ma[i][j]=i+j;
cout<<ma[i][j]<<" ";}
cout<<endl;}
for(int i=0;i<n/2;i++){
for(int j=0;j<m;j++)
{c=ma[i][j];
ma[i][j]=ma[n-i-1][j];
ma[n-1-i][j]=c;}}
cout<<"Final matrix"<<endl;
for(int i=0;i<n;i++)
{for(int j=0;j<m;j++)
cout<<ma[i][j]<<" ";
cout<<endl;}
return 0;
}
Пример работы программы(n=3,m=3):
First matrix:
0 1 2
1 2 3
2 3 4
Final matrix:
2 3 4
1 2 3
0 1 2
Солнце восходит на востоке, а заходит на западе. Луна - спутник Земли, благодаря ей на Земле возникают приливы и отливы.