laporan pratikum 10

ARRAY  PASCAL

CARA MEMBUAT APLIKASI ARRAY PADA FREE PASCAL

Langkah-langkah  Menjalankan Aplikasi Free Pascal :

1.     Klik kanan pada aplikasi Free Pascal

2.     Klik Run Administrator

Setelah aplikasi  nya terbuka klik File Klik new.

Aplikasi yang saya buat ini untuk entri data.

Kemudian masukan rumus seperti dibawah ini ;

Listining pascal :

Uses crt;

Var

Np:string[20];

Jd,i:byte;

Nb:array[1..50]of string;

Jb,ttl,hrg:array[1..50]of real;

Tot:real;

Lagi:char;

Label awal,akhir;

Begin

Awal:

                Clrscr;

                Writeln(‘Toko Bhinneka Electronic’);

                Writeln(‘___________________’);

                Write(‘masukan nama pembeli    :’);readln(np);

                Write(‘masukan jumlah data       :’);readln(jd);

For i:=1 to jd do

Begin

  Writeln(‘data ke- ‘);

  Write(‘nama barang     :’);readln(nb[i]);

  Write(‘jual beli              :’);readln(jb[i]);

  Write(‘harga                    :’);readln(hrg[i]);

End;

                Clrscr;

                Writeln(‘Toko Bhinneka Electronic’);

                Writeln(‘Tabel Penjualan Barang’);

                Writeln(‘_____________________________________________________’);

                Writeln(‘No. Nama pembeli   |   Nama barang    |    jumlah   |    Harga   |   Total’);

                Writeln(‘_____________________________________________________’);

                Tot:=0;

                For i:=1 to jd do

  Begin

  Ttl[i]:=hrg[i]*jb[i];

  Tot:=tot+ttl[i];

  End;

                Writeln(‘-----------------------------------------------------------------------------------‘);

                Writeln(total bayar= ‘,tot:30’);

                Writeln(‘-----------------------------------------------------------------------------------‘);

Write(‘Mau input data lagi[Y/T]=’);readln(lagi);

If (lagi=’Y’) or (lagi=’y’) then

Goto awal

Else

Goto akhir;

Akhir:

Readln;

End.

Contohnya bisa dilihat melalui gambar dibawah ini :

Input ;

        

Setelah dicetak dan tidak error tekan Ctrl+F9 untuk  menampilkan program output dibawah ini.

Didalam gambar dibawah ini saya membuat aplikasi array untuk entri data, dan saya membuat 3 data.

Setelah itu tekan “ENTER” untuk memunculkan table data seperti dibawah ini.

Kalau mau mengulang  input data data lagi tekan Y dan kalau tidak mau mengulang lagi tekan T.

ARRAY  C++

CARA MEMBUAT APLIKASI ARRAY PADA C++

Langkah-langkah Menjalankan Aplikasi C++ :

1.      Klik kanan pada aplikasi C++

2.      Klik Run Administrator

Setelah aplikasi nya terbuka klik File new.

Aplikasi yang saya buat ini adalah membuat entri data jumlah record.

Kemudian masukan rumus seperti dibawah ini ;

Listining pascal :

#include<iostream.h>

#include<conio.h>

Void main()

{

Clrscr();

Char nama[20][10];

Char npm[8][10];

Char kelas[5][10];

Int  jml;

Cout<<”Masukan jumlah recor :”;

Cin>>jml;

                Clrscr();

                For(int i=0;i<=jml;i++)

{

                Cout<<”\n input data ke- “<<  i <<”:”;

                Cout<<”\n nama ke- “<<i<<”:”;

                Cin>>nama[i];

Cout<<”\n npm ke- “<<i <<”:”;

Cin>>”\nama[i];

Cout<< “\n kelas ke- “<<i<<”:”;

Cin>>kas[i];

}

For(int j=0;j<=jml;j++)

{

Cout<<”\n input data ke- “<< j;

Cout<<”\n nama              :               “<<nama [j];

Cout<<”\n npm                                :               “<<npm [j];

Cout<<”\n kelas              :               “<<kelas [j];

Cout<<”\n===================================================\n”;

}

Getch();

}

Contohnya bisa dilihat seperti gambar dibawah ini :

Input ;

Setelah dicek tidak ada eror tekan Ctrl+F9 untuk menampilkan out put dibawah ini.

Didalam gambar  dibawah ini saya  memasukan  jumlah record nya 1.

Setelah itu tekan “ENTER” untuk memunculkan table data seperti dibawah ini.