Menghitung Nilai Uas Dan Hasil Gradenya Menggunakan Pascal 1.5

Posting By : Muhammad Imam Makhrus      

               Hallo lagi buat semua pengunjung setia  Wolley Blogs, bulan agustus ini anda semua akan kebanjiran source code pemprograman pascal yang sangat bermanfaat, kenapa saya katakan demikian ? tentunya ada hubungannya dengan judul kita saat ini, dimana kita akan membuat grade nilai menggunakan pemprograman pascal


Pada contoh berikut kita akan membuat script grade pada nilai siswa data dari pascal, di mana kita menggunakan case untuk mengetahui nilai grade nya.


Oke sekarang mari kita ke TKP dan lakukan sesuai langkah yang saya berikan, Go ..!!!

1.jika anda belum download tpw 1.5 atau pascal ...
   anda bisa download di sini TPW 1.5 Rar

2.jika sudah terinstal :
   maka copykan source code nya yang ada dibawah ini :

   program pemprograman_pascal;
uses wincrt;

var
    Lagi : char;
    Nilai : integer;
    Grade, NIS, Nama, Jurusan, Matapelajaran : string;

begin
clrscr;
    repeat
        writeln(' -------------------------------------');
        writeln('|         Tugas Pemprogram Pascal     |');
        writeln('|             Nilai UAS               |');
        writeln('|  Menggunakan Grade Nilai A  B  C D  |');
        writeln(' -------------------------------------');
        write  ('   NAMA                  : '); readln(Nama);
        write  ('   NIS                   : '); readln(NIS);
        write  ('   JURUSAN               : '); readln(Jurusan);
        write  ('   MATA PELAJARAN        : '); readln(Matapelajaran);
        writeln('   NILAI MATA PELAJARAN    ');
        write  ('   MASUKAN NILAI 1 - 10  : '); readln(Nilai);
       
        case Nilai of
            1..3    : Grade := 'A';
            4..5    : Grade := 'B';
            6..7    : Grade := 'C';
            8..10   : Grade := 'D';
        end;
        writeln;
        writeln('   Grade                 : ', Grade);
        writeln('   Apakah Anda Ingin Melakukan ');
        write  ('   Perhitungan Lagie [ Y / T ] : '); readln(Lagi);
        Lagi := upcase(Lagi);
        writeln;
        writeln(' -------------------------------------');
        writeln('|           Developers By :           |');
        writeln('|    Muhammad Imam Makhrus ( 7528 )   |');
        writeln('|      Copyright 2013 Nilai UAS       |');
        writeln(' -------------------------------------');
        writeln;
        until upcase(Lagi) <> 'Y';
end.

3.setelah itu akan run , maka akan terlihat seperti terlihat tampilan dibawah ini :
  

  program diatas mempunya sistem logika nya adalah
  jika nilai 1 - 3 maka grade nya adalah A , jika nilai 4 - 5 maka gradenya adalah B , jika
  nilai 6 - 7 maka grade nya Adalah C , jika nilai 8 - 10 maka gradenya Adalah C.

4. save program yang buat dengan nama terserah anda.

   Sekian Source Code Pascal -nya, semoga bermanfaat dan selamat mencoba bagi sahabat Wolley Blogs

  

Read More »

1 Comment

Unknown

Program Mengetahui Prima Dengan Netbeans

Contoh program  menggunakan netbeans 7.0 contoh program yang kami buat adalah mengecek apakah bilangan prima atau bukan bilangan prima  ....
silahkan langsung saja lihat source code dibawah ini :

 
/*
 * Program Ini Dibuat Untuk Memenuhi Tugas Pemprogram
 * Bahasa Netbeans Tingkat Lanjuet .....
 * Dilarang Mengcopy Paste Syntak Dan Mengubah Nama Pembuatnya .... !!!!
 */
package nilai_prima_1;
import java.util.*;
/**
 * @Created By Muhammad Imam Makhrus
 * Kelas 2 Rpl 1
 */
public class Nilai_Prima_1 {
    /**
     * @param args the command line arguments
     */
    public static void main(String[] args) {
        int bil;
       String prima="Bilangan Prima", bukan="Bukan Bilangan Prima";
       Scanner input=new Scanner(System.in);
       
       System.out.print("Masukkan Bilangan Yang Ingin Anda Cek = ");
       bil=input.nextInt();
       
       if (bil%2==1) {
           System.out.println(bil+" Adalah "+prima);
       } else {
           System.out.println(bil+" "+bukan);
       }
    }
}
      // TODO code application logic here
   

 

Read More »

2 Comments

Unknown

Program Matriks Menggunakan Netbeans

Contoh program  menggunakan netbeans 7.0 contoh program yang kami buat adalah matriks  ....
silahkan langsung saja lihat source code dibawah ini :

/*
 
/*
 * To change this template, choose Tools | Templates
 * and open the template in the editor.
 */
package matrik_by_imam;
import java.util.Scanner;
/**
 *
 * @author Muh Imam Makhrus
 */
public class Matrik_By_Imam {

    /**
     * @param args the command line arguments
     */
    public static void main(String[] args) {
Scanner input=new Scanner(System.in);
int a;
int b;
int [] [] matriksa = new int [4][5];

// input matriks a
for(a = 1; a < 4 ; a++ )
{
for (b = 1; b < 5 ; b++)
{
System.out.print("Matriks a "+a+"."+b+"=");
matriksa[a][b]=input.nextInt();
}
}

//output matriksa
System.out.println("\nmatriksa\n");
for (a =1; a < 4; a++)
{ 
for ( b = 1; b<5 ;b++)
{
System.out.print(" " +matriksa [a] [b]);
}
System.out.println();
}
    }
}

Read More »

Add Comment

Unknown

Contoh Program Menggunakan Method

Contoh program method menggunakan netbeans 7.0 contoh program yang kami buat adalah method kendaraan ....
silahkan langsung saja lihat source code dibawah ini :

 package kendaran_bermotor;
/**
 * @Created By Muhammad Imam Makhrus
 * Kelas 2 Rpl 1
 */
public class Kendaran_Bermotor {
   String pemilik,warna,merk;
   int roda , speed;
     

   void Pemilik(String p , int r)
   {
     pemilik = p;
     roda = r;
   }
   void type(String w , String m , int s )
   {
     warna = w;
     merk = m ;
     speed = s;
   }
   static void garis(){
   System.out.println("-----------------------------------------------");
   }
   void tampilkan(){
   garis();
   System.out.println("Pemilik Kendaraan = "+pemilik);
   System.out.println("Kendaraan Roda = "+roda);
   System.out.println("Warna = "+warna);
   System.out.println("Merk Kendaraan= "+merk);
   System.out.println("Speed / CC = "+speed+" Km / Jam");
   }

public static void main(String[] args) {

  Kendaran_Bermotor Motor = new Kendaran_Bermotor();
  Motor.Pemilik ("Driyanto Saputro",2);
  Motor.type("Hitam","Ninja",250);
  Motor.tampilkan();
    
  Kendaran_Bermotor Mobil = new Kendaran_Bermotor();
  Mobil.Pemilik ("Muhammad Imam Makhrus",4);
  Mobil.type("Merah","Nissan Jho",350);
  Mobil.tampilkan();
  System.out.println("-----------------------------------------------");

// Diatas Adalah Contoh Program Menggunakan Method
// Dibawah Adalah Program Perulangan 

  for(int i =0; i<= 100; i++){
  System.out.println("Mobil Saya Bejalan Dengan Kecepatan :"+i+" km / jam");
  if (i==100){
  break;
  // Berhenti Di Kecepatan Seratus Km / Jam
  }
  }
  System.out.println();
  // Pengeremman
  for(int a = 100; a >= 0 ; a--){
  System.out.println("Kecepatan Mobil Saya Menurun Hingga :"+a+" km / jam");
  if (a==0){
  break;
    }
   }
  }
 }

Read More »

2 Comments

Unknown

Program Mencari Nilai Median Menggunakan Netbeans

Program mencari nilai media menggunakan netbeans 7.0 cotnoh program yang kami buat adalah menghitung nilai rata rata menggunakan netbeans ....
silahkan langsung saja lihat source code dibawah ini :

/*
 * Program Ini Dibuat Untuk Memenuhi Tugas Pemprogram
 * Bahasa Netbeans Tingkat Lanjuet .....
 * Dilarang Mengubah Nama Pembuatnya .... !!!!
 */

package nilairata;
import java.io.*;
import java.util.Scanner;
/**
 * @Created By Muh Imam Makhrus
 * Tanggal : 01 / Mei / 2013
 * Kelas 2 Rpl 1 Nis 7528
 */
public class NilaiRata {
   public static void main(String[] args) throws Exception {                                                         
            Scanner input = new Scanner(System.in);
            InputStreamReader isr1 = new InputStreamReader (System.in);
            BufferedReader kata = new BufferedReader (isr1);
            int a,i;
            double rata;
            int total=0;
            int tengah;
            float median=0;
            int maks=-1000; //asumsi paling minimum
            int min=1000; //asumsi paling maksimum
            System.out.println("+------------------------------------------+");
            System.out.println("|           Program Menghitung             |");
            System.out.println("|          Nilai Rata Rata Siswa           |");
            System.out.println("+------------------------------------------+");
            // Masukan Jumlah Mata Pelajaran
            System.out.println("|  Masukan Jumlah                          |");
            System.out.print("   Mata Pelajaran Siswa : ");
            a = Integer.parseInt(kata.readLine());
            System.out.println("+------------------------------------------+");
            int[] Angka = new int[a];                                                          
            for(i=0;i<a;i++){
            System.out.print("   Masukan Nilai Ke."+(i+1)+ " :");
            Angka [i] = input.nextInt ();
            System.out.println("   Nilai Ke."+(i+1)+" Adalah "+Angka[i]+" Dari : "+a+" Mapel");
            }
            for (i=0; i<a; i++) {
            //Mencari Nilai Terbesar Dan Terkecil .... !!!!
            if (Angka[i]>maks) {
            maks = Angka[i];
            }
            if (Angka[i]<min){
            min = Angka[i];
            }
            total = total+Angka[i];
            }
            rata=total*1f/a;
            //Mencari Nilai Tengah .... !!!!
            tengah = a/2;
            if (a % 2 == 0)
            median = (Angka[tengah]+Angka[(tengah-1)])/2f;
            else
            median = Angka[tengah];
            System.out.println("+------------------------------------------+");
            System.out.println("   Nilai Maksimum :"+ maks+" Nilai Minimum :"+ min);
            System.out.println("   Jumlah Nilai Dari :"+a+" Mapel Adl : "+total);
            System.out.println("   Nilai Rata Rata Dari :"+a+" Mapel Adl :"+rata);
            System.out.println("   Dan Nilai Tengah Dari :"+a+" Mapel Adl :"+median);
            System.out.println("+------------------------------------------+");
            System.out.println("|       Created And Devoloper By :         |");
            System.out.println("|   Muhammad Imam Makhrus 2 Rpl 1 / 7528   |");
            System.out.println("+------------------------------------------+");
            }
            }

aoutput program :
+-------------------------------------------------+
|           Program Menghitung                      |
|          Nilai Rata Rata Siswa                      |
+-------------------------------------------------+
   Masukan Jumlah                                 
   Mata Pelajaran Siswa : 2                     
+-------------------------------------------------+
    Masukan Nilai Ke.1 :70                        
    Nilai Ke.1 Adalah 70 Dari : 2 Mapel  
    Masukan Nilai Ke.2 :90
    Nilai Ke.2 Adalah 90 Dari : 2 Mapel
+-------------------------------------------------+
   Nilai Maksimum :90 Nilai Minimum :70
   Jumlah Nilai Dari :2 Mapel Adl : 160
   Nilai Rata Rata Dari :2 Mapel Adl :80.0
   Dan Nilai Tengah Dari :2 Mapel Adl :80.0
+-------------------------------------------------+
    Created And Devoloper By :          
    Muhammad Imam Makhrus 2 Rpl 1 / 7528  
+-------------------------------------------------+

sekian tutorial tentang netbeans mencari nilai median.

Read More »

Add Comment

Unknown

Program Luas Keliling Bangunan Menggunakan HTML

Program Aplikasi  Matematika Tentang Hitung Dengan Rumus Pytagoras & Luas Dan Keliling Bangunan Perhitungan Tentang Luas Dan Keliling Bangun Ruang

                

Langsung Saja Download Link Dibawah Ini

Jika Anda Ingin Mencobanya Dam Belajar Membuatnya 

Anda Bisa Download Disini : Aplikasi Mtk Php.rar

Read More »

Add Comment

Unknown

Format Factory Portable

Format Factory adalah konverter media yang multifungsi.
Menyediakan fungsi di bawah ini:
Semua untuk MP4/3GP/MPG/AVI/WMV/FLV/SWF.
Semua untuk MP3/WMA/AMR/OGG/AAC/WAV.
Semua ke JPG / BMP / PNG / TIF / ICO / GIF / TGA.
Rip DVD ke file video, Rip CD musik untuk file audio.
File MP4 mendukung iPod / iPhone / PSP / BlackBerry format.
Mendukung RMVB, Watermark, AV Mux.

 

Format Factory Fitur:
1 dukungan populer mengkonversi semua video, audio, format gambar kepada orang lain.
2 Perbaikan kerusakan video dan file audio.
3 Mengurangi ukuran file Multimedia.
4 Dukungan iphone, ipod multimedia format file.
5 Gambar mengkonversi mendukung Zoom, Rotate / Flip, tags.
6 DVD Ripper.

Download Format Factory Portable Disini
Sumber Faizal Blogger

Read More »

Add Comment

Unknown