Конспект лекций по программированию для начинающих. Гладков В.П. - 208 стр.

UptoLike

ВУЗ: 

ПНИПУ | Пермь

Составители: 

Рубрика: 

210
var d, { наибольшая сторона }
d1:real; { текущая сторона }
i:integer; { номер вершины }
begin
d:=dlina(a[1,1],a[2,1],a[1,n],a[2,n]);
for i:=1 to n-1 do
begin d1:=dlina(a[1,i],a[2,i],a[1,i+1],a[2,i+1]);
if d<d1 then d:=d1
end;
stor:=d
end;
{ Длина наибольшей диагонали многоугольника }
function diag(a:mnogoug;n:integer):real;
var d, { наибольшая диагональ }
d1:real; { текущая диагональ }
i, { номер второй вершины диагонали }
j, { номер первой вершины диагонали }
m:integer; { номер последней вершины многоугольника куда можно
провести диагональ из вершины j }
begin
d:=0;
for j:=1 to n-2 do { n-2 номер последней вершины откуда еще можно
проводить непросмотренные диагонали}
begin
if j=1 then m:=n-1 else m:=n; { определение номера
последней
вершины куда можно провести диагональ из вершины j }
for i:=j+2 to m do
begin d1:=dlina(a[1,j],a[2,j],a[1,i],a[2,i]);
if d<d1 then d:=d1;
writeln(j,i)
end
end;
diag:=d
end;
{ Ввод многоугольника }
procedure wwod(var a:mnogoug;var n:integer);
var i:integer;
begin write('Введите количество вершин многоугольника ');
readln(n);
for i:=1 to n do
begin write('Введите координаты ',i,' вершины ');
readln(a[1,i],a[2,i])
end
end; 
                                        210

var       d, { наибольшая сторона }
          d1:real; { текущая сторона }
          i:integer; { номер вершины }
begin
   d:=dlina(a[1,1],a[2,1],a[1,n],a[2,n]);
   for i:=1 to n-1 do
   begin d1:=dlina(a[1,i],a[2,i],a[1,i+1],a[2,i+1]);
          if d

Страницы