Program Procedure Perhitungan pada Turbo Pascal

Tweet

Program Procedure Perhitungan pada Turbo Pascal - Hai sobat, tak lupa saya juga menuliskan tutorial Turbo Pascal. Dengan perhitungan jumlah, pengurangan dan perkalian dengan procedure. Prosedur dan fungsi adalah suatu bagian program ( sub program ) yang memiliki tugas untuk mengerjakan deretan perintah tertentu. Dengan prosedur memungkinkan untuk melakukan suatu pekerjaan yang berulang – ulang tanpa harus menuliskan kembali instruksi – intruksi yang dilakukan. Pekerjaan yang dilakukan berulang –ulang. Prosedur dan fungsi bedanya kalau prosedur hasilnya tidak ditipedatakan sedangkan fungis hasilnya harus ditipedatakan.

Dibawah ini adalah contoh dengan perhitungan pengjumlahan, penguranngan dan perkalian.

Program Procedure Perhitungan pada Turbo Pascal:

program prosedur;
uses crt;
var
x,y,hasil :integer;
       procedure jumlah;
       begin
        writeln('Input Perhitungan');
        write('Inputkan X : ');read(x);
        write('Inputkan Y : ');read(y);
        hasil := x +y;
        writeln('Hasil Jumlah = ',hasil);
       end;
       procedure kurang;
       begin
        writeln;
        writeln('Input Penguran');
        write('Inputkan X : ');read(x);
        write('Inputkan Y : ');read(y);
        hasil := x - y;
        write('Hasil Jumlah = ',hasil);
       end;
       procedure kali;
       begin
        writeln;
        writeln;
        writeln('Input Perkalian');
        write('Inputkan X : ');read(x);
        write('Inputkan Y : ');read(y);
        hasil := x * y;
        write('Hasil Jumlah = ',hasil);
       end;
       begin
            clrscr;
            jumlah;
            kurang;
            kali;
readkey;
end.

Dengan hasil output:

Maka, demikianlah artikel Program Procedure Perhitungan pada Turbo Pascal, semoga dapat membantu Anda untuk lebih paham. Terima kasih telah membaca artikel diatas.