Program algoritma penggabungan array dan record

    Oke gun'' semua...di sore menjelang malam ini saya mau berbagi tentang cara menggunakan type record alam array dengan menggunakan turbo pascal :-d.  Ada yang tahu caranya ga' gun  :-? ?

    1. Pertama gun buka turbo pascal

    2.trus buat program baru

    3.Tulislah coding di bawah ini ke turbo pascal

8-)  oke gun ... langsung saja kita  mulai !!!

     COODING

program record_mahasiswa;

uses crt ;
type
   mahasiswa = record
       nim       : string[8];
       nama      : string[30];
       jurusan   : string[20];
       tgl       : string[10];
       alamat    : string[30];
       notelp    : string[12];
    end;
var
    recMhs : array[1..50]of mahasiswa ;
    byk: byte;
    a,b: integer;
begin
    clrscr;
    textcolor(5);
    writeln ('*** TUGAS STRUKTUR DATA ***');
    writeln ('***************************');
    writeln;
    textcolor(7)
    write('Masukkan jumlah mahasiswa: '); readln(byk);
       for a:= 1 to byk do
     begin
    write('NIM          : '); readln(recMhs[a].nim);
    write('Nama         : '); readln(recMhs[a].nama);
    write('Jurusan      : '); readln(recMhs[a].jurusan);
    write('Tanggal Lahir: '); readln(recMhs[a].tgl);
    write('Alamat       : '); readln(recMhs[a].alamat);
    write('No Telpon    : '); readln(recMhs[a].notelp);
    writeln;
    writeln;
   end;
    textcolor(9);
    writeln('Data Yang Sudah di Inputkan');
    writeln;
       for b:= 1 to byk do
    begin
    writeln('NIM          : ',recMhs[b].nim);
    writeln('Nama         : ',recMhs[b].nama);
    writeln('Jurusan      : ',recMhs[b].jurusan);
    writeln('Tanggal Lahir: ',recMhs[b].tgl);
    writeln('Alamat       : ',recMhs[b].alamat);
    writeln('No Telpon    : ',recMhs[b].notelp);
    writeln;
   end;
    writeln;
    writeln;
    write (' *** STIKI INDONESIA *** ');
    readln;
end.

Contoh Program Pascal Type Array

                                                          

 
    Haiii teman - teman semuanya kali ini saya akan membahas tentang cara membuat sebuah program type array dngan menggunakan turbo pascal 7.1. Baiklah kita mulai saja cara membuatnya.

Coding Program

program Tugas_Struktur_Data;
uses crt;
var
    m:array[1..5,1..5] of integer;
    a,b,c,d:integer;
  begin
    clrscr;
         writeln('***************TUGAS*************');
         writeln('**********STRUKTUR DATA*********');
         writeln;
         writeln('Masukkan Jumlah Data : ');readln(c);
         writeln('Masukkan Jumlah Data : ');readln(d);
         writeln;
         for a := 1 to c do
            begin
        for b := 1 to d do
           begin
        writeln('Masukkan Baris Ke-',a,'Kolom Ke-',b,'=');readln(m[a,b]);
               end;
    end;
        writeln;
        writeln;
        writeln;
        writeln('<<< STIKI INDONESIA >>>');
   readln;
end.


Hasil Coding Yang Sudah Dijalankan atau Run...

 
Demikian program yang saya buat semoga bermanfaat bagi teman - teman semuanya,dan terima kasih sudah berkunjung ke blok saya...

 *** GOOD LUCK ***