Buku Panduan Turbo Pascal
Rabu, 17 September 2014
0
komentar
Mengenal Turbo Pascal—Awan Sundiawan
68
Contoh ke-1
listing program mambuat matrik:
Program Matrik1;Uses WinCrt;VarI,J :Integer;Matrik :array[1..5,1..4] of integer;BeginClrScr;{Bagian pemasukan data matriks}{pengulangan jumlah baris}FOR I:= 1 TO 5 DOBEGIN{pengulangan jumlah kolom}FOR J:=1 TO 4 DOBEGIN{pemasukan data matriks}WRITE(‘Data matriks ’,I,j,’: ‘,);Readln(Matrik[I,j]);END;END;{Bagian pencetakan matriks{pengulangan jumlah baris}FOR I:= 1 TO 5 DOBEGIN{pengulangan jumlah kolom}FOR J:=1 TO 4 DOBEGIN{pencetakan matriks}WRITE(Matrik[I,j]:3);END;{ganti baris pada matriks}WRITELN;END;END.
[] Membuat matriks dengan jumlah baris dan jumlah kolom ditentukan ketika program dijalankan(menunggu pemasukan jumlah baris dan jumlah kolom dari operator komputer)
Tanyakan jumlah baris dan jumlah kolom.
Siapkan pengulangan sesuai jumlah baris dan jumlah kolom
Isi data sesuai matriks yang dibuat
Tampilkan elemen data matriks sesuai matriks yang dibuat.
Mengenal Turbo Pascal—Awan Sundiawan
69
Flowchrat membuat matriksStartInputJmlbaris,JmlkolomI:=1 to JmlbarisJ:=1 to JmlkolomInputM[I,j]I:=1 to JmlbarisJ:=1 to JmlkolomWriteM[I,j]End
Contoh program ke-2:
Program Matrik2;Uses WinCrt;VarJmlbar,Jmlkol,I,J :Integer;Matriks :array[1..10,1..10]of integerBeginClrScr;{BAGIAN PEMASUKAN DATA MATRIKS}{Menentukan jumlah baris}Write(‘Jumlah Baris: ’};Readln(jmlbar);{Menentukan jumlah kolom}Write(‘Jumlah Kolom: ‘);Readln(jmlkol);{Pengulangan baris}For I:=1 to Jmlbar doBegin{Pengulangan kolom}For J:=1 to Jmlkol doBegin{Pemasukan data matriks}Write(‘Data ke-‘,I,’,’,J,’: ‘);Readln(Matriks[I,j]);End;End;{BAGIAN PENCETAKAN DATA MATRIKS}{Pengulangan baris}For I:=1 to Jmlbar doBegin{Pengulangan kolom}For J:=1 to Jmlkol doBegin{Pencetakan data matriks}Write(Matriks[I,j]);End;{ganti baris pada matriks}Writeln;End;End.
(sumber : http://salmanfz.wordpress.com/2012/04/15/sejarah-turbo-pascal/)
Categories:
