Лабораторная работа: Разработка математической модели на основе описанных методов
Вывод
' dl- Наименьший радиус окружности!'
Если (dk=dj) и (dl=dk) тогда
Вывод
' dk и dj и dl- Наименьший радиус окружности!'
Листинг программы:
Program alex;
uses crt;
Type Point = Record
x,y : real;
End;
pnt = Array [1..20] Of Point;
var
q, nstr,cstr:string;
c:char;
D:pnt;
l,n,i,k,j,code:integer;
di,dj,dk,dl,Dmin:real;
begin
clrscr;
writeln(' Донецкий государственный институт искусственного интеллекта');
writeln;
writeln;