Помогите решить задачи!

[щдуп]

Задача №1
4 точки заданы своими координатами Х={x1,x2},Y={y1,y2},z={z1,z2},
p={p1,p2}. Выяснить какие из них находятся на максимально расстоянии друг от друга и вывести на печать значение этого растаяния. Вычисление расстояния между 2мя точка оформить ввиде Function. Исходные данные x={4.8,-3}, y={-6.5,1.2}, z={-3.7,-4.5},p={7.8,2}
Задача №2
дан файл F, компоненты которого являются целыми числами, получить в файле g все компоненты файла f являются точными квадратами.

[Stilet]

Задача №1

Тиорему Пифагора знаешь? по ней и считай гипотенузу - это и будет длина. точки отрезка гипотенузы тебе даны.

Задача №2

Ну ты с файлами работать умеешь? Считывать записывать? Если нет то пройдись по форуму для начала этому научись, тут примеров достаточно много.

[Stilet]

Вот пример:

ax:=30;ay:=12.5;
 bx:=4;by:=0.56;
 l:=sqrt(sqr(abs(ax-bx))+sqr(abs(ay-by)));

l - длина отрезка

[eoln]

Сообщение от Stilet

Вот пример:

ax:=30;ay:=12.5;
 bx:=4;by:=0.56;
 l:=sqrt(sqr(abs(ax-bx))+sqr(abs(ay-by)));

l - длина отрезка

Ну я бы модуль abs брать не стал - разность координат ведь потом в квадрат возводится, а эт число положительное.

Во второй задаче можно так

//дано число А -проверить его
tmp1 := round(sqrt(A));
if sqr(tmp1) = A then ... //число А подходит

[Stilet]

eoln

Эт я по старой привычке )

[лена_90=)]

помогите пожалуйста с паскалем!
1. Дан вещественный вектор Х(n) (где n – четное число) и вещественное число R. Узнать, сколько точек c координатами (х1, х2), (х3, х4), …, (хn-1, хn) принадлежат кругу радиуса R с центром в начале координат

[Stepler]

Сначала ищем длинну отрезка от начала координат к точке (x,y).
D=((Xo-X)^2 + (Yo-y)^2)^0.5;
Где (Xo,Yo) координати начала координат.
(X,Y) координати точки.
Дальше проверяем если D<=R то тогда точка пренадлежит кругу, в противном случае не принадлежит!

[Stepler]

оу......а как начать эту программу?

Начни с заполненя массива числами, потом в цыкле по очереди бери каждую точку считай длинну этой точки к началу координат по формуле
D=((Xo-X)^2 + (Yo-y)^2)^0.5;
потом смотри выполняеться ли условие D<=R!

[Greblin]

Держи свой код. Можно даже без массива обойтись

program DotCount;

var x, y: real;
    R, sqrR, D: real;
    n: integer;
    i: integer;
    count: integer;

begin
writeln('Vvedite chislo tochek: ');
readln(n);
writeln('Vvedite radius kruga: ');
readln(R);
sqrR := R * R;
count := 0;
writeln('Vvedite koordinati tochek: ');
for i := 1 to n do
  begin
  readln(x, y);
  D := x * x + y * y;
  if D <= sqrR then
    count := count + 1;
  end;
writeln(count);
end.

[лена_90=)]

огромное спасибо!!!!!!!!!!!!!