Курсовая работа: Розробка засобами Delphi дидактичного ілюстративного матеріалу для розвязання задачі з аналітичної

.

Вирішимо систему через визначники (7):

; ; .

; .

Точка перетину діагоналей О має такі координати: .

Знаходимо довжину повної діагоналі BD (8):

;

довжину OD (9):

;

та довжину OB (10):

.

Тепер знайдемо відношення OB та OD (11):

; .

Відповідь : діагональ АС ділить діагональ BD з відношенням 75% до25%.

2 Сценарій розв’язання задачі в Delphi

2.1 Програмування в консольному режимі

2.1.1 Блок-схема алгоритму

2.1.2 Код додатку

program Project1;

{$APPTYPE CONSOLE}

uses

SysUtils;

var

x0,y0:integer;

xa,ya,xb,yb,xc,yc,xd,yd:real;

OB,OD,D,BD:real;

X1,Y1,X2,Y2,Z1,Z2,xO,yO:real;

OBP,ODP:integer;

begin

writeln('vvedite vershihy chetyrehugolnika');

readln(xa,ya,xb,yb,xc,yc,xd,yd);

X1:=yC-yA;Y1:=xA-xC;