Membuat program sederhana Procedure/Prosedur menggunakan Bahasa Pascal dan Bahasa C++

1.     Program Sederhana Procedure/Prosedur Menggunakan  Bahasa Pascal

Listing Program

program Praktikkum_Prosedure;

uses crt;

Procedure Persegi;

        var

                sisi:integer;

                luas,keliling:real;

        begin

                write('masukkan sisi :');

                readln(sisi);

                luas:=sisi*sisi;

                keliling:=sisi*4;

                writeln('Luas Persegi adalah : ',luas:0:0);

                writeln('Keliling Persegi adalah :',keliling:0:0);

        end;

begin

        clrscr;

        writeln('Program menghitung luas dan keliling Persegi');

        persegi;

        readln;

end.

Logika Program

           

            Pada kali ini kita membuat program sederhana tenntang prosedur atau procedure.

            Pertamakali kita memasukkan judul program kemudian menginputkan pembaca library crt, kemudian masukkan variabelnya dan setelah itu kita bisa memulai program.

program Praktikkum_Prosedure;

uses crt;

            Kemudian masukkan prosedur program beserta isi dari program tersebut, yang berisikan variabel program,begin untuk memulai program,writeln untuk output, readln untuk inputnya, serta jangan lupa untuk memasukkan end nya.

Procedure Persegi;

        var

                sisi:integer;

                luas,keliling:real;

        begin

                write('masukkan sisi :');

                readln(sisi);

                luas:=sisi*sisi;

                keliling:=sisi*4;

                writeln('Luas Persegi adalah : ',luas:0:0);

                writeln('Keliling Persegi adalah :',keliling:0:0);

        end;

            Masuk ke program utama dengan memasukkan perintah begin untuk memulai, clrscr untuk membersihkan layar pada saat menampilkan output setelah program selesai, serta menuliskan nama program yang kita buat dan jangan lupa untuk menutup program dengan end dan diakhiri dengan tanda titik (.).

begin

        clrscr;

        writeln('Program menghitung luas dan keliling Persegi');

        persegi;

        readln;

end.

            Data dapat dicompile dan running dengan menekan tombol kombinasi ataupun dengan memilih compile dan running pada menu bar. Dan program pun sudah selesai.

Output  Program

2. Program Sederhana Procedure/Prosedur Menggunakan  Bahasa C++

Listing Program

//program penjualan

#include<conio.h>

#include<iostream.h>

void

penjualan(float a,float b,float c)

{

clrscr();

float total,temp;

temp=b*c;

total=temp-(a*temp);

cout<<"Harga Kotor Barang :"<<temp<<endl;

cout<<"Harga Bersih Barang :"<<total<<endl;

}

// program utama

void main()

{

float diskon,harga,jumlah;

float total, temp;

cout<<"PROGRAM HITUNG HARGA BARANG"<<endl;

cout<<"=============================="<<endl<<endl;

cout<<"Masukkan harga barang :";

cin>>harga;

cout<<"Masukkan jumlah barang :";

cin>>jumlah;

cout<<"Masukkan Diskon barang :";

cin>>diskon;

cout<<"\n";

penjualan(diskon,harga,jumlah);

getch();

}

Logika Program

Pertama-tama yang kita masukkan file header nya berupa #include<iostream.h> & #include<conio.h>, setelah itu masukkan void penjualan beserta floatnya.

Kemudian masukkan tanda ({) sebagai tanda di mulainya program, masukkan clrscr untuk membersihkan layar, serta isi program yang lainnya.

void

penjualan(float a,float b,float c)

{

clrscr();

float total,temp;

temp=b*c;

total=temp-(a*temp);

cout<<"Harga Kotor Barang :"<<temp<<endl;

cout<<"Harga Bersih Barang :"<<total<<endl;

}

            Kemudian masuk ke program utama, yaitu dengan memasukkan void main, tanda untuk memulai program, float, serta perintah output dan input dalam program tersebut.

void main()

{

float diskon,harga,jumlah;

float total, temp;

cout<<"PROGRAM HITUNG HARGA BARANG"<<endl;

cout<<"=============================="<<endl<<endl;

cout<<"Masukkan harga barang :";

cin>>harga;

cout<<"Masukkan jumlah barang :";

cin>>jumlah;

cout<<"Masukkan Diskon barang :";

cin>>diskon;

cout<<"\n";

penjualan(diskon,harga,jumlah);

getch();

}

            Setelah itu program selesai dan program siap dijalankan.

Output  Program