Меню сайта

Задача №1

Построениетреугольника по трем точкам.

uses crt,graph-

varx,x1,x2,y,y1,y2,gd,gm:integer-

a,b,c:real-

begin

clrscr-

writeln(‘Введите координаты первой точки (X и Y) послекаждой коор. ENTER’)-

readln(x)-

readln(y)-

writeln(‘Введите координаты второй точки (X1 и Y1)после каждой коор. ENTER’)-

readln(x1)-

readln(y1)-

writeln(‘Введите координаты третьей точки (X2 и Y2)после каждой коор. ENTER’)-

readln(x2)-

readln(y2)-

a:=sqrt((x-x1)*(x-x1)+(y-y1)*(y-y1))-

b:=sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2))-

c:=sqrt((x2-x)*(x2-x)+(y2-y)*(y2-y))-

if (a+b&gt-c) and(c+b&gt-a) and (a+c&gt-b) then

begin

writeln(‘Построение треугольника провести можно ‘)-

initgraph(gd,gm,’c:&#92-bp&#92-bgi’)-

line(x,y,x1,y1)-

line(x1,y1,x2,y2)-

line(x2,y2,x,y)-

delay(3000)-

end

else writeln(‘Треугольник не построится ‘)-

end.

Категория: Графика в Паскале | Дата: 26.11.12

Меню раздела
Блок