Turbo Pascal >> Mencari Nilai Maximum didalam sebuah Matrix


Ada banyak hal yang dapat kita lakukan dalam pemrograman, baik menggunakan bahasa pemrograman seperti Turbo Pascal. Salah satunya adalah operasi pada Matrix. Dalam hal ini saya akan memberikan cara untuk mencari nilai Maximum didalam sebuah Matrix yang mungkin berguna bagi teman yang baru belajar pemrograman seprti Turbo Pascal misalnya.

Ada beberapa hal yang harus kita perhatikan untuk membuat program MAX ini. Dari mendefinisikan variabel, membuat perulangan untuk input isi Matrix, kemudian melakukan operasi untuk menentukan bilangan terbesar dari data yang sudah dimasukkan. Listing program'nya bisa anda lihat seperti dibawah ini :

---------------------------------------------------------


Program MAXIMUM;
Uses CRT;

VAR
   ISI : Array[1..3,1..3] of Integer;
   MAX,BARIS,KOLOM : Integer;

BEGIN
     ClrScr;

{Input isi dari Matrix}
     WriteLn('MASUKKAN ISI MATRIX');
     For BARIS:=1 To 3 Do
     Begin
          For KOLOM:=1 To 3 Do
          Begin
               Write('ISI[',BARIS,',',KOLOM,'] = ');
               ReadLn(ISI[BARIS,KOLOM]);
          End;
     End;

{Operasi MAX}
     MAX:=ISI[BARIS,KOLOM];
     For BARIS:=1 To 3 Do
     Begin
          For KOLOM:=1 To 3 Do
          Begin
               IF ISI[BARIS,KOLOM]>MAX THEN
                  MAX:=ISI[BARIS,KOLOM];
          End;
     End;
     Write('NILAI MAKSIMUM DARI MATRIX TERSEBUT ADALAH : ',MAX);
     ReadLn;
END.

---------------------------------------------------------

Silahkan anda coba script diatas pada program Turbo Pascal yang anda miliki, atau anda juga dapat mencoba file yang sudah jadi dalam format PAS yang bisa anda download disini. Silahkan anda coba dan semakin sering anda mencoba maka tentu saja anda akan semakin,,, Capek.


Related Posts by Categories




Tidak ada komentar:

Poskan Komentar