Contoh Sederhana Konversi Program Kelulusan Mahasiswa dari Pascal Ke Java

Contoh Konversi Program Kelulusan Mahasiswa dari Pascal Ke Java

1.      Program Pascal Tentang Kelulusan Mahasiswa

Program Kelulusan_mahasiswa ;

uses wincrt;

var nilai : integer;

    mhs, ket : string;

begin

clrscr;

writeln('Program Nilai Mahasiswa');

writeln;

write('Masukkan Nama Mahasiswa  :');

readln (mhs);

write('Masukkan Nilai Mahasiswa :');

readln (nilai);

if nilai >=60 then

   ket:='LULUS';

if nilai<60 then

   ket:='Tidak Lulus';

writeln;

writeln('Nama mahasiswa = ',mhs, 'Status = ', ket);

readln;

end.

2.      Program Pascal Tentang Kelulusan Mahasiswa dikonversikan kedalam Program Java

/*

 * To change this license header, choose License Headers in Project Properties.

 * To change this template file, choose Tools | Templates

 * and open the template in the editor.

 */

package lulus;

import java.util.Scanner;

/**

 *

 * @author Gerardo

 */

public class Lulus {

    /**

     * @param args the command line arguments

     */

    public static void main(String[] args) {

        Scanner masukan = new Scanner(System.in);

        int nilai;

        String mhs, ket = null;

        System.out.print("Program Nilai Mahasiswa\n");

        System.out.print("Masukan Nama Mahasiswa  : ");

        mhs = masukan.next();

        System.out.print("Masukan Nilai Mahasiswa : ");

        nilai = masukan.nextInt();

        if (nilai >= 60) {

            ket = "LULUS";

        }

        if (nilai < 60) {

            ket = "TIDAK LULUS";

        }

        System.out.print("Nama Mahasiswa = " + mhs + ", Status = " + ket + "\n");

    }

}

 Hasilnya Adalah  :

Sumber : Modul Logika dan Algoritma dengan Pascal, Zaidir.S.T

                Gerardo Ayub Benyamin