Delphi или Pascal

[IMOON]

Помогите оформить задачу на Pascal:

Даны координаты (как целые от 1 до 8) двух полей шахматной доски. Определите, может ли конь за один ход перейти с одного из этих полей на другое

Я знаю что нужно задать массив костант с разницей координат и пройтись по этому массиву и проверить - совпадает ли полученные координаты с искомой

Пожалуста кто может штампануть эту программу на Pascal ответьте!!!!!!!

[puporev]

Какой массив, какие константы? Как ходит конь? он может за один ход попасть на поле, если разность одной координаты=2, а другой=1, естественно по модулю. В две строчки кода задача, мозг включи.

[5naip]

var
  x1,y1,x2,y2,dx,dy:integer;
begin
Write('x1:');
Readln(x1);
Write('y1:');
Readln(y1);
Write('x2:');
Readln(x2);
Write('y2:');
Readln(y2);

dx:=abs(x1-x2);
dy:=abs(y1-y2);

if ((dx=2) and (dy=1)) or ((dx=1) and (dy=2))
  then write('mo}|{et')
  else write('ne mo}|{et');

[5naip]

блин,страницу не обновлял...решили уже все...

[IMOON]

Спасибо огромное - выручил; Если тебе не трудно напиши код вот этого:

В массиве из 10 целых чисел подсчитать среднее геометрическое элементов, стоящих левее минимального.

[5naip]

ты бы еще рассказал,что такое "среднее геометрическое"...гуглил, нашел два разных определения.

[IMOON]

Средним геометрическим нескольких положительных вещественных чисел называется такое число, которым можно заменить каждое из данных чисел, чтобы их произведение не изменилось.Формула в файле.

Как я понял надо найти минимальный элемент и найти среднее, считая, что массив заканчивается этим элементом

[5naip]

var
  mass:array[1..10] of double;
  i:integer;
  min,sr_geom:double;
begin
min:=5;
for i:=1 to 10 do
  begin
    Randomize;
    mass[i]:=random(11);
    ListBox1.Items.Add(FloatToStr(mass[i]));
    if min > mass[i] then min:=mass[i];
  end;
sr_geom:=1;
for i:=1 to 10 do
  begin
    if mass[i] = min
      then
        begin
          sr_geom:=math.Power(sr_geom,1/i);
          ShowMessage(FloatToStr(sr_geom));
          exit;
        end;
    sr_geom:=mass[i]*sr_geom;
  end;
end;

только я не уверен, как оно ведет себя, если первое число в массиве и есть минимальное.

[IMOON]

Спасибо, ты меня очень выручил!!!!!=)

[IMOON]

А ты мог бы написать этот код в консольном виде, и массив чтобы задавался вручную.Я немного не понял с min:=5;