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