Komentar

Jumat, 05 Juli 2013

Jarak Manhattan

Posted by M Habibie 19.54, under | No comments




var
 x1,x2 : longint;
 y1,y2 : longint;
 jarak : longint;




begin
 readln(x1, y1, x2, y2);
 jarak :=abs(x1-x2)+ abs(y1-y2);
 writeln(jarak);
end.

0 komentar:

Posting Komentar

Your Ip Address

Your IP Address

IP

Popular Post

Popular Posts

  • Hymne Titian Teras
    Kami putra jambi Siswa titian teras menjunjung tinggi citra pribadi, luhur Demi cita-cita Demi kemerdekaan Rela berkorban ...
  • Pandangan saya terhadap Pemilu 2014
    Dalam beberapa hari lagi kita (indonesia) akan melaksanakan yaitu pemilihan umum Presiden dan wakil presiden. akan tetapi sekarang ini ...
  • Apa itu PHP dalam Bahasa Pemograman??
    PHP   adalah teknologi yang diperkenalkan tahun 1994 oleh Rasmus Lerdorf. Beberapa versi awal yang tidak dipublikasikan digunakan pada ...
  • Floor And Ceiling
    var   floor , ceiling :  longint ;   n :  real   ;
  • While
    var   kal:  string ;  
  • Nomor Urut menggunakan Array
    type  carnivora=(Singa,Puma,Macan,Beruang,Serigala,Musang,Kucing); var  bb: carnivora;  x:array[singa..kucing] of byte;
  • Galaxy Note 10.1
    VIVAnews  - Melanjutkan inovasi seri Galaxy Note, Samsung kembali meluncurkan produk tablet terbarunya, Galaxy Note 10.1. Tablet penerus...
  • Nevelostos
    Futsal ,, (?) saya awal ny bermain futsal hanya iseng" saja , ketika suatu masalah yang mengakibatkan saya di skor dalam di SMA say...
  • Cinta
    Cinta merupakan Anugrah terindah Karna tanpa cinta hidup seseorang akan terasa hampa Cinta juga bisa membuat orang menjadi sisi ...
  • Luas Segitiga
    var   a: longint ;   t: longint ;   l: real ;