Sabtu, 09 Juli 2011

Jarak Manhattan | Free Pascal | Latihan


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.

Tidak ada komentar:

Posting Komentar

Habis baca alangkah baiknya untuk memberikan comment..
silahkan comment disini..
ingat !!
dilarang spamming, bicara PORNO atau SARA