CORETAN STACK PASCAL

USES CRT;
CONST MAX=5;
TYPE
TYPEARRAY=ARRAY[1..MAX]OF INTEGER;
TYPEINFO=INTEGER;
TYPESTACK=RECORD
ELEMEN:TYPEARRAY;
TOP:INTEGER;
END;

VAR
STACK:TYPESTACK;

PROCEDURE BUATSTACK(VAR STACK:TYPESTACK);
BEGIN
STACK.TOP:=0;
END;

FUNCTION STACKKOSONG(STACK:TYPESTACK):BOOLEAN;
BEGIN
STACKKOSONG:=(STACK.TOP=0);
END;

FUNCTION STACKPENUH(STACK:TYPESTACK):BOOLEAN;
BEGIN
STACKPENUH:=(STACK.TOP=MAX);
END;

PROCEDURE PUSH(VAR STACK:TYPESTACK; ISI:TYPEINFO);
BEGIN
IF NOT(STACKPENUH(STACK)) THEN
BEGIN
STACK.TOP:=STACK.TOP+1;
STACK.ELEMEN[STACK.TOP]:=ISI;
END
ELSE
WRITELN('STACK PENUH');
END;

PROCEDURE POP(VAR STACK:TYPESTACK; VAR INFOPOP:INTEGER);
BEGIN
IF NOT(STACKKOSONG(STACK)) THEN
BEGIN
INFOPOP:=STACK.ELEMEN[STACK.TOP];
STACK.TOP:=STACK.TOP-1;
END
ELSE
WRITELN('STACK KOSONG');
END;

PROCEDURE TAMPILSTACK;
VAR
I:INTEGER;
BEGIN
FOR I:=STACK.TOP DOWNTO 1 DO
WRITELN(STACK.ELEMEN[I]);
END;

PROCEDURE KOSONGKAN(VAR S:TYPESTACK);
BEGIN
STACK.TOP:=0;
END;
{MAIN PROGRAM}
VAR
DATA:INTEGER;
I:BYTE;
TANYA:CHAR;
BEGIN
CLRSCR;
KOSONGKAN(STACK);
BUATSTACK(STACK);
REPEAT
CLRSCR;
WRITELN;
WRITELN('  UNTUK INPUTAN KETIK MENU 1 SECARA BERULAN  ');
WRITELN;
WRITELN('                MENU PILIHAN');
WRITELN(' ============================================');
WRITELN('             [1].PUSH (MASUK)');
WRITELN('             [2].POP  (AMBIL)');
WRITELN('             [3].TAMPIL');
WRITELN('             [4].KELUAR');
WRITELN('=============================================');
WRITELN;
WRITE('             PILIHAN ANDA : ');
READLN(TANYA);
CASE TANYA OF
'1':BEGIN
CLRSCR;
WRITELN('DATA YANG DIISIKAN : ');
WRITELN('ANGKA INTEGER');
READLN(DATA);
PUSH(STACK,DATA);
END;
'2':POP(STACK,DATA);
'3':BEGIN
CLRSCR;
WRITELN;WRITELN;WRITELN;WRITELN;
WRITELN('       DATA STACK ANDA');
WRITELN('===============================');
WRITELN;WRITELN;
TAMPILSTACK;
TEXTCOLOR(RED);
GOTOXY(25,25);
WRITELN('TEKAN ENTER UNTUK KEMBALI KE MENU UTAMA');
TEXTCOLOR(WHITE);
READLN;
END;
END;
UNTIL TANYA='4';
END.

CONTOH SEDERHANA MENAMPILKAN ISI DARI DATABASE

import java.sql.*;

public class tes{
public static void main (String [] args) throws Exception {
Class.forName("org.sqlite.JDBC");
Connection conn = DriverManager.getConnection("jdbc:sqlite:datairfaan.db");
Statement stat  = conn.createStatement();
    ResultSet rs = stat.executeQuery("select * from mahasiswa; ");
    System.out.println("NPM\t\tNama \t\t\t Alamat\t\tjurusan");
    while (rs.next()) {
        System.out.print(rs.getString("npm")+"\t "+rs.getString("nama")+"\t\t"+rs.getString("alamat"));
        System.out.println("\t\t"+ rs.getString("jurusan"));
    }
    rs.close();
    conn.close();
   }
}

CONTOH INPUTAN SEDERHANA KE DATABASE

import java.sql.*;
import java.io.*;


public class TUGASKU
{
    public static void main(String[]koneksi) throws Exception
    {
        String strA;
        BufferedReader buff= new BufferedReader ( new InputStreamReader(System.in));
       
        System.out.print("Nama : ");
        String a = buff.readLine();
        System.out.print("NPM  : ");
        String b = buff.readLine();
        System.out.print("alamat: ");
        String c = buff.readLine();
        System.out.print("jurusan: ");
        String d = buff.readLine();
       
        System.out.println("==============================");
        System.out.println("          mahasiswa           ");
        System.out.println("==============================");
        System.out.println("Nama    : "+a);
        System.out.println("NPM     : "+b);
        System.out.println("Kelas   : "+c);
        System.out.println("jurusan : "+d);
        System.out.println("==============================");
     
        Class.forName("org.sqlite.JDBC");
        Connection cn = DriverManager.getConnection("jdbc:sqlite:irfaan.sqlite");
        Statement st= cn.createStatement();
        st.executeUpdate("insert into mahasiswa (Nama,NPM,alamat,jurusan) values ('"+a+"','"+b+"','"+c+"','"+d+"');");
        st.close();
        cn.close();
    }
}

BUAT BINTANG

public class tugas_bintang5 {
public static void main (String[] args) {
    int baris,m;
    for (int i=1;i<=7;i++) {
        if(i<5) {
            for (int j=1;j<=4;j++) {
                if (j<=i)
                   System.out.print("*");
                   else
                   System.out.print(" ");
                }
}
    else {
        for (int j=1;j<=4;j++) {
            m=i+j;
            if (m<=8)
            System.out.print(" ");
            else
            System.out.print(" ");
        }
}
    System.out.println();
      }
    } 
}  

INPUTAN ARRAY

    import java.util.Scanner;
    class InputanArray
    {
        public static void main(String[]sf)
        {
            Scanner s=new Scanner(System.in);
           
            System.out.print("Masukkan Jumlah Array:");
            int jumlah=s.nextInt();
           
            int bilangan[]=new int[jumlah];
           
            for(int i=0;i             {
                System.out.print("Masukkan Index Array:");
                bilangan[i]=s.nextInt();
               
            }
            System.out.println("----Hasil Inputan Array----");
           
            for(int b=0;b             {
                System.out.print("\t"+bilangan[b]);
            }
           
        }
    }

 ARRAY ASCENDING DECENDING
public class ArrayAscendingDecending {

    public static void main(String args[]){
        int[]data={18,4,9,10,14,7,12,16,30,5};
        cetakConsole("Data asli dalam array:",data);
        ascending(data);
        cetakConsole("Pengurutan Ascending",data);
        decending(data);
        cetakConsole("Pengurutan Decending",data);
    }
static void ascending(int[]urut){
    int tukar=0;
    for(int a=0;a         for(int d=0;d             if(urut[a]                 tukar=urut[a];
                urut[a]=urut[d];
                urut[d]=tukar;
            }
        }
}

static void decending(int[]urut){
    int tukar=0;
    for(int a=0;a         for(int d=0;d             if(urut[a]>urut[d]){
                tukar=urut[a];
                urut[a]=urut[d];
                urut[d]=tukar;
            }
        }
}
static void cetakConsole(String jdl,int[]arr){
    System.out.println(jdl);
    for(int b=0;b         System.out.print(arr[b]+"  ");
    System.out.println();
}
}