Program menghitung IP mahasiswa

Uses crt;

type larik = array[1..8] of integer;

type larek = array[1..8] of string;

var x,y,p : larik;

z,m : larek;

i, n : integer;

a,b,c,e : real;

begin

clrscr;

writeln ('============================================');

writeln ('= Nama        : Ni Putu Dana Prityaningsih =');

writeln ('= Jurusan     : Ilmu Komputer              =');

writeln ('= NIM         : 1206085002                 =');

writeln ('= Kelas       : B                          =');

writeln ('============================================');

write ('masukkan jumlah matkul  : '); readln (n);

writeln;

i := 0;

for i := 1 to n do

Program mengubah matriks standar menjadi matriks identitas

uses crt;

var baris, kolom, i, j, c : integer;

x : array[1..100,1..100] of integer;

begin

clrscr;

write ('masukkan baris matriks : '); readln (baris);

write ('masukkan kolom matriks : '); readln (kolom);

writeln ('matriks anda berordo ',baris,' X ',kolom);

for i := 1 to baris do

for j := 1 to kolom do

begin

write ('nilai [',i,',',j,'] : '); readln (x[i,j]);

end;

writeln;