Люди! Умоляю помогите нарисовать блок схему к задаче, написать входные и выходные данные и её математическую модель, умоляю!

[Воронцов]

Люди! Умоляю помогите нарисовать блок схему к задаче, написать входные и выходные данные и её математическую модель, умоляю! Заранее спасибо!

[Rassven]

Ну, вроде блок-схему нарисовал. Не уверен про мат-модель, но формулы адаптированные к квадрату дал, работают.

Точки B и D различаются только знаком Yt.

удачи! Если что непонятно спрашивайте.

 

[Omnividente]

Uses GRAPH;

Type Coord = Record
	   X, Y : Integer;
 End;

Var grDriver : Integer;
grMode   : Integer;
A, B, C, D, O, R : Coord;

Begin
 { Задаем координаты противоположных вершин квадрата }
 A.X := 200;
 A.Y := 120;
 C.X := 400;
 C.Y := 140;

 { Находим середину отрезка AC  }
 O.X := A.X + Trunc((C.X - A.X)/2);
 O.Y := A.Y + Trunc((C.Y - A.Y)/2);

 { Находим длину катетов прямоугольного треугольника,
   где AO - гипотенуза, а катеты параллельны осям координат }
 R.X := ABS(O.X - A.X);
 R.Y := ABS(O.Y - A.Y);

 { Определяем координаты недостающих вершин квадрата, B и D }
 B.X := O.X - R.Y;
 B.Y := O.Y + R.X;

 D.X := O.X + R.Y;
 D.Y := O.Y - R.X;

 grDriver := Detect;
 InitGraph(grDriver,grMode,'C:\TP\BGI');

 Circle (A.X, A.Y, 2);	  OutTextXY(A.X - 10, A.Y + 10, 'A');
 Circle (C.X, C.Y, 2);	  OutTextXY(C.X, C.Y + 10, 'C');
 Circle (B.X, B.Y, 2);	  OutTextXY(B.X, B.Y + 10, 'B');
 Circle (D.X, D.Y, 2);	  OutTextXY(D.X + 10, D.Y - 10, 'D');
 Line (A.X, A.Y, B.X, B.Y);
 Line (B.X, B.Y, C.X, C.Y);
 Line (C.X, C.Y, D.X, D.Y);
 Line (D.X, D.Y, A.X, A.Y);

{
 Circle (O.X, O.Y, 2);	 OutTextXY(O.X, O.Y + 10, 'O');
 Line (A.X, A.Y, C.X, C.Y);
 Line (D.X, D.Y, B.X, B.Y);
}
 ReadLn;
 CloseGraph;
End.

 

рисовать блок схемы не умею) это исходники лабы с моей студенческой жизни)

Изменено 14 сентября, 2010 пользователем Omnividente