#include "stdafx.h"
#include <iostream>
#include <cmath>
struct coord
{
double x;
double y;
};
using namespace std;
void TriangleExist(coord a, coord b, coord c)
{
double modAB = sqrt(pow((a.x-b.x),2)+pow((a.y-b.y),2));
double modAC = sqrt(pow((a.x-c.x),2)+pow((a.y-c.y),2));
double modBC = sqrt(pow((b.x-c.x),2)+pow((b.y-c.y),2));
if (modAB+modAC <= modBC)
cout << "Do not exist" << endl;
else if (modAC + modBC <= modAB)
cout << "Do not exist" << endl;
else if (modAB+modBC <= modAC)
cout << "Do not exist" << endl;
else
cout << "Exist" << endl;
}
int main()
{
coord A, B, C;
cin >> A.x >> A.y;
cin >> B.x >> B.y;
cin >> C.x >> C.y;
TriangleExist(A, B, C);
system("pause");
exit(0);
return 0;
}
Еще способ с чистым мейном.
#include <iostream>
#include <conio.h>
#include <cmath> //математическая библия, ну очень облегчает задачу :)))
using namespace std;
void main(void)
{
double Ax, Ay, Bx, By, Cx, Cy;
cin >> Ax >> Ay >> Bx >> By >> Cx >> Cy;
double modAB = sqrt(pow((Ax-Bx),2)+pow((Ay-By),2));
double modAC = sqrt(pow((Ax-Cx),2)+pow((Ay-Cy),2));
double modBC = sqrt(pow((Bx-Cx),2)+pow((By-Cy),2));
if (modAB+modAC <= modBC)
cout << "Do not exist" << endl;
else if (modAC + modBC <= modAB)
cout << "Do not exist" << endl;
else if (modAB+modBC <= modAC)
cout << "Do not exist" << endl;
else
cout << "Exist" << endl;
_getch();
return;
}
Первое
var
a:array[1..100] of integer;
i,j:integer;
procedure swap(var x,y: integer);
var t: integer;
begin
t := x;
x := y;
y := t
end;
begin
for i:=1 to 100 do a[i]:=random(100);
for j:=1 to 99 do
for i:=1 to 100-j do if a[i] > a[i+1] then swap(a[i],a[i+1]);
for i:=2 to 99 do if (a[i]=a[i+1]) or (a[i]=a[i-1]) then writeln('a[',i,']=',a[i]);
end.
Второе
var
a:array[1..100] of integer;
i,j:integer;
procedure swap(var x,y: integer);
var t: integer;
begin
t := x;
x := y;
y := t
end;
begin
for i:=1 to 100 do a[i]:=random(100);
for j:=1 to 99 do
for i:=1 to 100-j do if a[i] > a[i+1] then swap(a[i],a[i+1]);
if a[1]<>a[2] then writeln('a[1]=',a[1]);
for i:=2 to 99 do if (a[i]<>a[i+1]) and (a[i]<>a[i-1]) then writeln('a[',i,']=',a[i]);
if a[100]<>a[99] then writeln('a[100]=',a[100]);
end.
Program n_1;
var a,P:integer;
begin
writeln('Введите значение стороны квадрата');
readln(a);
P:=4*a;
writeln(P);
<span>end.</span>
В режиме Обычный (для редактирования) щелкните значок аудио на нужном слайде.
На вкладке " Работа с воспроизведение звука " в группе Параметры звука, выберите В нажмите кнопку последовательность или автоматически в списке Начало.
