Лабораторная работа: Разработка математической модели на основе описанных методов

Вывод

' 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;

К-во Просмотров: 289
Бесплатно скачать Лабораторная работа: Разработка математической модели на основе описанных методов