Source Code Program Data Mahasiswa Menggunakan Array dan Record Pada Pascal

Program data nilai mahasiswa

Berikut adalah source code dalam membuat program data mahasiswa menggunakan array dan record:

program Array_dan_Record;

Uses crt;

Type rec_data   = record

  nama,nim,grade  :Array[1..100]Of String;

  nilai           :Array[1..100]Of Real;

  end;

Var     i,n     :longint;

        pilih   :char;

        data    :rec_data;

procedure input;

        begin

        clrscr;

        writeln('>=======================================================<');

        writeln('>Masukkan Jumlah Data :                                 <');

        writeln('>=======================================================<');

        gotoxy(25,2);readln(n);

        for I:=1 to n do

        begin

        writeln('>=======================================================<');

        Writeln('>                      Data Ke                          <');

        Writeln('>-------------------------------------------------------<');

        Writeln('>Nama          :                                        <');

        Writeln('>NIM           :                                        <');

        writeln('>Nilai         :                                        <');

        writeln('>=======================================================<');

        gotoxy(32,4+7*(i-1));writeln(i);

        gotoxy(18,6+7*(i-1));readln(data.nama[i]);

        gotoxy(18,7+7*(i-1));readln(data.nim[i]);

        gotoxy(18,8+7*(i-1));readln(data.nilai[i]);

        with data do

        if (nilai[i]<0) or (nilai[i]>100) then grade[i]:='ERROR'else

        if nilai[i]>=80 then grade[i]:='A'else

        if nilai[i]>=75 then grade[i]:='B+'else

        if nilai[i]>=70 then grade[i]:='B'else

        if nilai[i]>=65 then grade[i]:='C+'else

        if nilai[i]>=60 then grade[i]:='C'else

        if nilai[i]>=50 then grade[i]:='D'else

        if nilai[i]<50 then grade[i]:='E';

        writeln;

        end;

        end;

procedure output;

        begin

            clrscr;

            writeln('+==============================================+');

            writeln('|            Laporan Data Mahasiswa            |');

            Writeln('+-----------+------------------+-------+-------+');

            writeln('|    NIM    |       Nama       | Nilai | Grade |');

            Writeln('|           |                  |       |       |');

            Writeln('+-----------+------------------+-------+-------+');

            with data do

            For i:=1 To n Do

            Begin

            gotoxy(1,6+i);writeln('|');

            gotoxy(13,6+i);writeln('|');

            gotoxy(32,6+i);writeln('|');

            gotoxy(40,6+i);writeln('|');

            gotoxy(48,6+i);writeln('|');

            gotoxy(3,6+i);Writeln(nim[i]);

            gotoxy(15,6+i);writeln(nama[i]);

            gotoxy(35,6+i);writeln(nilai[i]:2:0);

            gotoxy(43,6+i);writeln(grade[i]);

            end;

            Writeln('+===========+==================+=======+=======+');

            readln;

            end;

procedure menu;

        begin

        repeat

        clrscr;

        writeln('>======================================<');

        writeln('>              Menu Utama              <');

        writeln('>--------------------------------------<');

        writeln('>1.Masukkan Data                       <');

        writeln('>2.Lihat Data                          <');

        writeln('>3.Keluar                              <');

        writeln('>--------------------------------------<');

        writeln('>Masukkan Pilihan :                    <');

        writeln('>======================================<');

        gotoxy(21,8);readln(pilih);

        case pilih of

        '1':input;

        '2':output;

        end;

        until pilih='3';

        end;

begin

menu;

end.

            Untuk mengetahui bagaimana proses kerja pada program ini bisa klik disini.

Terima kasih telah berkunjung keblog ini.

Hasil Program Data Mahasiswa Menggunakan Array dan Record Pada Pascal

                Selamat datang para programmer yang sudah mau mampir kesini. Pada postingan kali ini saya akan memperlihatkan hasil codingan dari postingan sebelumnya yang bisa dilihat disini. Langsung saja berikut adalah hasilnya:

Tampilan awal program yang menampilkan menu utama yaitu berupa Masukkan data, Lihat data dan keluar.

Berikut adalah tampilan jika dalam memasukkan pilihan memasukkan angka 1, menampilkan perintah untuk memasukkan berapa jumlah data yang ingin dimasukkan.

Setelah memasukkan jumlah data yang ingin dimasukkan maka akan muncul data ke 1 sampai data ke-n. dalam memasukkan data ada inputtan Nama, NIM, dan Nilai.

Contoh tampilan setelah memasukkan data.

Setelah selesai mamasukkan data, data berikutnya akan muncul dibawahnya dan begitu seterusnya sampai sesuai dengan jumlah data yang dimasukkan sebelumnya.

Jika selesai menginput seluruh data maka secara otomatis akan kembali ketampilan menu utama diawal. Dan berikut adalah tampilan jika memilih pilihan yang kedua dengan cara menginputkan angka 2.

Jika dalam menu utama menginput angka 3 maka akan keluar program. Tetapi jika dalam menginput pilihan pada menu utama bukan angka 1,2 atau 3 maka akan kembali mengulang untuk memasukkan pilihan.

Sekian untuk postingan kali ini semoga bermanfaat bagi kalian semua, jangan lupa baca juga postingan lainnya. Sampai berjumpa lagi pada lain kesempatan.

Source Code Program Data Mahasiswa Menggunakan Array dan Record Pada Pascal

Tugas Praktikum Pertemuan 1

Program data nilai mahasiswa

Berikut adalah source code dalam membuat program data mahasiswa menggunakan array dan record:

program Array_dan_Record;

Uses crt;

Type rec_data   = record

  nama,nim,grade  :Array[1..100]Of String;

  nilai           :Array[1..100]Of Real;

  end;

Var     i,n     :longint;

        pilih   :char;

        data    :rec_data;

procedure input;

        begin

        clrscr;

        writeln('>=======================================================<');

        writeln('>Masukkan Jumlah Data :                                 <');

        writeln('>=======================================================<');

        gotoxy(25,2);readln(n);

        for I:=1 to n do

        begin

        writeln('>=======================================================<');

        Writeln('>                      Data Ke                          <');

        Writeln('>-------------------------------------------------------<');

        Writeln('>Nama          :                                        <');

        Writeln('>NIM           :                                        <');

        writeln('>Nilai         :                                        <');

        writeln('>=======================================================<');

        gotoxy(32,4+7*(i-1));writeln(i);

        gotoxy(18,6+7*(i-1));readln(data.nama[i]);

        gotoxy(18,7+7*(i-1));readln(data.nim[i]);

        gotoxy(18,8+7*(i-1));readln(data.nilai[i]);

        with data do

        if (nilai[i]<0 i="" nilai="" or="">100) then grade[i]:='ERROR'else

        if nilai[i]>=80 then grade[i]:='A'else

        if nilai[i]>=75 then grade[i]:='B+'else

        if nilai[i]>=70 then grade[i]:='B'else

        if nilai[i]>=65 then grade[i]:='C+'else

        if nilai[i]>=60 then grade[i]:='C'else

        if nilai[i]>=50 then grade[i]:='D'else

        if nilai[i]<50 grade="" i="" o:p="" then="">

        writeln;

        end;

        end;

procedure output;

        begin

            clrscr;

            writeln('+==============================================+');

            writeln('|            Laporan Data Mahasiswa            |');

            Writeln('+-----------+------------------+-------+-------+');

            writeln('|    NIM    |       Nama       | Nilai | Grade |');

            Writeln('|           |                  |       |       |');

            Writeln('+-----------+------------------+-------+-------+');

            with data do

            For i:=1 To n Do

            Begin

            gotoxy(1,6+i);writeln('|');

            gotoxy(13,6+i);writeln('|');

            gotoxy(32,6+i);writeln('|');

            gotoxy(40,6+i);writeln('|');

            gotoxy(48,6+i);writeln('|');

            gotoxy(3,6+i);Writeln(nim[i]);

            gotoxy(15,6+i);writeln(nama[i]);

            gotoxy(35,6+i);writeln(nilai[i]:2:0);

            gotoxy(43,6+i);writeln(grade[i]);

            end;

            Writeln('+===========+==================+=======+=======+');

            readln;

            end;

procedure menu;

        begin

        repeat

        clrscr;

        writeln('>======================================<');

        writeln('>              Menu Utama              <');

        writeln('>--------------------------------------<');

        writeln('>1.Masukkan Data                       <');

        writeln('>2.Lihat Data                          <');

        writeln('>3.Keluar                              <');

        writeln('>--------------------------------------<');

        writeln('>Masukkan Pilihan :                    <');

        writeln('>======================================<');

        gotoxy(21,8);readln(pilih);

        case pilih of

        '1':input;

        '2':output;

        end;

        until pilih='3';

        end;

begin

menu;

end.

            Untuk mengetahui bagaimana proses kerja pada program ini bisa klik disini.

Terima kasih telah berkunjung keblog ini.