Jarak Manhattan | Free Pascal | Latihan

Free Pascal Tutorial

Saatnya Latihan lagi.
Begini Soalnya.

Jarak Manhattan adalah jarak dari suatu titik menuju titik lainnya di bidang Cartesian dengan menyusuri bagian vertikal dan horizontal, tanpa pernah kembali. Secara sederhana sama dengan jumlah dari selisih absis dan selisih ordinat (jarak = |x1 - x2| + |y1 - y2|).

Pak Dengklek ingin pergi dari koordinat relatif (x1, y1) menuju (x2, y2) (-1.000.000.000 ≤ x1, y1, x2, y2 ≤ 1.000.000.000). Tentukan jarak Manhattan yang harus ditempuh Seseorang.

Format Masukan

Baris pertama berisi empat buah bilangan bulat x1, y1, x2, dan y2 yang masing-masing dipisahkan oleh sebuah spasi.

Format Keluaran

Sebuah baris berisi sebuah bilangan bulat yang merupakan jarak Manhattan dari kedua titik tersebut.

Input

-1 -1 1 1

Output

4

| Kunci Jawaban | Buka Bila Sangat Dibutuhkan |

var a, b, c, d, e, f : longint;
 
begin
 readln (a,b,c,d);
 e := a - c;
 f := b - d;
 writeln (abs(e) + abs(f));
end.