STMIK YADIKA BANGIL

Sekolah Tinggi Management Informatika dan Komputer.

TEKNIK INFORMATIKA

STMIK YADIKA BANGIL (Sekolah Tingi Management Informasi dan Komputer)

Selasa, 06 Januari 2015

PENULISAN RUMUS FAKTORIAL MENGGUNAKAN PROCEDURE & FUNCTION


program Project15;
{$APPTYPE CONSOLE}
uses
  SysUtils;
procedure faktorial(var fak, hasil:integer);
    var
      a:integer;
    begin
      hasil:=1;
      for a := 2 to fak do
      hasil:=hasil*a;
    end;
    var
      z,b,c,d,nminr:integer;
      f1,f2,f3:integer;
      x:real;
begin
  writeln ('NIM  : 114224018');
  writeln ('NAMA : KHOFSOTUN NURUL YAQIN');
  writeln ('================================');
  writeln ('CONTOH PENULISAN RUMUS FAKTORIAL');
  writeln ('================================');
  writeln ('');
  write('Masukkan N = '); readln(b);
  write('Masukkan R = '); readln(c);
  faktorial(b,f1);
  nminr:=b-c;
  faktorial(nminr,f2);
  faktorial(c,f3);
  x:=f1/f2*f3;
  writeln('Hasil      = ', x:3:2);
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

PENULISAN PROCEDURE & FUNCTION PADA FAKTORIAL

Faktorial dari bilangan asli n adalah hasil perkalian antara bilangan bulat positif yang kurang dari atau sama dengan n. Faktorial ditulis sebagai n! dan disebut n faktorial, tanda (!) disebut dengan notasi faktorial.


program Project14;
{$APPTYPE CONSOLE}
uses
  SysUtils;
procedure faktorial(var fak, hasil:integer);
    var
      a:integer;
    begin
      hasil:=1;
      for a := 2 to fak do
      hasil:=hasil*a;
    end;
    var
      b,c:integer;
begin
  writeln ('NIM  : 114224018');
  writeln ('NAMA : KHOFSOTUN NURUL YAQIN');
  writeln ('====================================');
  writeln ('CONTOH PENULISAN PROCEDURE FAKTORIAL');
  writeln ('====================================');
  writeln ('');
  write('Berapa Faktorial ? '); readln(b);
  faktorial(b,c);
  writeln(b ,' Faktorial = ', c);
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

PENULISAN PROCEDURE & FUNCTION MODEL PROCEDURE BY REFERENCE



program Project13;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
    X,Y,Z:integer;
  procedure jumlah(var A,B,C:integer);
    begin
      C:= A+B;
    end;
begin
  writeln ('NIM  : 114224018');
  writeln ('NAMA : KHOFSOTUN NURUL YAQIN');
  writeln ('=====================================');
  writeln ('CONTOH PENULISAN PROCEDURE & FUNCTION');
  writeln ('    MODEL PROCEDURE BY REFERENCE     ');
  writeln ('=====================================');
  writeln ('');
  write('Masukkan Nilai X = ');readln(X);
  write('Masukkan Nilai Y = ');readln(Y);
  jumlah(X,Y,Z);
  writeln('X + Y = ', Z);
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

PENULISAN PROCEDURE & FUNCTION MODEL PROCEDURE BY VALUE (VARIABEL GLOBAL)


program Project12;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
    X,Y:integer;
  procedure jumlah(A,B:integer) ;
    var
      C:integer;
    begin
      C:= A+B;
      writeln('Hasil Penjumlahan = ',C);
    end;
begin
  writeln ('NIM  : 114224018');
  writeln ('NAMA : KHOFSOTUN NURUL YAQIN');
  writeln ('=====================================');
  writeln ('CONTOH PENULISAN PROCEDURE & FUNCTION');
  writeln ('       MODELPROCEDURE BY VALUE       ');
  writeln ('=====================================');
  writeln ('');
  write('Masukkan Nilai X  = '); readln(X);
  write('Masukkan Nilai Y  = '); readln(Y);
  jumlah(X,Y);
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

PENULISAN PROCEDURE & FUNCTION BENTUK SEDERHANA (STANDART)

program Project11;
{$APPTYPE CONSOLE}
uses
  SysUtils;
procedure jumlah;
  var
    A,B,C:integer;
  begin
    writeln ('NIM  : 114224010');
    writeln ('NAMA : KHOFSOTUN NURUL YAQIN');
    writeln ('=====================================');
    writeln ('CONTOH PENULISAN PROCEDURE & FUNCTION');
    writeln ('          BENTUK SEDERHANA           ');
    writeln ('=====================================');
    writeln ('');
    write('Masukkan Nilai A = '); readln (A);
    write('Masukkan Nilai B = '); readln (B);
    C:= A+B ;
    write('A + B = ',C);
  end;
begin
  jumlah;
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

MATRIKS MENGGUNAKAN GAUSS JORDAN MODEL


Contoh 1:
program Project8;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  matrik:array[1..10,1..10] of integer;
  x,y:integer;
begin
  writeln('NIM  : 114224018');
  writeln('NAMA : KHOFSOTUN NURUL YAQIN');
  writeln ('=============================');
  writeln ('TAMPILAN MATRIKS GAUSS JORDAN');
  writeln ('=============================');
  writeln ('');
  for x := 1 to 5 do
  begin
    for y := 1 to 5 do
      begin
        matrik[x,y]:=0;
        if x >= y then matrik[x,y]:=x;
        write(matrik[x,y]:4);
      end;
      writeln;
  end;
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.


Contoh 2:
program Project10;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  matrik:array[1..10,1..10] of integer;
  x,y:integer;
begin
  writeln ('NIM  : 114224018');
  writeln ('NAMA : KHOFSOTUN NURUL YAQIN');
  writeln ('=============================');
  writeln ('TAMPILAN MATRIKS GAUSS JORDAN');
  writeln ('=============================');
  writeln ('');
  for x := 1 to 5 do
  begin
    for y := 1 to 5 do
      begin
        matrik[x,y]:=0;
        if x + y <= 6 then
          write('*':4)
        else
          write('1':4);
      end;
      writeln;
  end;
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

PENULISAN CODING ARRAY DUA DIMENSI PADA MATRIKS

Matriks dalam matematika merupakan kumpulan bilangan, simbol atau ekspresi berbentuk persegi panjang yang disusun menurut baris dan kolom. Bilangan-bilangan yang terdapat pada suatu matriks disebut dengan elemen atau disebut juga anggota dari suatu matriks. Contoh matriks dengan 2 baris dan 3 kolom yaitu sebagai berikut :


Matriks banyak dimanfaatkan untuk menyelesaikan berbagai permasalahan matematika misalnya dalam menemukan solusi masalah persamaan linear, transformasi linear yakni bentuk umum dari fungsi linear contohnya rotasi dalam 3 dimensi. Matriks juga seperti variabel biasa, sehingga matrikspun dapat dimanipulasi misalnya dikalikan, dijumlah, dikurangkan, serta didekomposisikan. Menggunakan representasi matriks, perhitungan dapat dilakukan dengan lebih terstruktur.




Berikut Contoh Penerapan Matriks pada Script Delphi 7 :
program Project6;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
    A,B,C:ARRAY[1..10,1..10] OF INTEGER;
    X,Y,KOL,BAR:INTEGER;
begin
  writeln('NIM  : 114224018');
  writeln('NAMA : KHOFSOTUN NURUL YAQIN');
  writeln('===============================');
  writeln('CONTOH SCRIPT ARRAY DUA DIMENSI');
  writeln('===============================');
  writeln('                              ');
  write('Masukkan Jumlah Kolom A = ' ); readln(KOL);
  write('Masukkan Jumlah Baris A = ' ); readln(BAR);
  writeln;
  writeln('Masukkan Data Matrik A' );
    for X := 1 to BAR do
      BEGIN
        for Y := 1 to KOL do
          BEGIN
            write('Matrik A [',x,':',Y,'] = ');
            readln(A[X,Y]);
          END;
      END;
  writeln('============================');
  write('Masukkan Jumlah Kolom B = ' ); readln(KOL);
  write('Masukkan Jumlah Baris B = ' ); readln(BAR);
  writeln;
  writeln('Masukkan Data Matrik B' );
    for X := 1 to BAR do
      BEGIN
        for Y := 1 to KOL do
          BEGIN
            write('Matrik B [',x,':',Y,'] = ');
            readln(B[X,Y]);
          END;
      END;
  writeln('============================');
    for X := 1 to BAR do
      BEGIN
        for Y := 1 to KOL do
          BEGIN
            C[X,Y]:=A[X,Y]+B[X,Y];
          END;
      END;
  writeln('============================');
   for X := 1 to BAR do
      BEGIN
        for Y := 1 to KOL do
          BEGIN
            write(C[X,Y]:7);
          END;
          writeln;
      END;
      readln;
      { TODO -oUser -cConsole Main : Insert code here }
end.

PENULISAN CODING ARRAY SATU DIMENSI MENGGUNAKAN FUNGSI WHILE

Perulangan ini mirip dengan perulangan Repeat Until tetapi pengecekannya berada di awal sebelum melakukan proses yang berulang. Perulangan ini berjalan selama kondisi pengecekan bernilai true. Jika kondisi telah mempunyai nilai false maka perulangan tidak dilakukan lagi.
Bentuk umum dari While Do adalah seperti berikut :
           While kondisi do
            Begin
            Perintah;
            Perintah;
            End;



Berikut ini contoh script program pada delphi 7 :
program Project5;
{$APPTYPE CONSOLE}
uses
  SysUtils;
Var
  tot,i,jum:integer;
  rata:real;
  nilai:array[1..10]of integer;
begin
  writeln('NIM  : 114224018');
  writeln('NAMA : KHOFSOTUN NURUL YAQIN');
  writeln('=================================');
  writeln('CONTOH SCRIPT PENENTUAN RATA-RATA');
  writeln('=================================');
  writeln('                              ');
  i:=1;tot:=0;
  write('Masukkan Jumlah Data = ');
  readln(jum);
  while i<=jum do
begin
  write('Masukkan nilai ke ', i ,':');
  readln(nilai[i]);
  tot:=tot+nilai[i];
  i:=i+1;
end;
  rata:=tot/jum;
  writeln('');
  writeln('Rata-Rata nilai = ', rata:4:1);
  readln;
end.

PENULISAN DASAR CODING FOR…

Perulangan dengan statement for adalah perulangan yang digunakan untuk melakukan suatu proses dalam sebuah blok program. Proses perulangan For – To – Do dimulai dengan nilai terkecil ke besar.
       Perulangan ini berjalan dengan menggunakan suatu variabel counter yang akan bertambah secara otomatis ketika perintah yang diulang telah selesai dikerjakan.
       Bentuk umum dari perulangan ini adalah :
            For counter := nilai awal To Nilai akhir Do
            Begin
            Perintah;
            Perintah;
            End;
       Perulangan ini akan berulang selama nilai variabel counter masih lebih kecil atau sama dengan nilai akhir.
         


Contoh Script :
program Project4;
{$APPTYPE CONSOLE}
uses
  SysUtils;

Var
    i : integer;
  begin
    writeln('NIM  : 114224018');
    writeln('NAMA : KHOFSOTUN NURUL YAQIN');
    writeln('=================================');
    writeln('CONTOH PENULISAN DASAR CODING FOR');
    writeln('=================================');
    writeln('                              ');
    for I := 1 to 10 do
      writeln(i,'Yadika');
      writeln('Bangil');
      Readln;
  End.

PENULISAN CODING IF…ELSE…

 Merupakan perintah yang akan dijalankan pada then jika kondisi pada If terpenuhi, sedangkan pada Else akan dilakukan jika kondisi tidak terpenuhi. Biasanya perintah ini untuk kondisi ganda.



Format :     If (Kondisi) then
                                   (Perintah)
                           Else
                                   (Perintah)
Contoh Script :
program Project3;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
    t:integer;
begin
  writeln('NIM  : 114224018');
  writeln('NAMA : KHOFSOTUN NURUL YAQIN');
  writeln('==============================');
  writeln('   PROGRAM SELEKSI SECURITY   ');
  writeln('==============================');
  writeln('                              ');
  write('Masukkan Tinggi Badan Anda = '); readln(t);
   If t > 169 then
      begin
        writeln('Tinggi Anda ' , t, ' cm');
        writeln('Anda Layak Bekerja di Kantor Kami...!!!');
        writeln('SELAMAT ANDA DITERIMA...!!!');
        writeln('==============================');
      end
    else
      begin
        writeln('Tinggi Anda ' , t, ' cm');
        writeln('Maaf Tinggi Badan Anda Kurang Mencukupi Persyaratan Kami...!!!');
        writeln('MOHON MAAF ANDA TIDAK DITERIMA...!!!');
        writeln('==============================');
      end;
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

PENULISAN CODING RUMUS MENGHITUNG LUAS & VOLUME


program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var
      r,t:integer;
      l_lingkaran,v_tabung,v_kerucut:real;
begin
  writeln('NIM  : 114224018');
  writeln('NAMA : KHOFSOTUN NURUL YAQIN');
  writeln('=================================');
  writeln('Program Menghitung Luas Lingkaran');
  writeln('=================================');
  write('Masukkan jari-jari = ');readln(r);
  l_lingkaran:=3.14*r;
  writeln('Luas Lingkaran     = ',l_lingkaran:5:2);
  writeln('---------------------------------');
  writeln('                                 ');
  writeln('================================');
  writeln('Program Menghitung Volume Tabung');
  writeln('================================');
  write('Masukkan jari-jari = ');readln(r);
  write('Masukkan tinggi    = ');readln(t);
  v_tabung:=3.14*r*r*t;
  writeln('Volume Tabung      = ',v_tabung:5:2);
  writeln('---------------------------------');
  writeln('                                 ');
  writeln('=================================');
  writeln('Program Menghitung Volume Kerucut');
  writeln('=================================');
  write('Masukkan jari-jari = ');readln(r);
  write('Masukkan tinggi    = ');readln(t);
  v_kerucut:=0.5*3.14*r*t*r;
  writeln('Volume Kerucut     = ',v_kerucut:6:2);
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

PENULISAN CODING IF...ELSE...IF

Apabila ada perintah if dalam perintah If yang lain. Kondisi ini dibutuhkan pada saat kriteria yang akan dimasukkan lebih dari satu.


    Format :        if (Kondisi 1) then else
                         if (Kondisi 2) then else
                              (Proses 1)
                         else (Proses 2);

Contoh Script :

program Project1;

{$APPTYPE CONSOLE}

uses

  SysUtils;

Var

    n:integer;

    g:string;

begin

  writeln('NIM  : 114224018');

  writeln('NAMA : KHOFSOTUN NURUL YAQIN');

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

  writeln('PROGRAM INPUT NILAI SISWA');

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

  writeln('                         ');

  write('Masukkan Nilai Anda = '); readln(n);

    if n >= 90 then g:= 'A' ELSE

    if n >= 80 then g:= 'B' ELSE

    if n >= 90 then g:= 'C' ELSE g:= 'D' ;

    writeln('GRADE = ' ,g);

    readln;

end.



Senin, 05 Januari 2015

INFORMATIKA

                  Informatika (Inggris: Informatics) merupakan disiplin ilmu yang mempelajari transformasi fakta berlambang yaitu data maupun informasi pada mesin berbasis komputasi. Disiplin ilmu ini mencakup beberapa macam bidang, termasuk di dalamnya: sistem informasi, ilmu komputer, ilmu informasi, teknik komputer dan aplikasi informasi dalam sistem informasi manajemen. Secara umum informatika mempelajari struktur, sifat, dan interaksi dari beberapa sistem yang dipakai untuk mengumpulkan data, memproses dan menyimpan hasil pemrosesan data, serta menampilkannya dalam bentuk informasi. Aspek dari informatika lebih luas dari sekedar sistem informasi berbasis komputer saja, tetapi masih banyak informasi yang tidak dan belum diproses dengan komputer.
Informatika mempunyai konsep dasar, teori, dan perkembangan aplikasi tersendiri. Informatika dapat mendukung dan berkaitan dengan aspek kognitif dan sosial, termasuk tentang pengaruh serta akibat sosial dari teknologi informasi pada umumnya. Penggunaan informasi dalam beberapa macam bidang, seperti bioinformatika, informatika medis, dan informasi yang mendukung ilmu perpustakaan, merupakan beberapa contoh yang lain dari bidang informatika.
Dalam ruang lingkup yang lebih luas, informatika meliputi beberapa aspek:
  • teori informasi yang mempelajari konsep matematis dari suatu informasi
  • ilmu informasi yang mempelajari tentang cara pengumpulan, klasifikasi, manipulasi penyimpanan, pengaksesan, dan penyebarluasan informasi untuk keperluan sosial dan kemasyarakatan secara menyeluruh
  • ilmu komputer dan teknik komputer yang mempelajari tentang pemrosesan, pengarsipan, dan penyebaran informasi dengan menggunakan teknologi informasi dan alat lain yang berbasis komputer.
  • sistem informasi yang mempelajari mengenai teknik pengembangan suatu sistem untuk mengolah berbagai macam informasi yang ada.
  • keamanan informasi ilmu yang mempelajari mengenai kajian proses mengamankan dan melindungi data pada yang ada pada sistem atau komputers.
  • informatika sosial yang mengkaji aspek sosial dari TIK dalam perubahan sosial dan organisasional, penggunaan teknologi dalam konteks sosial, dan cara kelembagaan sosial teknologi informasi yang dipengaruhi oleh kekuatan sosial dan praktek-praktek sosial/kemasyarakatan.