Program Pascal pt mg 4 p.p.a 1ka06

Pretest no. 14

Const
    NilaiHuruf : array[0..2] of String = ('Program', 'Pascal', 'Pertamaku');
Var
    I : integer;
Begin
    For I:=0 to 2 Do
        Writeln('Nilai ke ',I,' = ',NilaiHuruf[I]);
End.

Catatan:
dalam pascal string ditulis pake kutip tunggal ( 'string' ); jangan pake kutip ganda ya


Activity
No.2

Program Penjumlahan_Matrik;
Usus Crt;
Var
 Matrik1, Matrik2, Hasil : Array[1..3, 1..2] of integer;
 i,j : integer;

Begin
 ClrScr;
 { input matrik ke satu }
 Writeln(' Elemen matrik satu');
 For i := 1 to 3 Do
  Begin
    For j := 1 to 2 Do
     Begin
       Writeln('Elemen baris -',i,' Kolom -',j,'= ');
       Readln(matrik1[i,j]);
     end;
  end;
     {input matrik ke dua}
    
 Writeln('input elemen matrik dua');
 For i := 1 to 3 Do
  Begin
    For j := 1 to 2 Do;
     Begin
       Writeln('Elemen baris -',i,' kolom -',j,'= ');
       Readln(matrik2[i,j]);
     end;
  end;
     {proses penjumlahan tiap elemen}
    
 For i := 1 to 3 Do
  Begin
    For j := 1 to 2 Do;
     Begin
       Hasil[i,j] := matrik1[i,j] + matrik2[i,j];
     End;
  End;
     {proses cetak hasil}
    
 For i := 1 to 3 Do;
  Begin
    For j := 1 to 2 Do
     Begin
       Write(Hasil[i,j]:6);
     end;
    Writeln;
  end;
 Readln;
End.

catatan : jangan dicopast!.

No. 4 transpose matriks
Kuncinya ada di blok hasil transpose.
ingat-ingat cara mentrasnpose matriks.