Переделать с функциями

@Lada-21093i · Регистрация: 27.01.2012

Author24 — интернет-сервис помощи студентам

СОСТАВИТЬ ПРОГРАММУ ОПРЕДЕЛЯЮЩУЮ МОГУТ ЛИ ТРИ ТОЧКИ ЗАДАННЫЕ СВОИМИ КООРДИНАТАМИ ЯВЛЯЕТСЯ ВЕРШИНАМИ ТРЕУГОЛЬНИКА.ИСПОЛЬЗОВАТЬ ФУНКЦИЮ КОТОРАЯ СЧИТАЕТ РАССТОЯНИЕ МЕЖДУ КООРДИНАТАМИ.

Pascal

Program n_1;
 Uses CRT;
 Var
 Function Lada(
 x1,x2,x3,y1,y2,y3,a,b,c :real;
 begin
 clrscr;
 Writeln (' x1- ');
 Readln (x1);
 Writeln (' y1- ');
 Readln (y1);
 Writeln (' x2- ');
 Readln (x2);
 Writeln (' y2- ');
 Readln (y2);
 Writeln (' x3- ');
 Readln (x3);
 Writeln (' y3- ');
 Readln (y3);
 a:=sqrt(sqr(x1-x2)+sqr(y1-y2));
 b:=sqrt(sqr(x2-x3)+sqr(y2-y3));
 c:=sqrt(sqr(x1-x3)+sqr(y1-y3));
 if (a<b+c)and(b<a+c)and(c<a+b) then
 Writeln ('ЯВЛЯЕТСЯ ТРЕУГОЛЬНИКОМ*')
 else
 Writeln ('НЕ ЯВЛЯЕТСЯ ТРЕУГОЛЬНИКОМ');
 readln;
 end.

Комментарий модератора

Caps Lock отключать не умеете?

@Puporev · 18.02.2012, 11:11

Найти периметр четырехугольника
Спишите и вставьте в свой код.

@Lada-21093i · 18.02.2012, 12:21 **[ТС]**

Puporev, помоги сделать очень надо!!!

@Puporev · 18.02.2012, 12:42

Сообщение от Lada-21093i

сделать очень надо!!!

Ну так делай, как делать я написал.

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	18.02.2012, 11:11	2
	Найти периметр четырехугольника Спишите и вставьте в свой код. 1

@Lada-21093i 1 / 1 / 1 Регистрация: 27.01.2012 Сообщений: 17
	18.02.2012, 12:21 [ТС]	3
	Puporev, помоги сделать очень надо!!! 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	18.02.2012, 12:42	4
	Сообщение от Lada-21093i сделать очень надо!!! Ну так делай, как делать я написал. 0