Скачиваний:
288
Добавлен:
04.03.2014
Размер:
1.51 Кб
Скачать
Program s;
Uses CRT;
Const
nefiga=3;
Type
masiv=array[1..10] of integer;
var
_x,_y:masiv;
i_no_ne_I,j_no_ne_J,kadr1,kadr2 :integer;
pridurok :real;

Procedure Ya_dostau_iz_shirokih_shtanin_BIG_PROCEDURE(x,y:masiv;var pridurok:real; var kadr1,kadr2:integer);
begin
pridurok:=sqrt((_x[1]-_x[2])*(_x[1]-_x[2])+(_y[1]-_y[2])*(_y[1]-_y[2]));
kadr1:=1; kadr2:=2;
For i_no_ne_I:=1 to nefiga Do
For j_no_ne_J:=1 to nefiga Do
if (sqrt((_x[i_no_ne_I]-_x[j_no_ne_J])*(_x[i_no_ne_I]-_x[2])+
(_y[i_no_ne_I]-_y[j_no_ne_J])*(_y[i_no_ne_I]-_y[j_no_ne_J]))<pridurok)
and (sqrt((_x[i_no_ne_I]-_x[j_no_ne_J])*(_x[i_no_ne_I]-_x[2])+
(_y[i_no_ne_I]-_y[j_no_ne_J])*(_y[i_no_ne_I]-_y[j_no_ne_J]))<>0)
then begin pridurok:=sqrt((_x[i_no_ne_I]-_x[j_no_ne_J])*(_x[i_no_ne_I]-_x[2])+
(_y[i_no_ne_I]-_y[j_no_ne_J])*(_y[i_no_ne_I]-_y[j_no_ne_J]));
kadr1:=i_no_ne_I; kadr2:=j_no_ne_J end;
end;

begin
TextMode(co80);ClrScr;i_no_ne_I:=0;
For i_no_ne_I:=1 to nefiga Do begin
_x[i_no_ne_I]:=0;
_y[i_no_ne_I]:=0;
end;
For i_no_ne_I:=1 to nefiga Do begin
TextColor(green);Write('‚ўҐ¤ЁвҐ Є®®а¤Ё­ вг X ',i_no_ne_I,'-®©(Ґ©) в®зЄЁ: ');
TextColor(14);Read(_x[i_no_ne_I]);
TextColor(green);Write('‚ўҐ¤ЁвҐ Є®®а¤Ё­ вг Y ',i_no_ne_I,'-®©(Ґ©) в®зЄЁ: ');
TextColor(14);Read(_y[i_no_ne_I]);
Writeln;
end;
Ya_dostau_iz_shirokih_shtanin_BIG_PROCEDURE(_x,_y,pridurok,kadr1,kadr2);
Writeln(pridurok:4:2,' ¬Ґ¦¤г ',Kadr1,' Ё ',Kadr2);
ReadLn;readln

end.
Соседние файлы в папке Alex