Array dan Record

Assalamualaikum Wr. Wb

Baiklah pada postingan kali ini saya akan membahas tentang Algoritma dan Pemrograman, yang lebih khusus nya membahas tentang bahasa pascal. Disini  saya akan membuat sebuah program data mahasiswa yang mana program ini mengguanakan array dan record.

program data_mahasiswa;

uses crt;

type d_m =record

  nama,nim,grade :array[1..50]of string;

  nilai          :array[1..50]of real;

  end;

var a, b : longint;

    pilih: integer;

    data : d_m;



procedure input;

   begin

   clrscr;

   writeln('^---------------------------^');

   writeln('^ Masukan Jumlah Data :     ^');

   writeln('^---------------------------^');

   gotoxy(26,2);readln(b);

   for a:=1 to b do

   begin

   writeln('^---------------------------^');

   writeln('^ Data Ke                   ^');

   writeln('^---------------------------^');

   writeln('^ Nama    :                 ^');

   writeln('^ Nim     :                 ^');

   writeln('^ Nilai   :                 ^');

   writeln('^===========================^');

   gotoxy(11,4+7*(a-1));writeln(a);

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

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

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

   with data do

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

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

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

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

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

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

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

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

   writeln;

   end;

   end;

procedure output;

   begin

   clrscr;

   writeln('*---------------------------------------------------*');

   writeln('|                 Tampilan Data Mahasiswa           |');

   writeln('*----------*------------------*----------*----------*');

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

   writeln('|          |                  |          |          |');

   writeln('*          *                  *          *          *');

   with data do

   for a:=1 to b  do

   begin

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

   gotoxy(12,6+a);writeln('|');

   gotoxy(31,6+a);writeln('|');

   gotoxy(42,6+a);writeln('|');

   gotoxy(53,6+a);writeln('|');

   gotoxy(2,6+a);writeln(nim[a]);

   gotoxy(20,6+a);writeln(nama[a]);

   gotoxy(36,6+a);writeln(nilai[a]:2:0);

   gotoxy(46,6+a);writeln(grade[a]);

   end;

   writeln('*----------*------------------*----------*----------*');

   readln;

   end;

procedure menu;

    begin

    repeat

    clrscr;

    writeln;

    writeln;

    writeln('   *==========================================*');

    writeln('   |          Menu Utama                      |');

    writeln('   |------------------------------------------|');

    writeln('   | 1. Input Data                            |');

    writeln('   | 2. Tampilkan Data                        |');

    writeln('   | 3. Exit                                  |');

    writeln('   *==========================================*');

    writeln('   | Input Pilihan   :                        |');

    writeln('   *==========================================*');

    gotoxy(25,10);readln(pilih);

    case pilih of

    1:input;

    2:output;

    end;

    until pilih=(3);

    end;

begin

menu;

end.



2. outputan program



1. Tampilan program

       1.1 Tampilan menu utama

2. Tampilan input data

       1.2 Input datayang ingin ditampilkan



3. Menu utama

      1.3  Input pilihan tampikan data



4.Output program

          1.4 Tampilan data yang sudah diinputkan









Demikian postingan saya kali ini terimakasih sudah berkunjung

Wassalamualaikum wr. wb