Alogaritma dan Pemrogaman

    Halo perkenalkan nama saya MIFTAKHUL HUDA, NIM J1F113207, dari prodi ilmu komputer, saya berasal dari kota Batulicin, saya merasa "bejo" bisa masuk Universitas Lambung Mangkurat dan diterima di prodi Ilmu Komputer atau bahasa kerennya Computer Sciense, hehe. Alhamdulillah, akhirnya tugas ini bisa saya selesaikan, ini adalah tugas pertama saya di mata kuliah Alogaritma dan Pemrograman dengan dosen bapak Irwan Budiman S.T K.kom, tugasnya adalah membuat teorema phytagoras di pemrogaman pascal.  

       Nah apa sih itu pascal? mari kita bahas sedikit, Pascal merupakan bahasa pemrograman yang terstruktur , artinya bahasa pemrogramnnya dapat dipecah menjadi fungsi - fungsi kecil yang dapat digunakan berulang - ulang kali. Bahasa pascal adalah bahasa pemrograman tingkat tinggi yang dikembangkan oleh Niklaus Wirth di Zurich pada akhir 1960-an hingga awal 1970-an. Pascal merupakan bahasa pemrograman yang terstruktur, sehingga sering digunakan sebagai sarana awal untuk mempelajari teknik pemrograman komputer.Bahasa pemrograman ini penting untuk dipelajari karena banyak bahasa pemrograman lainnya menggunakan bahasa dasar Pascal , semisal Delphi . Oleh karena itu jika mempelajari bahasa pemrograman pascal akan sangat mudah mempelajari delhi , karena Delphi sendiri merupakan visual dari pascal sama halnya seperti Visual Basic. 

(sumber: http://belajar-pemrograman2.blogspot.com/2010/07/pengertian-pascal.html)

    Itu tadi sedikit pengertian tentang pascal, untuk melakukan pemrogaman pascal kita membutuhkan sebuah software pascal, yang saya ketahui saat ini ada 2 software yaitu Free pascal dan Turbo Pascal, untuk sekarang ini saya menggunakan Turbo Pascal. Oke langsung saja, berikut ini adalah script yang saya gunakan:

program teorema_phytagoras;

uses crt;

var a,t,m:real;

begin

clrscr;

writeln('----Aplikasi Sederhana Teorema Phytagoras By Huda----');

writelln('-----------------Untuk Memulai Tekan Enter-----------------');

readln;

write('Masukan Panjang Sisi  X =');

readln(a);

write('Masukan Panjang Sisi Y =');

readln(t);

m:=sqrt((a*a)+(t*t));

write('Panjang Sisi Z adalah =',m:3:2);

readln;

end.

Berikut adalah screenshotnya:

Ketika mengetik script di Turbo pascal (klik gambar untuk memperjelas).

Ketika menjalankan script (klik gambar untuk memperjelas)

 

Mungkin sampai disini yang bisa saya jelaskan, semoga artikel ini bermanfaat dan terimakasih atas kunjungannya :)

Referensi: 

http://nikmannasir.blogspot.com/2013/09/aplikasi-menghitung-panjang-sisi-miring.html

http://d-algo.blogspot.com/

http://belajar-pemrograman2.blogspot.com/2010/07/pengertian-pascal.html)