Category Archives: Algoritma

Faktorial Dan Segitiga Dengan C++


Faktorial

Faktorial


Dalam postingan saya kali ini, yaitu membuat segitiga dengan faktorial. Mungkin sahabat kesulitan gimana caranya dalam membuat segitiga yang saya maksud. Program ini saya dapatkan ketika proses belajar di Kampus. Untuk lebih jelasnya silahkan coba coding program berikut ini…..

#include <iostream.h>
#include <conio.h>

void main()
{
int i,j,n,k;
cout<<"Masukkan Bilangan : ";
cin>>n;
cout<<endl;
i=n;
while(i>=1)
{
j=1;
while(j<=i)
{
k=i;
k=k*j;
cout<<k<<" ";
j++;

}
i--;
cout<<endl;
}
}

Semoga bermanfaat buat sahabat semua. GOOD LUCK. πŸ˜€

Membuat Jajar Genjang dengan Turbo C++


Jajar Genjang

Jajar Genjang

Pada postingan kali ini saya akan membuat program menampilkan suatu bangun ruang yaitu membuat jajar genjang dengan menggunakan C++. Berikut source kode yang dapat dicoba.

#include <iostream.h>
#include <conio.h>
void main()
{
int n=5;
int i,j,k;
for(i=1;i<=n;i++)
{
for(j=n;j>=i;j--)
{
cout<<" ";
}
for(k=1;k<=i+(i-1);k++)
{
cout<<"*";
}
cout<<endl;
}
for(i=2;i<=n;i++)
{
for(int j=1;j<=i;j++)
{
cout<<" ";
}
for(int k=n+(n-1);k>=i+(i-1);k--)
{
cout<<"*";

}
cout<<endl;
}
cout<<" --------------------------------------"<<endl;
cout<<"By :"<<endl;
cout<<"https://lesmardin1988.wordpress.com"<<endl;
cout<<" "<<endl;
cout<<"---------------------------------------"<<endl;
getch();
}

Bagi yang suka copas silahkan berikan komentar anda. Semoga ber manfaat buat kita semua. Good Luck. πŸ˜€

Menampilkan Gambar dengan Sun Java Wireless Toolkit 2.5.2


Output

Output


Langkah pertama yang dilakukan yaitu membuat Name Project =”Project Gambar” dan class MIDlet =”gambar”
kemudian create Project dan OK
setelah itu ambil gambar yang berekstensi PNG(.png) Contoh yang saya buat yaitu edit.png
edit.png

edit.png


Kemudian simpan pada C:\Users\LES_HAS\j2mewtk\2.5.2\apps\Project Gambar\res (ini address yang ada pada komputer saya)
Selanjutnya ketikkan code dibawa ini

import javax.microedition.midlet.*;
import javax.microedition.lcdui.*;
public class gambar extends MIDlet implements CommandListener
{
Display display;
Form imageForm;
Command exitCommand = new Command("Exit", Command.EXIT,1);

public gambar(){
imageForm = new Form("ImageItem");
imageForm.addCommand(exitCommand);
imageForm.setCommandListener(this);

try{
Continue reading

Program Animasi Stack Push – Pop Pada Turbo C++


Stack Push-Pop

Stack Push-Pop

Pada Postingan ini saya akan membuat program animasi stack push-pop pada Turbo C++ untuk melengkapi program yang telah diberikan oleh dosen saya pada mata kuliah Pemograman Berorientasi Objek. Nah untuk source codenya silahkan langsung anda coba di Laptop atau komputer anda

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

int top,i;
char key,temp,e;
char stack[10];
void delay();

void pushmardin()
{
for(i=0;i<=17; i++)
{
gotoxy(22+i,7);cout<<" ";
gotoxy(23+i,7); cout<<temp; delay();
}
for(i=1;i<=(14-top);i++)
{
delay();
gotoxy(40,6+i); cout<<" ";
gotoxy(40,7+i); cout<<temp;
}
}
void popmardin(char temp)
{
for(i=1;i<=(14-top);i++)
{
delay();
gotoxy(40,22-i-top);cout<<"";
gotoxy(40,21-i-top);cout<<temp;
}
for(i=1;i<=19;i++)
{
delay();
gotoxy(38+i,7);cout<<"";
gotoxy(39+i,7);cout<<temp;delay();
}
gotoxy(58,7);cout<<"";
}
void push(char e)
{
top=top+1;
stack[top]=e;
pushmardin();
}
void pop(char e)
{
if(top!=0)
{
e=stack[top];popmardin(e);
top=top-1;
}
else
{
gotoxy(1,7);cout<<"Stack Telah Kosong"<<endl;
Continue reading

Perulangan Pada Abjad dengan C++


Untuk kali ini saya akan mengajak para pemula untuk mencoba perlungan abjad dengan menggunakan C++
berikut kodenya yang dapat tampung ……

#include
#include

void main()
{
char abjad;
clrscr();
cout << "Perulangan abjad" << endl;
abjad = 'A';
do
{
cout << abjad << ' ';
abjad +=1;
} while (abjad <= 'Z');
}

Semoga bermanfaat buat kita semua πŸ˜€

Switch Case Pada C++


Preview

Preview


Pada pembahasan kali ini saya, akan membuat sebuah algoritma dengan menggunakan C++. Dengan pemakaian switch case
berikut adalah contoh yang saya buat


#include
#include

void main()
{
char kode_jurusan;
char *Jurusan;
long pembayaran_awal;
long cicilan;
int jumlah_cicilan;
long uang_kuliah;
cout<>kode_jurusan;

switch(kode_jurusan)
{
case '1':
Jurusan="Teknik Informatika";
pembayaran_awal=800000;
cicilan=850000;
jumlah_cicilan=4;
break;
case '2':
Jurusan="Sistem Informasi"; Continue reading

Membuat Project Kalkulator dengan Sun Java (TM) Wireless Toolkit 2.5.2


awal

awal


Seperti biasanya seperti pada pembahasan sebelumnya dalam memulainya kita buat dulu Project Namenya “Project Kalkulator” dan nama MIDlet class Name nya “kalkulator” klik create project dan OK
selanjutnya ketikkan kode dibawah ini


import javax.microedition.midlet.*;
import javax.microedition.lcdui.*;
public class kalkulator extends MIDlet implements CommandListener
{
Display display;
Form formcalc, formhasil, formabout;
TextField input1, input2, output;
StringItem labelhasil, pesan;
Command exit, quit, about, tambah, kurang, kali, bagi, selesai;
Ticker ticker1;

public kalkulator()
{
formcalc=new Form("Kalkulator");
ticker1= new Ticker ("Kalkulator Kecil");
formcalc.setTicker(ticker1);
exit=new Command("Exit", Command.EXIT,0);
about=new Command("About", Command.SCREEN,1);
tambah=new Command("+", Command.SCREEN,1);
kurang=new Command("-", Command.SCREEN,1);
kali=new Command("x", Command.SCREEN,1);
bagi=new Command("/", Command.SCREEN,1);

formcalc.addCommand(exit);
formcalc.addCommand(about);
formcalc.addCommand(tambah);
formcalc.addCommand(kurang);
formcalc.addCommand(kali);
formcalc.addCommand(bagi);
formcalc.setCommandListener(this);

input1=new TextField("Input 1 :","",15, Continue reading

Menghitung Luas Pada Sebuah Bidang Dengan Sun Java (TM) Wireless Toolkit 2.5.2


1
Untuk menghitung luas pada sebuah bidang pertama anda buat dulu New Project seperti yang sudah saya buat cara memulai sebuah project di postingan sebelumnya. Untuk kali ini saya akan membuat nama projectnya “Project Bidang” dan MIDlet Class Name nya saya buat “bidang”

import javax.microedition.midlet.*;
import javax.microedition.lcdui.*;
public class bidang extends MIDlet implements CommandListener
{
private Display tampil;
private Form frm;
private TextField txt_alas;
private TextField txt_tinggi;
private TextField txt_lebar;
private TextField txt_panjang;
private TextField txt_jari_jari;
private TextField txt_Hasil;
private Command cmdKeluar;
private Command cmdOK;

public bidang() Continue reading

Menghitung Luas Segitiga pada Sun Java (TM) Wireless Toolkit 2.5.2


Langkah pertama buka aplikasi Sun Java(TM) Wireless Toolkit 2.5.2
setelah itu buat Project Baru dengan nama “project segitiga”
MIDlet Class Name dengan “segitiga”
Klik Create project dan OK
kemudian ketikkan kode dibawah ini pada “Notepad”

import javax.microedition.midlet.*;
import javax.microedition.lcdui.*;
public class segitiga extends MIDlet implements CommandListener Continue reading

Memulai Projek Pada Sun Java (TM) Wireless Toolkit 2.5.2


Langkah-langkah memulai Projek Pada Sun Java (TM) Wireless Toolkit 2.5.2 for CLDC
Kita mulai dari Start – Sun Java (TM) Wireless Toolkit 2.5.2 for CLDC
pilih dan klik Wireless Toolkit 2.5.2
maka akan tampil sebagai berikut
1
setelah tampil jendela Wireless Toolkit 2.5.2 pilih New Project
2
3
Kemudian isikan Nama pada Project Name dan MIDlet class name (Project Name dan MIDlet class name harus sama)
klik OK
4

kemudian untuk memulainya buka Notepad dan ketikkan coding sebagai berikut Continue reading

Bubble Sort pada Pascal


uses wincrt;
var
i,n,j : integer;
a: array [1..100] of integer;

procedure buble;
var z: integer;
begin
for i:= 1 to n-1 do
begin
for j:= n downto i+1 do
begin
if a[j] < a[j-1] then
begin
z:= a[j];
a[j]:= a[j-1];
a[j-1]:=z;
end; Continue reading

Menghitung Huruf pada Pascal


saat ini saya akan sharing bagaimana menghitung huruf dalam suatu kalimat. Mungkin ini akan berguna bagi teman-teman semua.
Langkah-langkah adalah sebagai berikut :
Uses WinCrt;
Var
Teks : string;
banyak : array[‘A’..’Z’] of byte;
i : byte;
begin
Write(‘Masukkan Suatu Kalimat :’);
Readln(Teks);
for i:=1 to length(teks) do
banyak[upcase(teks[i])]:=banyak[upcase(teks[i])]+1;
for i:=1 to 26 do
if (banyak[upcase(chr(64+i))]0) then
writeln(upcase(chr(64+i)),’ banyaknya =’,banyak[upcase(chr(64+i))]);
end.
Continue reading