Showing posts with label kuliah. Show all posts
Showing posts with label kuliah. 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

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

Wednesday, 9 October 2013

Yang perlu dipersiapkan untuk belajar java

Yang perlu dipersiapkan untuk belajar java

Hallo assalamu'alaikum..saya menulis lagi nih, mudah2an bermanfaat ya khususnya saya pribadi :D
Baiklah mari dimulai dengan basmalah terlebih dahulu biar mendapat kemudahan dariNYA .
Untuk memulai  belajar java kita harus memersiapkan peralatannya dulu untuk berperang.hehe :)
Berikut peralatannya :

1. Tentunya PC atau laptop
2. Java Development Kit atau biasa disingkat dengan JDK
        Java Development Kit merupakan perangka
Baca selengkapnya