Algoritma dan Pemograman (Bahasa Pascal)

Guys, gue cuma ingin berbagi ilmu, semoga artikel ini bisa menambah wawasan kalian dalam ilmu komputer.

Apa Algortima itu ?
Algoritma adalah urutan langkah-langkah logis penyelesaian masalah yang disusun secara sistematis dan logis”. Kata logis merupakan kata kunci dalam algoritma. Langkah-langkah dalam algoritma harus logis dan harus dapat ditentukan bernilai salah atau benar. Dalam beberapa konteks, algoritma adalah spesifikasi urutan langkah untuk melakukan pekerjaan tertentu. Pertimbangan dalam pemilihan algoritma adalah, pertama, algoritma haruslah benar. Artinya algoritma akan memberikan keluaran yang dikehendaki dari sejumlah masukan yang diberikan. Tidak peduli sebagus apapun algoritma, kalau memberikan keluaran yang salah, pastilah algoritma tersebut bukanlah algoritma yang baik.

Apa Beda Algoritma dan Program ?
Program adalah kumpulan pernyataan komputer, sedangkan metode dan tahapan sistematis dalam program adalah algoritma. Program ditulis dengan menggunakan bahasa pemrograman. Jadi bisa disebut bahwa program adalah suatu implementasi dari bahasa pemrograman. Beberapa pakar memberi formula bahwa :

Program = Algoritma + Bahasa (Struktur Data)

Bagaimanapun juga struktur data dan algoritma berhubungan sangat erat pada sebuah program. Algoritma yang baik tanpa pemilihan struktur data yang tepat akan membuat program menjadi kurang baik, demikian juga sebaliknya.

Ini salah satu contoh Algoritma "Program Perhitungan Nilai Mahasiswa"

Ini script algoritma nya tapi menggunakan "IF THEN ELSE" guys, check it out ! 

program Nilai_Mahasiswa3;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Var
    NIM, Nama, Mata_Kuliah    : String;
    N_Uas, NQ, NM, NT          : Integer;
    Na                                        : Real;
    NG                                       : Char;

begin
writeln ('--- Selamat Datang --- ');
readln;
writeln;
writeln ('Masukkan Data Nilai Anda Dibawah ini!');
readln;
write ('Nama           : '); readln (Nama);
write ('NIM            : '); readln (NIM);
write ('Mata Kuliah : '); readln (Mata_Kuliah);
write ('Nilai Tugas   : '); readln (NT);
write ('Nilai Quis     : '); readln (NQ);
write ('Nilai Mid      : '); readln (NM);
write ('Nilai UAS    : '); readln (N_UAS);

Na:= (0.2*NT)+(0.1*NQ)+(0.3*NM)+(0.3*N_UAS);

 If (Na > 80) Then
  NG:='A'
  Else
  If (Na > 65) Then
  NG:='B'
  Else
  If (Na > 50) Then
  NG:='C'
  Else
  If(Na > 35) Then
  NG:='D'
  Else
  If (Na < 35) Then
  NG:='E'
  Else

writeln;
writeln;
writeln;

writeln ('Berikut Ini Data Nilai Anda :');
readln;
writeln ('Nama           : ',Nama);
writeln ('NIM            : ',NIM);
writeln ('Mata Kuliah : ',Mata_Kuliah);
writeln ('Total Nilai    : ',Na:2:0);
writeln ('Nilai Grade  : ',NG);

writeln;
writeln;
readln;
writeln ('Creator By : Ahmad Zaid');
readln;

writeln ('--- Terima Kasih ---');
readln;

end.



Bisa juga menggunakan "Case Of" guys, ini script nya, check it out !

program Nilai_Mahasiswa2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Var
    NIM, Nama, Mata_Kuliah, NG    : String;
    N_Uas, NQ, NM, NT, NA          : Integer;


begin
writeln ('--- Selamat Datang --- ');
readln;
writeln;
writeln ('Masukkan Data Nilai Anda Dibawah ini!');
readln;
write ('Nama           : '); readln (Nama);
write ('NIM            : '); readln (NIM);
write ('Mata Kuliah : '); readln (Mata_Kuliah);
write ('Nilai Tugas   : '); readln (NT);
write ('Nilai Quis     : '); readln (NQ);
write ('Nilai Mid      : '); readln (NM);
write ('Nilai UAS    : '); readln (N_UAS);

Na:= (NT*10+NQ*20+N_UAS*30+NM*30)div 100;

Case Na of
0..35     : Ng := 'E';
36..50   : Ng := 'D';
51..65   : Ng := 'C';
66..80   : Ng := 'B';
81..100 : Ng := 'A';
end;


writeln;
writeln;

writeln ('Berikut Ini Data Nilai Anda :');
readln;
writeln ('Nama           : ',Nama);
writeln ('NIM             : ',NIM);
writeln ('Mata Kuliah  : ',Mata_Kuliah);
writeln ('Total Nilai     : ',Na);
writeln ('Nilai Grade   : ',NG);

writeln;
writeln;
readln;
writeln ('Creator By : Ahmad Zaid');
readln;

writeln ('--- Terima Kasih ---');readln;

end.


Bisa di download disini untuk script Algoritma nya, gue menggunakan Program "Delphi"..

"Semoga artikel ini bisa membantu lo semua guys.. "
 

Baca selengkapnya »»