Vladimir26ru

04.05.2021 14:27

Информатика

Есть ответ 👍

Переписать код с Pascal на C# (Можно также на С++, но очень желательно на C#)

function square(x1, y1, x2, y2, x3, y3: integer):real;
var
a1, a2, a3, p: real;
begin
a1:= sqrt(sqr(x2-x1) + sqr(y2-y1));
a2:= sqrt(sqr(x3-x2) + sqr(y3-y2));
a3:= sqrt(sqr(x1-x3) + sqr(y1-y3));
p:= (a1 + a2 + a3) / 2;
square:= sqrt(p * (p-a1) * (p-a2) * (p-a3));
end;

const
n = 20;
var
x, y: array[1..n] of integer;
temp,res: real;
i: integer;
begin
randomize;
for i:= 1 to n do
begin
x[i]:= random(20) - 10;
y[i]:= random(20) - 10;
end;
res:=0;
for i:= 3 to n do
begin
writeln(' Координаты треугольника', i-2, ': ', x[1]:4, y[1]:4, x[2]:4, y[2]:4, x[i]:4, y[i]:4);
temp:= square(x[1], y[1], x[2], y[2], x[i], y[i]);
res:=res+temp;
writeln('Площадь треугольника ', i-2, ' = ', temp:10:2);
writeln;
end;
writeln('Общая площадь равна: ',res);
readln;

end.