Program Basic pada Pascal

Berikut beberapa contoh program basic dengan bahasa Pascal yang dapat dicompiler dengan Borland Delphi, Lazarus ataupun aplikasi compiler Pascal lainnya.
1. Program Increment Angka

program angkanaik;

{$APPTYPE CONSOLE}

uses
SysUtils;

var i,j:integer;
begin
i:=1;

while i<=5 do
begin
j:=1;
while j<=i do
begin
write(‘ ‘,j);
j:=j+1;

end;

i:=i+1;
writeln(‘ ‘);
end;
readln;
end.

=================================================================================
2. Program Decrement Angka

program angkamenurun;

{$APPTYPE CONSOLE}

uses
SysUtils;

var i,j:integer;
begin
i:=5;

while i>=1 do
begin
j:=1;
while j<=i do
begin
write(‘ ‘,j);
j:=j+1;

end;

i:=i-1;
writeln(‘ ‘);
end;
readln;
end.

=================================================================================
3. Program Dec-Inc Angka

program angkaturunnaik;

{$APPTYPE CONSOLE}

uses
SysUtils;

var a,b,i,j:integer;

begin
a:=10;
while a>=1 do
begin
b:=1;
while b<=a do
begin
write (‘ ‘,b);
b:=b+1;
end;
a:=a-1;
writeln(‘ ‘);

end;

i:=1;
while i<=10 do
begin
j:=1;
while j<=i do
begin
write (‘ ‘,j);
j:=j+1;
end;
i:=i+1;
writeln(‘ ‘);

end;
readln;
end.

================================================================================
4. Program Inc-Dec Angka

program angkanaikturun;

{$APPTYPE CONSOLE}

uses
SysUtils;

var i,j,a,b:integer;
begin
i:=1;
while i<=10 do
begin
j:=1;
while j<=i do begin write (‘ ‘,j); j:=j+1; end; i:=i+1; writeln(‘ ‘); end; a:=10; while a>=1 do
begin
b:=1;
while b<=a do
begin
write (‘ ‘,b);
b:=b+1;
end;
a:=a-1;
writeln(‘ ‘);
end;
readln;
end.

=================================================================================
5. Program Input Angka yang akan Di-Decrementkan

program masukangkanaik;

{$APPTYPE CONSOLE}

uses
SysUtils;

var x,i,j:integer;
begin
write (‘Masukkan nilai 1-10: ‘);
readln (x);
i:=1;
while (i<=x) and (x<=10) do
begin
j:=1;
while j<=i do
begin
write (‘ ‘,i);
j:=j+1;
end;
i:=i+1;
writeln;
end;
readln;
end.

=================================================================================
6. Program Mencari Akar dan Pangkat dari Bilangan

program akarpangkat;

{$APPTYPE CONSOLE}

uses
SysUtils;

var x,y,i,n:integer;
begin
write (‘Masukkan nilai: ‘);
readln (x);
writeln(‘Akar dari ‘,x,’ adalah ‘,SQRT(x):4:2);
readln;
//cari pangkat m dari bilangan n
i:=1;
n:=1;
write (‘Masukkan nilai: ‘);
readln (x);
write (‘Masukkan pangkat: ‘);
readln (y);
while i<=y do
begin
n:=n*x;
i:=i+1;
end;
write (x,’ pangkat ‘,y,’ = ‘,n);
readln;
end.

=================================================================================
7. Program Bilangan Ganjil-Genap

program repeatuntil;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
x:integer;
lagi:char; //tipe data karakter
begin
repeat
write(‘Masukkan bilangan ‘);readln(x);
if x mod 2=0 then
begin
writeln(x,’ adalah bilangan Genap’);
end
else
begin
writeln(x,’ adalah bilangan Ganjil’);
end;
writeln(”);
write(‘Mau masukkan data lagi? (y/n) ‘);
readln(lagi);
until(lagi<>’y’) ;
end.

Download filenya di sini.

Java Interface (basic program :: operator math)

Praktikum ke-4 java sama seperti yang ke-3 lalu, hanya saja ada beberapa tambahan komponen seperti ComboBox.
Berikut gambar interface soalnya:

jawaban ane, hmm masih amatiran sih, tapi kata dosen ane, “bisa”, alhamdulillah.. 🙂

file lat1.java

import java.awt.*;
import java.awt.event.*;
import javax.swing.*;
import javax.swing.event.*;

public class lat1 extends JFrame implements ActionListener
{
JLabel lbl1=new JLabel(“Masukan Var1 “);
JTextField txt1=new JTextField(12);
JLabel lbl2=new JLabel(“Masukan Var2 “);
JTextField txt2=new JTextField(12);
JLabel lbl3=new JLabel(“Operator “);
JComboBox cb=new JComboBox();
JButton btn1=new JButton(” H a s i l “);
JButton btn2=new JButton(” Keluar “);
Container c=new Container();
JTextField txt3=new JTextField(12);
lat1()
{
super(“Latihan 1-yHan”);
cb.addItem(” + “);
cb.addItem(” – “);
cb.addItem(” * “);
cb.addItem(” / “);

c=getContentPane();
c.setLayout(new FlowLayout(FlowLayout.LEFT,10,10));
c.add(lbl1);
c.add(txt1);
c.add(lbl2);
c.add(txt2);
c.add(lbl3);
c.add(cb);
c.add(btn1);
c.add(txt3);
c.add(btn2);
btn1.addActionListener(this);
btn2.addActionListener(this);
setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
}

public void actionPerformed(ActionEvent e)
{
if (e.getSource()==btn1)
{

if (cb.getSelectedItem()==” + “)
{
Double a,b,c;
String s;
a=Double.parseDouble(txt1.getText());
b=Double.parseDouble(txt2.getText());
c=a+b;
s=String.valueOf(c);
txt3.setText(s);
}

if (cb.getSelectedItem()==” – “)
{
Double a,b,c;
String s;
a=Double.parseDouble(txt1.getText());
b=Double.parseDouble(txt2.getText());
c=a-b;
s=String.valueOf(c);
txt3.setText(s);
}

if (cb.getSelectedItem()==” * “)
{
Double a,b,c;
String s;
a=Double.parseDouble(txt1.getText());
b=Double.parseDouble(txt2.getText());
c=a*b;
s=String.valueOf(c);
txt3.setText(s);
}
if (cb.getSelectedItem()==” / “)
{
Double a,b,c;
String s;
a=Double.parseDouble(txt1.getText());
b=Double.parseDouble(txt2.getText());
c=a/b;
s=String.valueOf(c);
txt3.setText(s);
}
}
if(e.getSource()==btn2)
System.exit(0);
}

public static void main(String [] arg)
{
JFrame.setDefaultLookAndFeelDecorated(true);
lat1 x=new lat1();
x.setSize(270,250);
x.setLocation(300,300);
x.setVisible(true);
}
}

Java Inheritance (Basic Program)

Waktu Praktikum 2 Java, dapat soal seperti ini:

Berikut ketiga file *.java yang saya buat saat praktikum itu. Lebih dan kurangnya, mohon dimaafkan ya agan2 😀

File Karyawan.java

public class Karyawan

{

private String Nama;

private int Gaji_Pokok;Karyawan()

{

Nama=”BUDI”;

Gaji_Pokok=1000;

} 

Karyawan(String vNama, int Gapok )

{

Nama=vNama;

Gaji_Pokok=Gapok;

}

public void setNama(String vNama)

{

Nama=vNama;

}

public String getNama()

{

return Nama;

}

public void setGapok(int Gapok)

{

Gaji_Pokok=Gapok;

}

public int getGapok()

{

return Gaji_Pokok;

}

}

File Masa_Kerja.java

public class Masa_Kerja extends Karyawan

{

private int Lama_Kerja;Masa_Kerja()

{

super();

Lama_Kerja=2;

} 

Masa_Kerja(String vNama, int Gapok, int vLama_Kerja)

{

super(vNama, Gapok);

Lama_Kerja=vLama_Kerja;

}

public int getLama_Kerja()

{

return Lama_Kerja;

}

public void setLama_Kerja(int vLama_Kerja)

{

Lama_Kerja=vLama_Kerja;

}

public int getTotal_Gaji()

{

return getGapok()*Lama_Kerja;

}

}

File KTes.java

public class KTes

{

public static void main(String [] arg)

{

Masa_Kerja m1=new Masa_Kerja();

System.out.println(“Nama k1:”+m1.getNama());

System.out.println(“Gaji k1:”+m1.getGapok());

System.out.println(“Lama_Kerja k1:”+m1.getLama_Kerja());

System.out.println(“Total_Gaji k1:”+m1.getTotal_Gaji());

Masa_Kerja m2=new Masa_Kerja(“ADI”,300,7);

System.out.println(“Nama k2:”+m2.getNama());

System.out.println(“Gaji k2:”+m2.getGapok());

System.out.println(“Lama_Kerja k2:”+m2.getLama_Kerja());

System.out.println(“Total_Gaji k2:”+m2.getTotal_Gaji());Masa_Kerja m3=new Masa_Kerja();

m3.setNama(“SUSI”);

m3.setGapok(6000);

m3.setLama_Kerja(5);

System.out.println(“Nama k3:”+m3.getNama());

System.out.println(“Gaji k3:”+m3.getGapok());

System.out.println(“Lama_Kerja k3:”+m3.getLama_Kerja());

System.out.println(“Total_Gaji k3:”+m3.getTotal_Gaji());

}

}

Kumpulan Kode C++ (basic)

Waktu semester 2 dulu, di kampus belajar programming dalam bahasa C++, terus compilernya Borland C++ Builder. Setiap minggu C++ selalu menjadi menjadi teman setia, keluar masuk lab buat praktikum…untung deh kalau gak error. Soalnya, bahasa C++ kan case sensitive tuh, jadi beda sedikit aja…bisa meengubah hasil output bahkan bisa error. Kalau dulu, yang paling kutakuti adalah “looping forever” hehehe…Buat yang mau belajar, neh aku kasih kumpulan kode C++ yang basic:

1. part1

2. part2

Oy, kedua file di atas dalam bentuk document, kalau mau dibuka, passwordnya yang ada di dalam kurung nama filenya ya…yang ini neh (yan261190) *tanpa kurung*. Semoga bermanfaat 🙂

Metode Merge Sort

Algoritma Merge Sort pada 2 buah data sebagai berikut:

Data A

20

45

30

25

60

200

65

80

Data B

15

150

70

85

120

145

135

185

function merge_sort(m, awal, akhir)
if length(m) = 1
return m
else
tengah = awal+akhir / 2
kiri = mergesort(m, awal,tengah)
kanan= mergesort(m, tengah,akhir)
hasil = merge(kiri,kanan)
return result

Program dalam C++

#include <stdlib.h>#include <iostream.h>

#include <conio.h>

void mergeSort(int arr1[], int arr2[], int arr3[], int size1, int size2, int& size3);

void swap(int& x, int& y);

int main()

{

int nums1[] = { 20, 45, 30, 25, 60, 200, 65, 80 };

int nums2[] = { 15, 150, 70, 85, 120, 145, 135, 185 };

int nums3[16];

int size1 = 6;

int size2 = 8;

int size3;

int k;

cout << “DATA A: “;

for (k = 0; k < size1; k++)

cout << nums1[k] << ” “;

cout << endl << endl;

cout << “DATA B: “;

for (k = 0; k < size2; k++)

cout << nums2[k] << ” “;

mergeSort(nums1, nums2, nums3, size1, size2, size3);

cout << endl << endl;

cout << “HASIL MERGE ARRAY A & B: “;

for (k = 0; k < size3; k++)

cout << nums3[k] << ” “;

cout << endl << endl << endl;

system(“PAUSE”);

return 0;

}// end main()

void mergeSort(int arr1[], int arr2[], int arr3[], int size1, int size2, int& size3)

{

int pos1 = 0, pos2 = 0, pos3 = 0;

while (pos1 < size1 && pos2 < size2)

if (arr1[pos1] < arr2[pos2])

arr3[pos3++] = arr1[pos1++];

else

arr3[pos3++] = arr2[pos2++];

if (pos1 < size1)

while (pos1 < size1)

arr3[pos3++] = arr1[pos1++];

else

while (pos2 < size2)

arr3[pos3++] = arr2[pos2++];

size3 = size1 + size2;

}// end mergeSort()

void swap(int& x, int& y)

{

int temp;

temp = x;

x = y;

y = temp;

}// end swap()

Hasil/Outputnya::

Metode Selection Sort untuk mengurutkan abjad/huruf

Algoritma Selection Sort untuk menyusun abjad berikut:

n

i

a

t

c

l

f

k

m

r

d

void selectionSort(int *array, int size)
{
int x,y,min;
for (x = 0; x < size-1; x++)
{
min = x;
for (y=x+1; y
{
if (array[y] < array[min])
{
min = y;
}
}
/* tukar */
swap(&array[x], &array[min]);
}
}

Program dalam C++

#include <vcl\condefs.h>

#include <stdio.h>

#include <stdlib.h>

#include <conio.h>

int tukar (a, b);

int *a;

int *b;

{

*a ^= *b;

*b ^= *a;

*a ^= *b;

}

int main (void) {

register int i, j;

int data[] = {‘n’,’i’,’a’,’t’,’c’,’l’,’f’,’k’,’m’,’r’,’d’};

int n = 11;

for (i = 1; i < n; i++) {

for (j = 0; j < n-i; j++) {

if ( data[j] > data[j+1])

tukar (&data[j],&data[j+1]);

}

}

printf (“Sebelum selection sort: \n”);

printf (“n  i  a  t  c  l  f  k  m  r  d  \n”);

printf (“\nhasil\n”);

for (i = 0; i < n; i++) printf (“%c  “, data[i]);

putchar (‘\n’);

getch ();

return 0x0;

}

Hasil/Outputnya:

Untuk pengaplikasian metode ini dalam bahasa Pascal, coba cek di sini gan. Ada link coding di bagian akhir postingannya 😀

Program Class-Volume Tabung

#include <string.h>

#include <iostream.h>

#include <conio.h>

#pragma hdrstop

//————————————————————

USERES(“praktek2_no2.res”);

//————————————————————

class tabung

{

private :

float jari;

float tinggi;

public :

void setTabung(float r, float t);

float getVolume();

float getJari();

float getTinggi();

};

 

int main(int argc, char **argv)

{

tabung tbg;

tbg.setTabung(10,2);

cout<<“JARINYA ADALAH “<<tbg.getJari()<<endl;

cout<<“TINGGINYA ADALAH “<<tbg.getTinggi()<<endl;

cout<<“VOLUME TABUNGNYA ADALAH “<<tbg.getVolume()<<endl;

getch();

return 0;

}

void tabung::setTabung(float r,float t)

{

jari=r;

tinggi=t;

}

 

float tabung::getVolume()

{

return((3.14*jari*jari)*tinggi);

}

 

float tabung::getJari()

{

return(jari);

}

float tabung::getTinggi()

{

return(tinggi);

}

Program Mencari Nilai Terbesar dari N bilangan-C++

//—————————————————————

#include <vcl\condefs.h>

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include <conio.h>

#pragma hdrstop

//—————————————————————

USERES(“bilterbesarstd.res”);

//—————————————————————

int main(int argc, char **argv)

{

int n,x,nilai,max;

printf(“\n”);

printf(“—————————————————\n”);

printf(“Berapa jumlah N data yang ingin diinputkan : “);

scanf(“%d”,&n);

for(x=1;x<=n;x++)

{

printf(“masukkan nilai ke-%d :”,x);scanf(“%d”,&nilai);

if(x==1)

{

max=nilai;

}

if(max<nilai)max=nilai;

}

printf(“Nilai terbesar diantara %d inputan adalah %d\n”,n,max);

getch();

return 0;

}

//—————————————————————

Outputnya:

Bilangan Romawi di C++ (Amalia Nurani)

Tugas besar sebelum UTS Pemrograman I untuk setiap mahasiswa berbeda-beda…misalnya, Amalia yang mendapat tugas mengkonversi bilangan desimal ke bilangan romawi, tentunya dengan bahasa C++. Susah2 gampang seh, tapi dapat juga kok. Ini kode lengkapnya:

Kalender di C++ (Kiky Reskianti)

Nah, untuk temanku yang satu ini, dapatnya kode C++ untuk buat kalender. Mau lihat kodenya???