Beberapa aplikasi dengan Pascal

Hari Minggu,harinya orang libur (yaiyalah,di kalender juga tertulis kalo hari minggu tuh tanggal merah,haha)

Orang orang banyak yang menghabiskan liburannya dengan berjalan jalan,ada yang ke Ancol,ke Dufan,ada juga yang bersilaturahmi ke keluarganya.

Hari Minggu ini,saya tidak ada rutinitas jalan jalan ke mana,hanya di rumah,dengan komputer sederhana tapi setia milik saya,iseng iseng saya membuat Proyek aplikasi sederhana dengan Bahasa Pascal.🙂

Di Postingan saya sebelumnya,dijelaskan (menurut imajiner seorang satrio) bahwa Pascal adalah bahasa Desktop Programming yang paling mudah untuk dipelajari.Berikut ada beberapa aplikasi sederhana yang sudah saya buat sendiri,masih belum menggunakan OOP (saya juga belum sampe sana belajarnya),mungkin bisa buat pembelajaran :

1.Aplikasi Pengurut Bintang

Aplikasi Pengurut Bintang adalah aplikasi untuk mengurutkan dari satu bintang,dua bintang,tiga bintang,sampai jumlah bintang terakhir sesuai dengan jumlah yang kalian inginkan.

Masih belum mengerti ? Mungkin bisa lihat gambar diatas.

Skrip yang digunakan cukup sederhana kok,silahkan dipelajari..

program bintang;
uses wincrt; {Saya pakai Turbo Pascal for Windows 1.5}
var a,b,c:integer; {Variabel a,b,c saya set ke integer}
begin
write('Masukkan Jumlah Bilangan..'); readln(c);
for a:=1 to c do
begin
for b:=1 to a do
write('*');
writeln;
end;
end.

2.Aplikasi Penentu Segitiga

Aplikasi ini digunakan untuk menentukan Jenis Segitiga yang ingin diketahui,dilihat dari panjang sisi A,sisi B,dan sisi C nya.

Sintaksnya mudah kok,silahkan dipelajari..🙂

program penentu_segitiga;
uses wincrt;
var a,b,c,i,j:integer;
begin
write('Masukkan Panjang Sisi A..'); readln(a);
write('Masukkan Panjang Sisi B..'); readln(b);
write('Masukkan Panjang Sisi C..'); readln(c);
i:=sqr(c);
j:=sqr(a) + sqr(b);
if (i<j) then
writeln('Segitiga Lancip')
else if (i=j) then
writeln('Segitiga Siku Siku')
else
writeln ('Segitiga Tumpul')
end.

3.Aplikasi Segitiga Pythagoras

Pernah belajar Teorema Pythagoras ? Itu lho rumus untuk mencari sisi miring sebuah segitiga siku siku.

Tertarik membuat aplikasinya ? Sangat mudah kok,apalagi jika menggunakan bahasa Pascal,berikut sintaksnya :

program pythagoras;
uses wincrt;
var a,b,c:integer;
begin
write('Masukkan Panjang Sisi A..'); readln(a);
write('Masukkan Panjang Sisi B..'); readln(b);
c:=a*a+b*b {Bisa juga dengan 'c:=sqr(a) + sqr(b);'}
writeln('Panjang Sisi C adalah..',sqrt(c));
end.

Inilah beberapa aplikasi yang sudah saya buat secara cuma cuma di hari Minggu,bila tergolong sederhana,harap dimaklumi karena Desain Aplikasi Pascal tidak sebagus aplikasi Visual Basic.

Intinya,isilah liburan kalian dengan kegiatan yang bermanfaat,atau sekedar belajar sesuatu,oke ?🙂

3 thoughts on “Beberapa aplikasi dengan Pascal

Leave a Reply

Please log in using one of these methods to post your comment:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s