PROGRAM MENGHITUNG BILANGAN PANGKAT MENGGUNAKAN BAHASA PEMROGRAMAN PASCAL

uses wincrt;
var hasil,i,bil,pangkat:integer;
begin
     clrscr;
     write('Input Bilangan = ');
     readln(bil);
     write('Input pangkat  = ');
     readln(pangkat);
     hasil:=1;
     write(bil,' ^ ',pangkat,' = ');
     for i:=1 to pangkat do begin
         if i<> pangkat then write(bil,' * ') else write(bil,' = ');
         hasil:=hasil*bil
     end;
     write(hasil);
end.

Read More

PROGRAM INPUT MATRIK ARRAY MENGGUNAKAN BAHASA PEMROGRAMAN PASCAL

Program InputMatrik;
Uses Wincrt;
Type 
   Matrik=array[1..100,1..100] of integer;
Var
   matriku:matrik;
   b,k,baris,kolom:integer;
begin
   {Kode membatasi input <= 100} 
   repeat
     clrscr;
     writeln('Input Jumlah Baris dan Kolom <= 100');
     write('Input Jumlah Baris = ');
     readln(baris);
     write('Input Jumlah Kolom = ');
     readln(kolom);
   until (baris<=100) and (kolom<=100);
   {Kode untuk input data}
   for b:=1 to baris do begin
      for k:= 1 to kolom do begin
         Write('Data Baris Ke ',b,' Kolom ke ',k,' = ');
         readln(matriku[b,k]);
      end;
      writeln;
   end;
   {Kode untuk output Data}
   for b:=1 to baris do begin
      for k:= 1 to kolom do begin
         Write(matriku[b,k]:4);
      end;
      writeln;
   end;
end.

Read More

PROGRAM PENJUMLAHAN DAN PENGURANGAN MATRIK (ARRAY DUA DIMENSI) MENGGUNAKAN BAHASA PEMROGRAMAN PASCAL

Program ArrayDuaDimensi2;
uses wincrt;
Var
   matrik1,matrik2:array[1..2,1..2] of byte;
   hkurang,htambah:array[1..2,1..2] of integer;
   b,k:byte;
procedure inputmatrik;
begin
     writeln('Input Isi Matrik 1 ');
     for b:= 1 to 2 do begin
         for k:= 1 to 2 do begin
             write('Isi Matrik Baris ',b,' Kolom ',k,' = ');
             readln(matrik1[b,k]);
         end;
     end;
     writeln('Input Isi Matrik 2 ');
     for b:= 1 to 2 do begin
         for k:= 1 to 2 do begin
             write('Isi Matrik Baris ',b,' Kolom ',k,' = ');
             readln(matrik2[b,k]);
         end;
     end;
end;
procedure tambahmatrik;
begin
     for b:= 1 to 2 do begin
         for k:= 1 to 2 do begin
             htambah[b,k]:=matrik1[b,k]+matrik2[b,k];
         end;
     end;     
end;
procedure kurangmatrik;
begin
     for b:= 1 to 2 do begin
         for k:= 1 to 2 do begin
             hkurang[b,k]:=matrik1[b,k]-matrik2[b,k];
         end;
     end;     
end;
procedure CetakMatrik;
begin
     clrscr;
     writeln('Isi Matrik 1 ');
     for b:= 1 to 2 do begin
         for k:= 1 to 2 do begin
             write(matrik1[b,k]:4);
         end;
         writeln;
     end;
     write('tekan enter untuk melihat isi matrik 2');
     readln;
     writeln;
     writeln('Isi Matrik 2 ');
     for b:= 1 to 2 do begin
         for k:= 1 to 2 do begin
             write(matrik2[b,k]:4);
         end;
         writeln;
     end;
     write('tekan enter untuk melihat hasil penjumlahan');
     readln;
     writeln;
     writeln('Hasil Penjumlahan ');
     for b:= 1 to 2 do begin
         for k:= 1 to 2 do begin
             write(htambah[b,k]:4);
         end;
         writeln;
     end;
     write('tekan enter untuk melihat hasil pengurangan');
     readln;
     writeln;
     writeln('Hasil pengurangan ');
     for b:= 1 to 2 do begin
         for k:= 1 to 2 do begin
             write(hkurang[b,k]:4);
         end;
         writeln;
     end;
     writeln;
     write('tekan enter untuk keluar');
     readln;
end;
{Program Utama}
begin
     inputmatrik;
     tambahmatrik;
     kurangmatrik;
     cetakmatrik;     
End.

Read More