Okey, berbicara mengenai pemrograman pascal maka tidak akan jauh dari alogaritma. Alogaritma bisa dikatakan sebagai system pemecahan atau penyelesaian masalah. Contohnya jika kita merasa terbebani jika harus mengitung perkalian/ penjumlahan/ pengurangan/ pembagian, maka kita akan membuat sebuah progam perkalian/ penjumlahan/ pengurangan/ pembagian, pada bilangan. Jika kita bisa membuat program sendiri meskipun sangat sederhana tapi itu dapat membuat kita bangga.
Pada pembuatan program kali ini software yang kita gunakan adalah Turbo Pascal 1.5/ TPW 1.5 . Jika laptop/ PC yang anda gunakan tidak bisa diinstall maka anda perlu mengganti PC/ Laptop anda mengganti 64 bit menjadi 32 bit.
Selanjutnya, adalah script program perkalian :
program Perkalian_Bilangan;
uses wincrt;
var
y, x, z : longint;
begin
writeln(' -------------------------- ');
writeln(' Program Perkalian ');
writeln(' -------------------------- ');
write (' Bilangan 1 : ');read(x);
write (' Bilangan 2 : ');read(y);
writeln(' -------------------------- ');
z:=x*y;
writeln(' Hasil : ',z);
end.
Untuk menyalinnya blok dan pencet tombol Ctrl+C kemudian pastekan pada lembar kerja TPW 1.5 dengan memencet tombol Ctrl+Ins/ Ctrl+Insert. Untuk menyimpannya klik Menu File => Save =>Pilih direktori/ tempat penyimpanan =>tentukan nama disertai ”.pas” sebagai type penyimpanan pascal.
Jika anda ingin merubahnya menjadi Program Pertambahan/ Pengurangan/ Pembagian, Anda cukup mengganti tulisan “Perkalian” menjadi “Pertambahan/ Pengurangan/ Pembagian” kemudian mengganti
Rumus “ z:=x*y; ” menjadi “ z:=x+y; ”
Jika Pengurangan maka Rumus “ z:=x*y; ” menjadi “ z:=x-y; ”
Jika Pembagian maka Rumus “ z:=x*y; ” menjadi “ z:=x/y; ”
Tidak ada komentar:
Posting Komentar