Showing posts with label Algoritma dan pemrograman. Show all posts
Showing posts with label Algoritma dan pemrograman. Show all posts

Tuesday, 22 October 2013

Algoritma & Pemrograman (Case of-->Fungsi Percabangan)


Buat Program menampilkan grade nilai !


Saya akan membuat program pengelompokan keberhasilan studi mahasiswa

Jalankan Delphi 7 --> File --> New ---> Other--> Console Application --->
 Masukkan script

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
 var
  n:integer;
  grade, ket:string;
begin


  writeln ('Program Penentu Grade Pengelompokan Keberhasilan Stui Mahasiswa'); writeln; writeln;
  write ('Masukkan Nilai Anda = '); readln(n);
case n of
  0..25 : begin grade:='E'; ket:='GAGAL';
          writeln('Grade = ', grade);
          writeln('Keterangan  = ', ket); end;
  26..55 : begin grade:='D'; ket:='KURANG';
          writeln('Grade = ', grade);
          writeln('Keterangan  = ', ket); end;
  56..75 : begin grade:='C'; ket:='CUKUP';
          writeln('Grade = ', grade);
           writeln('Keterangan  = ', ket); end;
  76..85 : begin grade:='B'; ket:='BAIK';
          writeln('Grade = ', grade);
          writeln('Keterangan  = ', ket); end;
  86..100 : begin grade:='A'; ket:='SANGAT MEMUASKAN';
            writeln('Grade = ', grade);
            writeln('Keterangan  = ', ket); end;
else writeln('Nilai Salah');

end;
  readln;
end.


Jalankan dengan tekan Run/F9



ini Gambar setelah kita memasukkan nilai


2.Buat program bebas dengan menngunakan case of minimal 3 percabangan listing program & running.!

Kali ini saya akan membuat program pembagian kelas atau jurusan yang berdasarkan nilai..


Jalankan Delphi 7 --->> File---> New---> other--> Console Application
masukkan script

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
VAR
  nilai:integer;
  GRADE,Kelas:STRING;

begin
    write('nilai=');readln(nilai);
    case nilai of
    56..75:
      begin
      GRADE:='C';
          kelas :='IPS';
      end;
    76..85:
    begin
      GRADE:='B';
          kelas:='BAHASA';
       end;
    ELSE
    GRADE:='A';
          kelas:='IPA';
      end;
      WRITELN('GRADE=',GRADE,' Masuk Kelas=',kelas);{ TODO -oUser -cConsole Main : Insert code here }
      READLN
end.


Jalankan dengan tekan Run/F9
ini Gambar setelah kita memasukkan nilai


Baca selengkapnya

Algoritma dan Pemrograman ( Mengaplikasikan fungsi IF dengan membuat form kelulusan )

Tugas 1!
Yang pertama yang harus dilakukan adalah terutama sudah terinstalnya program atau software Borland Delphi, dan kali ini saya menggunakan yang versi Borland Delphi 7. :)
Berikut Step by Stepnya : 
Baca selengkapnya

Matriks.. buat tampilan



var
  matriks:array[1..5,1..5] of integer;
  maulana,baehaqi:integer;
Baca selengkapnya

Aplikasi Gaji

      1.Jalankan terlebih dahulu program Delphi anda
      2. Setelah itu kita akan default dibawa ke halaman new form blank..
      3. Nah saya akan membuat program .exe seperti ini 
Baca selengkapnya

Aplikasi Perulangan Berpangkat

           1.Jalankan terlebih dahulu program Delphi anda
           2. Setelah itu kita akan default dibawa ke halaman new form blank..
           3. Nah saya akan membuat program .exe seperti ini

Baca selengkapnya

Thursday, 3 October 2013

Program Untuk Menghitung Jumlah Tahun Kabisat Dalam Suatu Data

Hallo.. :D
Kali ini saya mendapatkan tugas UAS Struktur Data dari Mr.Hedi Ruswanto nih, berikut laporannya ..
Jika anda pemakai Lazarus(opensource) silahkan dibuka, tapi kali iinni saya akan menggunakan 
Borland Delphi 7. Baiklah, Buka programnya ---> lalu buat form seperti ini 
Baca selengkapnya
Bab 1 pendahuluan

Bab 1 pendahuluan

Hay guys :D , i want to write n' share again :D

1.1 Konsep Algoritma
Algoritma merupakan fondasi yang harus dikuasai oleh setiap programmer yang ingin menyelesaikan suatu masalah secara terstruktur, efektif, dan efisien, teristimewanya lagi bagi programmer yang ingin menyusun program komputer untuk menyelesaikan suatu persoalan.
1.1.1 Definisi
Baca selengkapnya