Contoh Program Kalkulator menggunakan Aplikasi Pascal

PENGERTIAN PASCAL

Pascal merupakan bahasa pemrograman yang terstruktur , artinya bahasa pemrogramnnya dapat dipecah menjadi fungsi - fungsi kecil yang dapat digunakan berulang - ulang kali . Pascal pertama kali diperkenalkan oleh Niklaus Wirth pada tahun 1971 . 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 . Bahasa Pemrograman pascal merupakan bahasa yang digunakan sebagai standar bahasa pemrograman bagi tim nasional olimpiade ( TOKI ) . Oleh karena itu sangat penting mempelajari bahasa pemrograman pascal . Versi Pascal yang sangat dikenal oleh orang banyak adalah Turbo Pascal buatan Borland International yang bekerja di lingkungan sistem operasi DOS . Sampai saat ini Turbo Pascal sudah mengeluarkan TurboPascal-7.0 sedangkan Pascal sendiri sudah mencapai versi 2.4.0 . Bahasa pemrograman ini juga dapat digunakan di banyak sistem operasi seperti , Windows , Linux , Mac OS , dll .

Nih saya kasih salah satu program dari aplikasi pascal, yang sudah saya coba sendiri, hasilnya .. WORK :D

Langsung aja, gpl nih coodingnya ..

Uses Crt:

Var

Operrator:String;

Nilai1,Nilai2:Real;

Hasil:Real;

keterangan:String;

Begin

Write('Masukan Operator :');Readln(Operrator);

Write('Masukan Bilangan Pertama :')Readln(Nilai1);

Write('Masukan Bilangan Kedua :')Readln(Nilai2);

Begin

IF Operrator ='Penjumlahan'Then

Begin

Hasil:=Nilai1+Nilai2;

Writeln;

Writeln(Hasil:5:2);

IF Operrator ='Pengurangan'Then

Begin

Hasil:=Nilai1-Nilai2;

Writeln;

Writeln(Hasil:5:2);

IF Operrator ='Pembagian'Then

Begin

Hasil:=Nilai1/Nilai2;

Writeln;

Writeln(Hasil:5:2);

End

Else

Hasil:Nilai1*Nilai2;

Writeln;

Writeln(Hasil:5:2);

End;

End.

Nih Hasilnya ... haha
Mendinglah hasilnya, dari pada tidak bisa program sama sekali :v

Jika ingin melihan hasil dari 'perkalian' di atas, Enter > kemudian jalankan kembali Programnya, keliatan deeeh hasilnya :D

Semoga aja program kali ini bermanfaat yaa ,.
jangan lupa, Coretannya di bawah jika kamu melihat ada kesalahan ..