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.
Featured Posts
Kamis, 12 Januari 2012
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();
}
}
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();
}
}
Label:
sqlite dasar
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();
}
}
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();
}
}
Label:
sqlite dasar
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();
}
}
}
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();
}
}
}
Label:
DASAR JAVA
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]);
}
}
}
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]);
}
}
}
Label:
DASAR JAVA
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();
}
}
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
urut[a]=urut[d];
urut[d]=tukar;
}
}
}
static void decending(int[]urut){
int tukar=0;
for(int a=0;a
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.println();
}
}
Label:
DASAR JAVA
Langganan:
Postingan (Atom)