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...
Saturday, July 14, 2012
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...
Subscribe to:
Posts (Atom)
