Cobol Part 2

Ada lagi nih yang gw pelajarin tadi .
Hahahaha .
Emang sih masih belajar yang simpel simpel aje .
Tapi ya sudah lah maklumin aja saya cuma mau sharing aje .
:D

Nah jadi ceritanya tuh begini .
Selesai ngejain progran yang sebelumnya itu ada tugas dari dosennya, yang bisa ngerjain dapet nilai + .
Tugasnya yaitu membuat program perhitungan Segitiga alias Alas * Tinggi / 2 .
Pasti tau kan perhitungan segitiga .

Listing Programnya :

IDENTIFICATION DIVISION.
PROGRAM-ID.
ENVIRONMENT DIVISION.
DATA DIVISION.
    01 A PIC 99.
    01 T PIC 99.
    01 TOTAL PIC 99.
PROCEDURE DIVISION.
MULAI.
    DISPLAY 'MASUKKAN ALAS : '.
    ACCEPT A.
    DISPLAY 'MASUKKAN TINGGI : '.
    ACCEPT T.
    COMPUTE TOTAL = A*T/2.
    DISPLAY 'LUAS SEGITIGA : ',TOTAL.
SELESAI.
    STOP RUN.

Penampakan nya secara Screen Shoot :

Ini Codingannya

Outputnya : 

LISTING PROGRAM:

---------------------------------------------------

IDENTIFICATION DIVISION.
PROGRAM-ID.
ENVIRONMENT DIVISION.
DATA DIVISION.
yang gw tau sih tentang ini ya itu udah jadi bagian yang harus di masukkan dalam COBOL *CMIW*

DISPLAY 'MASUKKAN ALAS : '.
DISPLAY 'MASUKKAN TINGGI : '.
DISPLAY 'LUAS SEGITIGA : ',TOTAL.
yang gw tau tentang codingan ini yaitu buat menampilkan gtu . kalau kayak di java Print lah gtu . hehehehe .

ACCEPT A.
ACCEPT T.
kalau yang ini sih menurut gw itu kayak penentuan kelas gtu nah terus untuk inputan juga kayak masukin angka huruf .

COMPUTE TOTAL = A*T/2.
kalau yang gw tau computer total itu untuk operasi perhitungan gtu deh . kalau yang A*T/2 itu rumus Segitiga *You Know Lah* :D

---------------------------------------------------

Harap dimaklum sajalah kawan yah .
Hhahahaha .
Masih Newbie jadi bkin yang simpel aje dulu .
Terima Kasih :D

Pelajaran COBOL Pertama

Gw mau sharing sedikit di blog gw . Wkwkwkw .
Hari ini tanggal 04 Oktober 2012 tadi ada pelajaran yang namanya Algoritma Pemrograman 3 yang ngebahas tentang Bahasa Pemrograman COBOL .
Awalnye gw bingung sama aje kayak Java dulu baru ketemu .
Plangak Plinguk kaya orang beler . #ngakak

Pertama gw kasih tau tuh codingannya sama tuh dosen .
Ini dia penampakan codingannya

 IDENTIFICATION DIVISION
 PROGRAM-ID.A.
 ENVIRONMENT DIVISION.
 DATA DIVISION.
 PROCEDURE DIVISION.
 BEGIN.
     DISPLAY 'COBOL'.
 END.
     STOP RUN. 

Screenshoot nya :

Picture 1

Dan hasilnya adalah seperti ini .

Picture 2

Simpel kan ? 

Maklum lah masih belajar . #ngakak

Sekian dan terima kasih .

Buat gw inget inget belajar aje sih WKWKWKW ~

Matematika Informatika Program Java Himpunan

Listing Program Himpunan

import javax.swing.*;
class himpunan
{
public static void main (String[]args)
{
int na=0, nb=0;
na=Integer.parseInt(JOptionPane.showInputDialog("Masukkan Banyak Elemen A:"));
int a[]=new int [na];
nb=Integer.parseInt(JOptionPane.showInputDialog("Masukkan Banyak Elemen B:"));
int b[]=new int [nb];
for (int i=0; i<na; i++)
{
a[i]=Integer.parseInt(JOptionPane.showInputDialog("Nilai A Ke-"+(i+1)));
}
for (int j=0; j<na;j++)
{
b[j]=Integer.parseInt(JOptionPane.showInputDialog("Nilai B Ke-"+(j+1)));
}
System.out.print ("Himpunan A = {");
for (int x=0; x<na; x++)
{
System.out.print (a[x]+"");
}
System.out.println("}");
System.out.print("Himpunan B = {");
for(int x=0; x<nb; x++)
{
System.out.print(b[x]+"");
}
System.out.println ("}");
System.out.print("Nilai A Irisan B = {");
for (int i=0;i<na; i++)
{
for (int j=0; j<nb-1; j++)
{
if (a[i]==b[j])
{
System.out.print (a[i]+"");
}
}
}
System.out.println("}");
}
}

LOGIKA PROGRAM HIMPUNAN KE1

import javax.swing.*;
adalah untuknmenginformasikan bahwa kita akan meng-import class JOptionPane dari package javax.swing

class himpunan{
Menunjukan bahwa pada nama class yang digunakan dengan nama  “himpunan”

public static void main (String[]args){
Mengindikasikan bahwa nama suatu method dalam class keputusan yang bertindak sebagai method utama.

int na=0, nb=0;
na=Integer.parseInt(JOptionPane.showInputDialog("Masukkan Banyak Elemen A:"));
int a[]=new int [na];
Berfungsi ntuk mendeklarasikan dan menunjukkan kapasitas array,yang kapasitasnya adalah dari variabel “na” ,inputan banyaknya hipunan tadi

nb=Integer.parseInt(JOptionPane.showInputDialog("Masukkan Banyak Elemen B:"));
sintax diatas berfungsi untuk menginput nilai b

int b[]=new int [nb];
for (int i=0; i<na; i++){
a[i]=Integer.parseInt(JOptionPane.showInputDialog("Nilai A Ke-"+(i+1)));}
for (int j=0; j<na;j++){
b[j]=Integer.parseInt(JOptionPane.showInputDialog("Nilai B Ke-"+(j+1)));}
sintax diatas berfungsi untuk menampilkan hasil inputan dariJOptionpane yang berupa nilai B ke-+(nilai j diambah sama dengan satu)System.out.print ("Himpunan A = {");Sintak diatas berfungsi untuk mencetak hasil dari himpunan A.

for (int x=0; x<na; x++)
{System.out.print (a[x]+"");}
System.out.println("}");
Berfungsi untuk Mencetak nilai-nilai himpunan A yang tadi telah diinput yang isinya dari nilai himpA[i] Sintax diatas berfungsi untuk membuat pengulangan for , memakai variabel “x” , hingga nilai “x” kurang dari nilai na,

System.out.print("Himpunan B = {");
for(int x=0; x<nb; x++){
System.out.print(b[x]+"");}
System.out.println ("}");
System.out.print("Nilai A Irisan B = {");
Berfungsi untuk Mencetak nilai-nilai himpunan B  yang tadi telah diinput yang isinya dari nilai himpA[i] Sintax diatas berfungsi untuk membuat pengulangan for , memakai variabel “x” , hingga nilai “x” kurang dari nilai nb,

for (int i=0;i<na; i++){
for (int j=0; j<nb-1; j++){
if (a[i]==b[j]){
System.out.print (a[i]+"");
}
}
}
System.out.println("}");}}Sintax diatas Berfungsi untuk melakukan pengulangan sebanyak 2 kali dimana nilai i terus bertambah sampai nilainya kurang dari “na” dan kemudian nilai j adalah nilai 0, dan j akan terus berulang sampai kurang dari sama dengan nb kurang dari -1, ini digunakan untuk mencetak himpunan pasangan berurutannya, dan kemudian melakukan pengulangan lagi yang nilai i adalah nilai x. Sintax diatas Berfungsi untuk Sebagai perintah kondisi yang artinya jika nilai i tidak sama dengan nilai a[i]==b[j],maka akan tercetak “,”, dan program akan terhenti.

Sumber : Pengalaman & GOOGLE