Friday, 1 November 2013

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

Pengaturan Brightness tidak fungsi secara normal

Pengaturan Brightness tidak fungsi secara normal pada Linux Ubuntu, ini  yang saya alami ketika sudah menginstal os tersebut. Hal tersebut membuat tingkat kecerahan yang sangat cerah pada laptopku sehingga mengakibatkan pemborosan energi pada baterry .

Baca selengkapnya

Modul Matematika Diskrit



Nih Materinya, oleh Pak Haqiqi Mufassir.Spd





Klick Disini untuk Download materi matematika diskrit
Baca selengkapnya

Matriks.. buat tampilan



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

Human Computer Interaction

Kumpulan materi Kuliah HCI oleh Pak Imron, ST

Klick Disini untuk Download materinya
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