Cara Download Program Pascal (Newbie) Update Terbaru

Sedikit Info Seputar Program Pascal (Newbie) Terbaru 2017 - Hay gaes kali ini team Blog Android, kali ini akan membahas artikel dengan judul Program Pascal (Newbie), kami selaku Team Blog Android telah mempersiapkan artikel ini untuk sobat sobat yang menyukai Blog Android. semoga isi postingan tentang Artikel Newbie, Artikel Pemrograman, yang saya posting kali ini dapat dipahami dengan mudah serta memberi manfa'at bagi kalian semua, walaupun tidak sempurna setidaknya artikel kami memberi sedikit informasi kepada kalian semua. ok langsung simak aja sob
Judul: Berbagi Info Seputar Program Pascal (Newbie) Terbaru
link: Program Pascal (Newbie)

Berbagi Artikel Tentang Program Pascal (Newbie) Terbaru dan Terlengkap 2017

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... :)

Itulah sedikit Artikel Program Pascal (Newbie) terbaru dari kami

Semoga artikel Program Pascal (Newbie) yang saya posting kali ini, bisa memberi informasi untuk anda semua yang menyukai Blog Android. jangan lupa baca juga artikel-artikel lain dari kami.

Terima kasih Anda baru saja membaca Artikel Tentang Program Pascal (Newbie) Terbaru