Подразделы

Другие разделы

Дата и время

11/12/2024 14:33:55

Авторизация

Имя:
Пароль:
Зарегистрироваться
Восстановить пароль
 

printРазбор задачи A. Расстояния в Плоском мире

Тема: реализация программы по заданному алгоритму
Сложность: простая

Алгоритм программы указан в условии задачи. Абсолютное значение (модуль) числа в языке Pascal можно вычислить с помощью функции abs.
var x1,y1,x2,y2:integer;
begin
  read(x1,y1,x2,y2);
  if y1=y2 then
    writeln(abs(x1-x2))
  else
    writeln(abs(x1)+abs(x2)+abs(y1-y2));
end.
Если функцию abs не использовать, то программа будет более сложной:
var x1,y1,x2,y2,r:integer;
begin
  read(x1,y1,x2,y2);
  if y1=y2 then
  begin
    r:=x1-x2;
    if r<0 then
      r:=-r;
  end
  else
  begin
    r:=y1-y2;
    if r<0 then
      r:=-r;
    if x1<0 then
      x1:=-x1;
    if x2<0 then
      x2:=-x2;
    r:=r+x1+x2;
  end;
  writeln(r);
end.
loading