Program Pascal (Newbie)

Jumpa lagi gan, artikel kali ini tentang pemrograman (PASCAL)...
yah, meskipun syntax"x cman di beri oleh kaka kelas sya waktu SMK dlu...  :D :D
lumayan lah buat di bagi"kan ke agan" zkalian...

Langsung saja di coba yah gan...






 NB : Work at Pascal, 1.5
Code :

Program Menu_Operasi_Bangun_ruang;<br /> uses wincrt;<br /> label akhir, awal;<br /> var<br /> menu:integer;<br /> alas,tinggi,jejari,sisi,luas:Real;<br /> pilih:Integer;<br /> begin<br /> begin<br /> awal :<br /> clrscr;<br /> gotoxy (33,2); writeln('======PILIH SALAH SATU======');<br /> gotoxy (13,4);writeln('1. Luas Segitiga');<br /> gotoxy (13,6);writeln('2. Luas Lingkaran'); <br /> gotoxy (13,16);writeln('created by stevie richard mebri');<br /> gotoxy (13,8);writeln('0. Selesai'); <br /> <br /> gotoxy (13,12);write('Pilih Menu No : '); read<br /> (menu);<br /> end;<br /> case menu of<br /> 1:begin<br /> clrscr;<br /> gotoxy (33,2);writeln('----Menghitung Luas Segitiga----');<br /> gotoxy (13,4);Write ('Masukkan alas:');<br /> Readln(alas);<br /> gotoxy (13,6);Write ('Masukkan tinggi:');<br /> Readln(tinggi);<br /> gotoxy (13,10);writeln('jadi 1/2*alas*tinggi');<br /> luas:=1/2*alas*tinggi;<br /> writeln('');<br /> gotoxy (13,11); Writeln('Luas Segitiga :',luas:1:0);<br /> readln;<br /> goto awal<br /> end;<br /> 2:begin<br /> clrscr;<br /> gotoxy (33,2);writeln('---Menghitung Luas Lingkaran----');<br /> gotoxy (13,4); Write ('Masukkan jejari: ');<br /> readln(jejari);<br /> gotoxy (13,5); writeln('phi=3.14');<br /> luas:=pi*sqr(jejari);<br /> writeln('');<br /> gotoxy (13,6);writeln('jadi luas lingkaran=phi*r*r(jejari)');<br /> gotoxy (13,7);Writeln('Luas Lingkaran : ',luas:2:2);<br /> readln;<br /> goto awal<br /> end;<br /> <br /> 0:begin<br /> clrscr;<br /> goto akhir<br /> end;<br /> end;<br /> akhir:<br /> readln;<br /> end.<br />

Sekian tutorial Pascal kali ini yah gan....
terima kasih telah berkunjung... :)

Cara mudah mengetahui ID FB orang !

Selamat sore gan, sbenarnya pngen dri kmarin" sharing tentang Cara Mudah Mengetahui ID fb Orang !, tapi karena cuaca di daerah sini (Timika) kurang mendukung, kdang crah truz tba"  hujan deraz....

yah, tpi untung lah warnet'x cuma dekat dengan rumah sya... :D :D
jadi qk trllu kebasahan dri sono nyampe zni (Warnet)...


Kelamaan yah, langsung sedot gan...

Pertama-tama sobat buka profil FB yg ingin diketahui ID'x, misalanya (https://facebook.com/dlovky), ini facebook saya gan...  :)

Pada address bar silahkan sobat ganti https//facebook.com/ dengan https://graph.facebook.com/dlovky...
tampilannya seperti ini gan...

{
   "id": "100000088410101",
   "name": "Rifkly Arnold Pongoh",
   "first_name": "Rifkly",
   "middle_name": "Arnold",
   "last_name": "Pongoh",
   "link": "http://www.facebook.com/DLovKy",
   "username": "DLovKy",
   "gender": "male",
   "locale": "id_ID"

sekian dlu gan, sya mau download lagu'x westlife dlu...  :)

Bagi agan yg pengen download lagu'x westlife silahkan ikuti link ini gan...

http://rifkly117.blogspot.com/2013/11/baiklah-kali-ini-saya-ingin-berbagi.html 

Terima kasih telah berkunjung...  :)

Web Filter !

Kirim Email Palsu !

Hacking Dengan DOS !

Hacking !

Chating menggunakan Telnet !

Cerita Defacer !

Newbie !

Cara Sederhana membuat virus PHP