Переписать код с 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.
105
137
Ответы на вопрос:
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
FanatikOutlast05.09.2021 22:53
-
nastya63201112.03.2021 00:00
-
McVano02.01.2023 23:29
-
PVA848525.03.2020 15:43
-
Udnyoj11.08.2022 20:29
-
kamilyusupov12328.07.2021 20:59
-
terminator2718.05.2021 23:57
-
AgataKlemen0326.01.2021 03:21
-
lluciferr0105.07.2021 21:10
-
muzycuk20.09.2021 08:41
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.