2 задачи по Паскалю

[spankyham]

1. Даны три числа x,y,z. Если (x+y+z)>10, то умножить на 10 наименьшее из x,y,z. Иначе значения x,y оставить без изменения, а у числа z поменять знак на противоположный.
2. Определить, может ли шахматная ладья за один ход попасть из клетки с координатами (х1,у1) в клетку с координатами (х2,у2). Ладья ходит только в горизонтальном или вертикальном направлениях.

[Veselyn]

в первой задаче все написанно, запищи условие на английском и будет больше половины програмного кода

[spankyham]

спс за огромную помощь ХД

[Razorishe]

1)

var x,y,z:real;
begin
 write('Enter x, y and z: ');
 readln(x,y,z);
 if (x+y+z)>10 then
  begin
   if (x<y)and(x<z) then x:=x*10
   else if (y<x)and(y<z) then y:=y*10
   else if (z<x)and(z<y) then z:=z*10
  end
 else z:=-z;
 write('x=',x:4:2,' ','y=',y:4:2,' ','z=',z:4:2);
 readln
end.

[__STDC__]

Для второй задачи одна из пар координат должна быть одинакова.. т.е. если ладья перемещается по горизонтали не меняется координата x (x1=x2, строка), если по вертикали постоянным остается y (y1=y2, столбец).. т.е. что-то вроде if (x1=x2) or (y1=y2) then...

[spankyham]

Честно говоря, не понимаю какой вообще ответ должен быть во 2ой задаче и как он должен выглядеть....%) да, всяко тут надо оператор if, тока.....ээ.....:/

[Sazary]

spankyham, во второй задаче:
Есть исходные координаты (x1,y1) и есть конечные координаты (x2,y2).
Во-первых, нужно проверить, находится ли точка (x2,y2) на игровом поле. То есть каждая координата должна быть >=1 и <=8.
Во-вторых, раз это ладья, то очевидно, что если она сдвинулась по x, то по y она уже пойти не может.
То есть нужно, чтобы выполнялось условие: abs(x2-x1)=0 ИЛИ abs(y2-y1)=0

[__STDC__]

зачем там модуль?) лишние функции...

[Sazary]

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

зачем там модуль?) лишние функции...

Ну да, не нужен )
Когда писал, в голове был отголосок другой задачи..