Program n1;
var kord: array[1..6] of real;
st: array [1..3] of real;
i: integer;
begin
i:=1;
while i<=6 do
begin
write('введите координаты точки через пробел: ');
readln(kord[i],kord[i+1]);
i:=i+2;
end;
st[1]:=sqrt(sqr(kord[3]-kord[1])+sqr(kord[4]-kord[2]));
st[2]:=sqrt(sqr(kord[5]-kord[1])+sqr(kord[6]-kord[2]));
st[3]:=sqrt(sqr(kord[5]-kord[3])+sqr(kord[6]-kord[4]));
if (st[1]=st[2]) and (st[2]=st[3]) then write('треугольник равносторонний') else write('треугольник не равносторонний');
end.
1) использовать Робот
алг
нач
вниз
нц пока не слева свободно и снизу свободно
закрасить
вниз
кц
нц пока не снизу свободно и не слева свободно
закрасить
вправо
кц
нц пока не снизу свободно и справа свободно
закрасить
вправо
кц
нц пока не снизу свободно и не справа свободно
закрасить
вверх
кц
нц пока не справа свободно
закрасить
вверх
кц
кон
#include <iostream>
using namespace std;
int main()
{<span>
int a,s;</span><span>
a=1;</span><span> s=0;</span><span>
while (a!=0)
{</span><span>
cin>>a;</span><span>
s=s+a;</span><span>
}</span><span>
cout<<s;
</span>return 0;
}<span>
</span>
Var
a:array[1..3,1..2]of real;
b:array[1..3]of real; //массив для координат пересечения сторон с ОХ
i,j,z:integer;
// (y1-y2)x+(x2-x1)y+(x1y2-x2y1)=0 - ур-е прямой, прохоходящей через 2 точки
// тогда x=(x2y1-x1y2)/(y1-y2) - координата ее пересечения с осью х
// найдем координаты пересечения сторон с осью х
function cross(x1,x2,y1,y2:real):real;
begin
result:=(x2*y1-x1*y2)/(y1-y2);
if ((result>x1) and (result>x2)) or ((result<x1) and (result<x2)) then
result:=1 //это точка пересечения не самой стороны, а ее продолжения
//поскольку в дальнейшем нам нужны будут знаки координат,
//ей приписываем положительной значение, чтобы она не влияла
//на конечный результат
end;
begin
for i:=1 to 3 do
begin
writeln('Введите координаты х,у вершины:');
readln(a[i,1],a[i,2]);
end;
z:=1;
for i:=1 to 3 do
begin
j:=i+1;
if j>3 then j:=1;
b[i]:=cross(a[i,1],a[j,1],a[i,2],a[j,2]);
z:=sign(b[i])*z;
end;
write('Начало координат ');
if z<0 then writeln('принадлежит треугольнику')
else writeln('не принадлежит треугольнику');
<span>end.</span>
