Меню сайта

Задача №2

Вывестиномер координаты пункта В наиболее удаленного от пункта А.

uses crt-

varmaxx,maxy,i,m,x,y,n:integer-

bx:array[1..1000]of integer-

by:array[1..1000]of integer-

bx1:array[1..1000]of integer-

by1:array[1..1000]of integer-

begin-

clrscr-

writeln(‘Введите координаты пункта А(x и y через Enter) ‘)-

readln(x)-

readln(y)-

writeln(‘Введите количество пунктов В’)-

readln(m)-

clrscr-

FOR i := 1 TO m do

begin

gotoxy(1,1)-writeln(‘Введите координаты пунктов B(x и y через Enter)’)-

readln(bx[i])-

readln(by[i])-

end-

FOR i := 1 TO m do

begin

bx1[i] :=SQR(bx[i]*bx[i])-

by1[i] :=SQR(by[i]*by[i])-

IF (bx1[i] &gt- x)AND (by1[i] &gt- y) AND (bx1[i] &gt- maxx) AND (by1[i] &gt- maxy) THEN

begin

maxx := bx1[i]-maxy := by1[i]- n := i-

end-

end-

clrscr-

writeln(‘Точка A ‘,x,’,’,y)-

writeln(‘Точки B ‘)-

for i:=1 to m do

begin

writeln(bx[i],’,’,by[i])-

end-

writeln(‘Наиболее удалена точка с координатами ‘,bx[n], ‘,’, by[n])-

end.

Категория: Общие | Дата: 29.12.12

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