Array Dua Demensi

import java.io.*;

public class tipedouble {

public static void main(String[] args) {

//Array 2 demensi bertipe double

    double[][] M = new double[3][3];

        int i,j;

//input matriks

BufferedReader isi;

System.out.println("Input Elemen Matriks M[3][3]");

try {

isi = new BufferedReader(new InputStreamReader(System.in));

        for(i=0; i<3 i="i" span="span">

            for(j=0; j<3 j="j" span="span">

        System.out.print("M["+i+"]["+j+"] = ");

            M[i][j] = new Double(isi.readLine()).doubleValue();

    }

        System.out.println("\n");

    }

    } catch (Exception e ){

System.out.println("Input berupa angka aja");

}

//tampilkan isi matriks

    System.out.println("Isi Matriks M");

            for(i=0; i<3 i="i" span="span">

        for(j=0; j<3 j="j" span="span">

    System.out.print(M[i][j]+ "  ");

    }

    System.out.println("");

        }

    }

        }

READMORE

Operator Relasi

public class tugas{

public static void main(String[] args){

int i = 310;

int j = 511;

int k = 166;

int pangkat = 2;

double x = 34.678;

double y = 5.45;

System.out.println("Nilai dalam variabel");

System.out.println("i = "+i);

System.out.println("j = "+j);

System.out.println("k = "+k);

System.out.println("x = "+x);

System.out.println("y = "+y);

System.out.println("contoh penjumlahan");

System.out.println("i + j = "+(i+j));

System.out.println("x + y = "+(x+y));

System.out.println("contoh pengurangan");

System.out.println("i - j = "+(i-j));

System.out.println("x - y = "+(x-y));

System.out.println("contoh pembagian");

System.out.println("i : j = "+(i/j));

System.out.println("x : y = "+(x/y));

System.out.println("contoh perkalian");

System.out.println("i x j = "+(i*j));

System.out.println("x x y = "+(x*y));

System.out.println("Modulus");

System.out.println("i Mod j = "+(i%j));

System.out.println("i Mod k = "+(i%k));

System.out.println("j Mod k = "+(j%k));

System.out.println("x Mod y = "+(x%y));

System.out.println("Kuadrat");

System.out.println("i + j + k pangkat 2 = "+((int)Math.pow(i+j+k,pangkat)));

System.out.println("i + j pangkat 2     = "+((int)Math.pow(i+j,pangkat)));

System.out.println("x + y pangkat 2     = "+(Math.pow(x+y,pangkat)));

System.out.println("i - j pangkat 2     = "+((int)Math.pow(i-j,pangkat)));

System.out.println("i : j pangkat 2     = "+((int)Math.pow(i/j,pangkat)));

System.out.println("i * j pangkat 2     = "+((int)Math.pow(i*j,pangkat)));

}

}

READMORE

Tugas Mandiri II

Reocord dan Array

Uses winCrt;

  Type    Nilai               = Record
  Nim,nama,ket        : String;
  Tugas,UTS,UAS,Hasil : Real;                         
   End;

 larikmhs=array[1..50]of nilai;

 Var mhs   :larikmhs; I  :Integer; lagi  :char; a  :byte;
     Begin
     lagi:='y';
    while lagi='y' do
    Begin
    inc(i);
      Writeln('Entri data Mahasiswa ke : ',i);writeln;
      Write('NIM   : ');Readln(Mhs[i].Nim);
      Write('Nama  : ');Readln(Mhs[i].Nama); writeln;
      Write('Nilai Tugas : ');Readln(Mhs[i].Tugas);
      Write('Nilai UTS   : ');Readln(Mhs[i].Uts);    
      Write('Nilai UAS   : ');Readln(Mhs[i].Uas);
      writeln; write('Mau entri data lagi?'); readln(lagi);writeln;
    End;

    writeln('                         Daftar Nilai Mahasiswa');
    Writeln('-------------------------------------------------------------------------------');
    Writeln('NO |  NIM   |      NAMA      | TUGAS  |   UTS  |  UAS  | Hasil  | Ket   ');
    Writeln('-------------------------------------------------------------------------------');
    For I := 1 To i Do begin
 
    Begin
         a:=3;
        mhs[i].hasil:=(mhs[i].tugas+mhs[i].uts+mhs[i].Uas)/a;
       
       if mhs[i].hasil>80 then mhs[i].ket:='A' else
       if mhs[i].hasil>70 then mhs[i].ket:='B' else
       if mhs[i].hasil>59 then mhs[i].ket:='C' else
       mhs[i].ket:='Nilai Kurang';
       Writeln(i:2,' |',Mhs[i].Nim:7,' |',Mhs[i].Nama:15,' |',Mhs[i].Tugas:7:2,' |',Mhs[i].Uts:7:2,' |',
       Mhs[i].Uas:6:2,' |',Mhs[i].Hasil:6:2,'  |',mhs[i].ket:3);
       writeln('-------------------------------------------------------------------------------');
      
     End;
   
    end;
  End.

READMORE

Program Keterangan Nilai IPK dan Posisi Kuadran Nilai X dan Y

{Program Menampilkan Keterangan Nilai IPK}

uses wincrt;
       type nama_mhs=array [1..50] of string;
       nilai=array [1..50] of real;
var
       nm,ket:nama_mhs;
       ip:nilai;
       a,n,c:byte;

begin
writeln('Program Untuk Menampilkan Keterangan dari Nilai IPK:'); writeln;
       repeat
       begin
       inc(a);
      write('Input Nama Mahasiswa ' ,a, ' (jika selesai ketikan "finish")==>');
      readln(nm[a]);
      if (nm[a]<>'finish') then begin
      repeat
      c:=1;
      write('Masukan IPK==>'); readln(ip[a]);
      if (ip[a]>4) then begin writeln('Nilai IPK Tidak Ada Dalam Data!!! Masukan: >0
      dan <4.'); c:=2; end else if (ip[a]>3) then ket[a]:='Sempurna' else
      if (ip[a]>2) then ket[a]:='Nilai Baik' else
      ket[a]:='Nilai Kurang';
      until c=1;
      end
      else write('Tekan enter untuk melihat hasil');
      end;

    until (nm[a]='finish');readln;
dec(a);
clrscr;
writeln('Daftar Mahasiswa:');writeln;
writeln('No', 'Nama':10, 'IPK':12, 'Keterangan':14);
writeln('-----------------------------------------');
for n:=1 to a do begin
writeln(n,' |',nm[n]:13,' | ',ip[n]:3:2,' | ',ket[n]);
end;
writeln('-----------------------------------------');
    end.

Aplikasinya bisa download disini



Program Menampilkan posisi Kuadran Dari Nilai X dan Y

uses wincrt;
var
    y,x:integer;
     a:string;

begin
repeat
a:='y';
writeln('Mencari Posisi Kuadran dari input X dan Y:');writeln;
write(' Nilai X ==>');readln(x);
write(' Nilai Y ==>');readln(y);

       if (x>0) and (y>0) then writeln(' Ada pada kuadran: I')
else if (x>0) and (y<0) then writeln (' Ada pada posisi kuadran: IV')
else if (x<0) and (y>0) then writeln (' Ada pada posisi kuadran: II')
else if (x<0) and (y<0) then writeln (' Ada pada posisi kuadran: III'); writeln;
write('Anda ingin mencoba lagi? (y/n) ');readln(a);
clrscr;
until a ='n';
       end.

Aplikasinya bisa download disini

READMORE