Algoritma Perpangkatan Fungsi Rekursif dalam Pascal

program pangkatfungsirekursif;

function pangkat (a,n:integer):integer;
begin
if n = 0 then
 pangkat:=1
else
 pangkat:= a*pangkat (a,n-1)
end;

var
a,n:integer;

begin
writeln ('Bilangan Perangkatan');
write ('bilangan: ');readln (a);
write ('pangkat: '); readln (n);
writeln ('hasil perpangkat: ', pangkat(a,n));
readln;
end.

Lihat juga

Algoritma Perpangkatan prosedur iteratif dalam Pascal

Algoritma Perpangkatan prosedur iteratif dalam Pascal

Program pangkatprocedureitera;


procedure pangkat (b,n:integer; var a:integer)  ;
var
i:integer;
begin
a:=1;
if n = 0 then b:=1
 else
 if n>0 then
  begin
  for i:= 1 to n do
  a:=a*b;
  end;
end;

var
a,b,i,n:integer;

begin
writeln ('Bilangan Perangkatan');
write ('bilangan: ');readln (b);
write ('pangkat: '); readln (n);
pangkat(b,n,a);
writeln ('hasil perpangkat: ',a);
readln;
end.

Lihat Juga:

Algoritma Perpangkatan Fungsi Rekursif dalam Pascal

Algoritma Iteratif dan Rekursif Faktorial Menggunakan Fungsi/Prosedure dalam Pascal

1. Algoritma Program Iteratif Faktorial Menggunakan Fungsi 
program fungsiterafak;

var
n:integer;

function fak (n:integer): integer;
var
i,f:integer;

begin
f:=1;
i:=1;
while i<= n do
 begin
  f:= f*i;
  i:= i+1;
 end;
 fak:= f;
end;

begin
write ('nilai faktorial dari '); readln(n);
write ('nilai faktorial dari ', n, ' adalah ', fak(n));
writeln;
read(n);
end.


2. Algoritma Program Rekursif Faktorial Menggunakan Fungsi
program fungsirekurfak;

var
n:integer;

function fak (n:integer): integer;
begin
if n = 0 then
 fak:= 1
  else
  fak:= n*fak(n-1);
end;

begin
write ('nilai faktorial dari ');  readln(n);
write ('nilai faktorial dari ', n, ' adalah ', fak(n));
writeln;
read(n);
end.

3. Algoritma Program Iteratif Faktorial Menggunakan Prosedure


program proceiterafak;

var
n,fak:integer;

procedure faktorial (n:integer; var f:integer);
var
i:integer;

begin
f:=1;
i:=1;
while i<= n do
 begin
  f:= f*i;
  i:=i+1;
 end;
end;

begin
write ('nilai faktorial dari '); readln(n);
faktorial (n, fak);
write ('nilai faktorial dari ', n, ' adalah ', fak);
writeln;
read(n);
end.

Algoritma Konversi Angka ke Huruf dalam Pascal

program konversiangkahuruf;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
angka:integer;
huruf: string;

procedure satuan (angka: integer; var huruf: string);
begin
case angka of
0: huruf:= (' ');
1:huruf:= ('satu');
2:huruf:=('dua');
3:huruf:=('tiga');
4:huruf:= ('empat');
5:huruf:= ('lima');
6:huruf:='enam';
7:huruf:='tujuh';
8:huruf:='delapan';
9:huruf:='sembilan';
end;
end;

procedure belasan (angka: integer; var huruf: string);
begin
if angka=10 then huruf:= 'sepuluh'
else
 if angka =11 then huruf:= 'sebelas'
 else
  begin
  satuan (angka mod 10, huruf);
  huruf:= huruf + ' belas';
  end;
end;

procedure puluhan (angka:integer; var huruf: string);
var
a:string;

begin
if angka <10 then
satuan (angka, huruf)
 else
 if angka < 20 then
 belasan (angka, huruf)
  else
  begin
  satuan (angka div 10, huruf);
huruf:= huruf + ' puluh ' ;
a:= huruf;
satuan (angka mod 10, huruf);
huruf:= a + huruf;
end;
end;

procedure ratusan (angka: integer; var huruf: string);
var
a:string;

begin
if angka < 100 then
puluhan (angka, huruf)
else
if angka=100 then huruf:= 'seratus'
else
 if angka div 100 = 1 then
 begin
  puluhan (angka mod 100, huruf);
  huruf:= ' seratus ' +huruf;
 end
  else
  if angka mod 100 = 0 then
  begin
  satuan (angka div 100, huruf);
  huruf:= huruf + ' ratus '
  end
   else
    begin
    satuan (angka div 100, huruf);
    huruf:= huruf + ' ratus ';
    a:= huruf;
    puluhan (angka mod 100, huruf);
    huruf:=a + huruf;
    end;
end;

procedure ribuan (angka: integer; var huruf: string);
var
a:string;

begin
if angka=1000 then huruf:= 'seribu'
else
 if angka div 1000 = 1 then
 begin
  ratusan (angka mod 1000, huruf);
  huruf:= ' seribu ' +huruf;
 end
  else
  if angka mod 1000 =0 then
  begin
  satuan (angka div 1000, huruf);
  huruf:= huruf + ' ribu ';
  end
  else
  begin
   satuan (angka div 1000, huruf);
   huruf:= huruf + ' ribu ';
   a:= huruf;
   ratusan (angka mod 1000, huruf);
   huruf:=a + huruf;
  end;
end;

procedure konversi (angka: integer; var huruf: string);
begin
if (angka>= 0) and (angka < 10) then satuan (angka, huruf);
if (angka>=10) and (angka < 20) then belasan (angka, huruf);
if (angka>=20) and(angka < 100) then puluhan (angka, huruf);
if (angka>=100)and (angka < 1000) then ratusan (angka, huruf);
if (angka>=1000) and (angka < 10000) then ribuan (angka, huruf);
end;

begin
  { TODO -oUser -cConsole Main : Insert code here }

write ('masukkan angka :'); readln (angka);
konversi (angka, huruf);
writeln (huruf);
readln;
end.

Sistem Informasi dan Teknologi Informasi

Pengertian Sistem Informasi

Sistem informasi adalah gabungan yang terorganisasi dari manusia, perangkat lunak, perangkat keras, jaringan komunikasi dan sumber data yang saling berhubungan satu sama  lain dan bekerja sama secara harmonis untuk mencapai satu tujuan yaitu mengolah data menjadi informasi yang berguna.

1. Tujuan Sistem Informasi
Tujuan dari sistem informasi adalah menghasilkan informasi. Sistem informasi adalah data yang diolah menjadi bentuk yang berguna bagi para pemakainya. Data yang diolah saja tidak cukup dapat dikatakan sebagai suatu informasi. Untuk dapat berguna, maka informasi harus didukung oleh tiga pilar sebagai berikut: tepat kepada orangnya atau relevan (relevance), tepat waktu (timeliness), dan tepat nilainya atau akurat (accurate). Keluaran yang tidak didukung oleh tiga pilar ini tidak dapat dikatakan sebagai informasi yang berguna, tetapi merupakan sampah (garbage).

Pengertian Teknologi Inforamsi

Teknologi Informasi adalah suatu teknologi yang digunakan untuk mengolah data, termasuk memproses, mendapatkan, menyusun, menyimpan, memanipulasi data dalam berbagai cara untuk menghasilkan informasi yang berkualitas, yaitu informasi yang relevan, akurat dan tepat waktu, yang digunakan untuk keperluan pribadi, bisnis, dan pemerintahan dan merupakan informasi yang strategis untuk pengambilan keputusan.

Perbedaan antara Teknologi Informasi dengan Sistem Informasi

Sistem informasi mencangkup seluruh sistem didalam perusahaan secara keseluruhan termasuk teknologi informasi,akuntansi, manajemen, dll di dalamnya, sedangkan teknologi informasi ada untuk membantu/menunjang kegiatan sistem informasi, diantaranya pembuatan hardware, software, network, database, dll.