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 ***