Volume Balok, Volume Kerucut, dan Volume limas segitiga ( C++ )

Volume Balok

#include
#include

void main ()
{
int p, l, t, v;
cout<<" Masukkan Panjang : ";
cin>>p ;
cout<<" Masukkan Lebar : ";
cin>>l;
cout<<" Masukkan Tinggi : ";
cin>>t;
v=p*l*t;
cout<<"Volume= ";
cout<}


VOLUME LIMAS SEGITIGA
#include
#include

void main ()
{
double a, ts, t, v;
cout<<" alas segitiga : ";
cin>>a ;
cout<<" tinggi segitiga : ";
cin>>ts;
cout<<" tinggi limas : ";
cin>>t;
v=0.33*(a*ts*0.5)*t;
cout<<"Volume= ";
cout<}


VOLUME KERUCUT
#include
#include

void main ()
{
double r, ts, t, v;
cout<<" jari-jari lingkaran : ";
cin>>r ;
cout<<" tinggi kerucut : ";
cin>>t;
v=0.33*(3.14*r*r)*t;
cout<<"Volume= ";
cout<}

PROGRAM OPERASI ARITMATIKA (VISUAL BASIC)

Dim a1 As Single, a2 As Single
Dim hasil As Single

Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Label3.Caption = ""
Option1 = False
Option2 = False
Option3 = False
Option4 = False
Option5 = False
Option6 = False
Option7 = False
Option8 = False
End Sub

Private Sub Option1_Click()
If Text1.Text = "" And Text2.Text = "" Then
MsgBox "Anda belum mengisi inputnya", vbInformation, "KESALAHAN!"
Option1 = False
Else
a1 = Text1.Text
a2 = Text2.Text
hasil = a1 ^ a2
Label3.Caption = hasil
End If
End Sub

Private Sub Option2_Click()
If Text1.Text = "" And Text2.Text = "" Then
MsgBox "Anda belum mengisi inputnya", vbInformation, "KESALAHAN!"
Option2 = False
Else
a1 = Text1.Text
a2 = Text2.Text
hasil = a1 - a2
Label3.Caption = hasil
End If
End Sub

Private Sub Option3_Click()
If Text1.Text = "" And Text2.Text = "" Then
MsgBox "Anda belum mengisi inputnya", vbInformation, "KESALAHAN!"
Option3 = False
Else
a1 = Text1.Text
a2 = Text2.Text
hasil = a1 * a2
Label3.Caption = hasil
End If
End Sub

Private Sub Option4_Click()
If Text1.Text = "" And Text2.Text = "" Then
MsgBox "Anda belum mengisi inputnya", vbInformation, "KESALAHAN!"
Option4 = False
Else
a1 = Text1.Text
a2 = Text2.Text
hasil = a1 / a2
Label3.Caption = hasil
End If
End Sub

Private Sub Option5_Click()
If Text1.Text = "" And Text2.Text = "" Then
MsgBox "Anda belum mengisi inputnya", vbInformation, "KESALAHAN!"
Option6 = False
Else
a1 = Text1.Text
a2 = Text2.Text
hasil = a1 \ a2
Label3.Caption = hasil
End If
End Sub

Private Sub Option6_Click()
If Text1.Text = "" And Text2.Text = "" Then
MsgBox "Anda belum mengisi inputnya", vbInformation, "KESALAHAN!"
Option6 = False
Else
a1 = Text1.Text
a2 = Text2.Text
hasil = a1 Mod a2
Label3.Caption = hasil
End If
End Sub

Private Sub Option7_Click()
If Text1.Text = "" And Text2.Text = "" Then
MsgBox "Anda belum mengisi inputnya", vbInformation, "KESALAHAN!"
Option7 = False
Else
a1 = Text1.Text
a2 = Text2.Text
hasil = a1 + a2
Label3.Caption = hasil
End If
End Sub

Private Sub Option8_Click()
If Text1.Text = "" And Text2.Text = "" Then
MsgBox "Anda belum mengisi inputnya", vbInformation, "KESALAHAN!"
Option8 = False
Else
a1 = Text1.Text
a2 = Text2.Text
hasil = a1 & a2
Label3.Caption = hasil
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then

End If
If (KeyAscii = 48 Or KeyAscii = 49 Or KeyAscii = 50 Or KeyAscii = 51 Or KeyAscii = 52 Or KeyAscii = 53 Or KeyAscii = 54 Or KeyAscii = 55 Or KeyAscii = 56 Or KeyAscii = 57) Then
ElseIf (KeyAscii = vbKeyReturn Or KeyAscii = vbKeyDelete) Then
KeyAscii = 0
ElseIf KeyAscii = vbKeyBack Then
Else
KeyAscii = 0
MsgBox "Maaf, anda hanya bisa input angka saja!", vbInformation, "KESALAHAN"
Exit Sub
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then

End If
If (KeyAscii = 48 Or KeyAscii = 49 Or KeyAscii = 50 Or KeyAscii = 51 Or KeyAscii = 52 Or KeyAscii = 53 Or KeyAscii = 54 Or KeyAscii = 55 Or KeyAscii = 56 Or KeyAscii = 57) Then
ElseIf (KeyAscii = vbKeyReturn Or KeyAscii = vbKeyDelete) Then
KeyAscii = 0
ElseIf KeyAscii = vbKeyBack Then
Else
KeyAscii = 0
MsgBox "Maaf, anda hanya bisa input angka saja!", vbInformation, "KESALAHAN"
Exit Sub
End If
End Sub

program lengkap download disini :
aritmatika2.rar

Perulangan While ( C++ )

Masih mempelajari perulangan dengan program C++, tapi kali ini kita pakai while.
nah berikut adalah program perulangan sederhana dengan menggunakan while. selamat mencoba

#include
#include

void main()
{
char abjad;
clrscr();
cout<< "PROGRAM PERULANGAN WHILE A-Z \n" ;
cout<< "---------------------------- \n" ;
abjad='A';
while(abjad<='Z')
{
cout<<<("\n");
abjad++;
}
}

Kalau di Run hasilnya :

PROGRAM PERULANGAN WHILE A-Z
----------------------------
A
B
C
...
Z
Berikut contoh untuk Program Perulangan While-Do,

#include
#include

void main()
{
char abjad;
clrscr();
cout<<"PROGRAM PERULANGAN WHILE-DO Z-A \n";
cout<<"------------------------------- \n";
abjad='Z'; do { cout<<<("\n"); abjad-=1; } while(abjad>='A');
}
Kalau di Run Hasilnya :

PROGRAM PERULANGAN WHILE-DO Z-A
-------------------------------
z
y
x
...
A

Program Perulangan For (C++)

Lagi belajar pemrograman C++ neh, baru bisa buat script2 seperti in
Program berikut menggunakan Turbo C++ 4.5

#include
main()
{
printf (" PROGRAM LOOPING For \n");
printf ("-------------------------------\n");
printf ("\n");

{
int baris=1;
int maks=6;
int kolom=1;
int hasil_kali;
for (baris=1; baris<=maks; baris++)
{
hasil_kali=kolom*baris+(baris-1);
printf("%2d \n",hasil_kali);
}
}

}

kalau di Run hasilnya :

PROGRAM LOOPING FOR
-----------------------------

1
3
5
9
7
11

Bagi yang sudah master mohon bimbingannya, saran dan kritik pastinya
Thanks

Program Konversi Bilangan Biner ke Desimal (Visual Basic)

Download :
KOnversiBiner.rar

Program Rangkaian Kombinasional (Visual Basic)

Untuk Program Rangkaian Kombinasional saat ini hanya program Half Adder, Full Adder, Decoder 3-8



Download :
R_Kombinasional.rar

PROGRAM ANGKA DIGITAL SEDERHANA (Visual Basic)

Download :
Program Sederhana Angka Digital.rar
-->

PROGRAM MENGHITUNG JUMLAH KARAKTER DALAM KALIMAT (PASCAL)

Program Hitung_Karakter_dalam_Kalimat;
uses crt;
var kalimat:string;
i,p,karakter:integer;
begin
clrscr;
writeln(' ------------------------------------------------ ');
writeln(' PROGRAM MENGHITUNG JUMLAH KARAKTER DALAM KALIMAT ');
writeln(' ------------------------------------------------ ');
writeln;
writeln(' Ketikkan sebuah kalimat : ');
writeln;
write(' ');readln(kalimat);
p:=length(kalimat); karakter:= 0;
for i:=1 to p do
begin
if kalimat[i]in['a'..'z',' '] then karakter := karakter+1;
end;
writeln;
writeln(' Jumlah karakter yang anda ketik ada : ',karakter,' karakter ');
readkey;
end.

PROGRAM BINTANG BERBENTUK PIRAMID (PASCAL)

Program Bintang1;
uses crt;
var i,j,n:integer;
begin
clrscr;
writeln('-----------------------------------------------');
writeln(' PROGRAM BINTANG BERBENTUK PIRAMID ');
writeln('-----------------------------------------------');
write('masukkan nilai = '); readln (n);
for i:=1 to n do
begin
if (i mod 2 = 1) then
begin
for j:=1 to ((n-i) div 2) do write(' ');
for j:=1 to i do write('*');
writeln;
end;
end;
readln;
readkey;
end.

Program Hitung Kata dalam Kalimat (PASCAL)

Program Hitung_Kata_dalam_Kalimat;
uses crt;

var kalimat:string;
jumlah:integer;

procedure jumlah_kata(kata:String; var jumlah:integer);
var i:integer;
begin
if(kata[1]='') then jumlah:=0
else jumlah:=1;
for i:=1 to length(kata) do
begin
if (kata[i]='') and (kata[i+1]<>'') and (kata[i+2]<>'') then inc(jumlah)
Else if (kata[i]=' ') and (kata[i-1]<>'') and (kata[i+1]<>'') then inc(jumlah);
end;
end;

begin
clrscr;
writeln(' ------------------------------------------------ ');
writeln(' PROGRAM MENGHITUNG JUMLAH KATA DALAM KALIMAT ');
writeln(' ------------------------------------------------ ');
writeln;
write(' Ketikkan sebuah kalimat : ');readln(kalimat);
jumlah_kata(kalimat,jumlah);
writeln(' Jumlah kata yang anda ketik : ',jumlah,' buah kata');
readkey;
end.

Program Penjumlahan Matrik (PASCAL)

Berikut ini adalah program menampilkan dan menjumlahkan dua matrik :
Selamat mencoba

program Penjumlahan_Matrix;
uses crt;
const kolom=10;
baris=10;
type matrix=array[1..baris,1..kolom] of integer;
var matrix_A,matrix_B:matrix;
a,b:integer;
procedure InputMatrix(var x:matrix);
var i,j:integer;
begin
for i := 1 to a do
begin
for j := 1 to b do
begin
write('Masukkan Elemen[',i,',',j,']:');readln(x[i,j]);
end;
end;
end;
procedure CetakMatrix(var x:matrix);
var i,j:integer;
begin
for i := 1 to a do
begin
for j := 1 to b do
begin
write(x[i,j]:4);
end;
writeln;
end;
end;
procedure JumlahMatrix(var x,y:matrix);
var z:matrix;
i,j:integer;
begin
for i:=1 to a do
begin
for j:=1 to b do
begin
z[i,j]:=x[i,j] + y[i,j];
write(z[i,j]:4);
end;
writeln;
end;
end;
begin
clrscr;
write('Masukkan Jumlah Baris : ');readln(a);
write('Masukkan Jumlah kolom : ');readln(b);
if (a>10) or (b>10) then
begin
writeln('Max Kolom dan baris adalah 10!');
exit;
end;
clrscr;
writeln('Input Matrix A');
InputMatrix(matrix_A);
writeln;
writeln('Input Matrix B');
InputMatrix(matrix_B);
clrscr;
writeln('Matrix A');
CetakMatrix(matrix_A);
writeln;
writeln('Matrix B');
CetakMatrix(matrix_B);
writeln;
writeln('Penjumlahan Matrix A dan Matrix B');
JumlahMatrix(matrix_A,matrix_B);
readkey;
end.

Pascal Konversi Bilangan Desimal ke Biner (PASCAL)

-->Perhitungan secara manual :

Step 1. 17 dibagi 2 mendapatkan 8 sisa 1
Step 2. 8 dibagi 2 mendapatkan 4 sisa 0
Step 3. 4 dibagi 2 mendapatkan 2 sisa 0
Step 4. 2 dibagi 2 mendapatkan 1 sisa 0

Berikut adalah program konversi bilangan desimal ke biner dengan menggunakan program Pascal,

Program konversi_Desimal_to_Biner;
uses crt;
var bilangan:integer;

function decToBin(desimal:integer):string;
var hasilbagi, sisa:integer;
bin:char;
bilBiner:string;
begin
hasilBagi := desimal div 2;
bilBiner := '';

while (hasilBagi >= 1) do
begin
sisa := desimal mod 2;
if (sisa = 0)then bin := '0'
else if (sisa = 1) then bin := '1';

bilBiner:=bin + bilBiner;

desimal := hasilBagi;
hasilBagi := desimal div 2;
end;
decToBin:='1' + bilBiner;
end;

begin
clrscr;
writeln('KONVERSI BILANGAN DESIMAL KE BINER');
writeln;
write('masukkan bilangan : ');readln(bilangan);
write('Bilangan Binernya : ', decToBin(bilangan));
readkey;
end.



Sekarang kebalikannya dari bilangan biner ke bilangan desimal -->
(10110)₂ = 1×2⁴ + 0×2³ + 1×2² + 1×2¹ + 0×2⁰
(10110)₂ = 16 + 0 + 4 + 2 + 0 = 22
Bila di aplikasikan dalam program Pascal :



Program konversi_Biner_to_Dec;
uses crt;
var bilBiner : String;

function pangkat(a, b : integer): integer;
var i, hasil : integer;
begin
hasil := 1;
for i:=1 to b do
begin
hasil := hasil * a;
end;
pangkat := hasil;
end;

function bin2Dec(biner : string) : integer;
var n, sum, i : integer;
begin
n := length(biner);
sum := 0;
for i := n-1 downto 0 do
begin
if (biner [n-1] = '0') then sum := sum + 0 * pangkat (2, i)
else if (biner [n-1] = '1') then sum := sum + 1 * pangkat (2, i);
end;
bin2Dec := sum;
end;

begin
clrscr;
writeln('KONVERSI BILANGAN BINER KE DESIMAL');
writeln;
write('Masukkan bilangan Biner : ');readln(bilBiner);
write ('Bilangan Desimalnya : ', bin2Dec(bilBiner));
readkey;
end.

Program Kalkulator Sederhana (PASCAL)

Program berikut menggunakan Turbo Pascal versi 7.0
Program kalkulator ini didalamnya menggunakan operasi - operasi sederhana seperti : Penjumlahan, pengurangan, perkalian, pembagian, pemangkatan dan akar.

Bila program tersebut dijalankan

-->

Percabangan If dan Case Pada Pascal (PASCAL)

-->

a. Penggunaan If

Statement If Atau sering dikenal sebagai statemen kendali dipergunakan untuk memilih bagian program yang akan dieksekusi sesuai dengan kondisi yang diberikan pada program atau arus dari proses program selanjutnya bergantung dari hasil kondisi yang diseleksi.

Algoritma konversi dari angka ke huruf menggunakan if

a) Mulai

b) Masukkan nilai 0 s/d 100

c) If 81 s/d 100 = A

61 s/d 80 = B

41 s/d 60 = C

31 s/d 40 = D

0 s/d 30 = E

d) Jika ya, cetak Huruf

e) Jika tidak, cetak salah

f) Selesai

1) Algoritma konversi dari angka ke nama bulan menggunakan if

a) Mulai

b) Masukkan nilai 0 s/d 100

c) case of 1 = Jan 7 = Juli

2 = Feb 8 = Agust

3 = Mar 9 = Sept

4 = Apr 10 = Okt

5 = Mei 11 = Nov

6 = Juni 12 = Des

d) Jika ya, cetak Huruf

e) Jika tidak, cetak salah

f) Selesai

b. Penggunaan case

Bila kita dihadapan pada banyak pilihan, maka statement case paling tepat dipergunakan jika dibandingkan dengan statement if. Statement case berisi ungkapan (pemilih) dan sederetan statement yang masing-masing diawali dengan satu atau lebih konstanta (disebut konstanta case).

1) Algoritma konversi dari angka ke huruf menggunakan case

a) Mulai

b) Masukkan nilai 0 s/d 100

c) Case nilai of 81 s/d 100 = A

61 s/d 80 = B

41 s/d 60 = C

31 s/d 40 = D

0 s/d 30 = E

d) Jika ya, cetak Huruf

e) Jika tidak, cetak salah

f) Selesai

2) Algoritma konversi dari angka ke nama bulan menggunakan case

a) Mulai

b) Masukkan nilai 0 s/d 100

c) case bulan of 1 = Jan 7 = Juli

2 = Feb 8 = Agust

3 = Mar 9 = Sept

4 = Apr 10 = Okt

5 = Mei 11 = Nov

6 = Juni 12 = Des

d) Jika ya, cetak Huruf

e) Jika tidak, cetak salah

f) Selesai

Mengenal Pemrograman Pascal

-->

A. Perkembangan Pascal

Pascal adalah bahasa tingkat tinggi (high level language) yang orientasinya pada semua tujuan oleh Professor Niklaus Wirth, nama pascal diambil sebagai penghargaan terhadap Blaise Pascal, ahli matematik dan philosophi terkenal abad 17 dari Perancis. Kompiler Bahasa pascal pertama kali untuk komputer CDC 6000 (Control Data Corporation) untuk membantu mengajar program komputer secara sistematis, khususnya untuk pemprograman terstruktur.

B. Struktur Program Pascal

Struktur program pascal terdiri dari :

1. Judul Program

2. Blok Program

a. Bagian deklarasi

- Deklarasi label

- Definisi konstanta

- Definisi tipe

- Deklarasi variable

- Deklarasi prosedur

- Deklarasi fungsi

b. Bagian pernyataan

C. Penulisan Program Pascal

Contoh penulisan program yang bebas

Begin

Writeln(‘Belajar Pascal’);

Writeln(--------------‘);

End.

Contoh penulisan yang tidak dianjurkan

Begin Writeln(‘Belajar Pascal’); Writeln(--------------‘); End.

Contoh penulisan program yang dianjurkan

Begin

Writeln(‘Belajar Pascal’);

Writeln(--------------‘);

End.

D. Judul program

Judul program (bila ditulis) terletak pada awal program dan diakhiri dengan titik koma.

E. Bagian Deklarasi

1. Deklarasi Konstanta

Berisi identifier yang berisi nilai-nilai konstanta.

Contoh penulisannya:

Const

Panjang=10;

Lebar=5;

2. Deklarasi Variabel

Mendefinisikan identifieryang berisi data yang berubah-ubah nilainya dalam program.

Var total,gaji:real;

Menikah,keterangan:string;

3. Deklarasi tipe

Ada beberapa tipe dalam pascal antara lain :

a. Tipe data sederhana, terdiri dari :

- Tipe data standar : integer,char,real,string,boolean

- Tipe data didefinisikan pemakai : enumarated atau scalar type, subrange tipe.

b. Tipe data terstruktur, terdiri dari :

- Array - File

- Record - Set

c. Tipe data penunjuk (pointer type data)

Contoh : Type

Pecahan = real;

Logika = Boolean;

Bulat = integer;

Huruf = string [25];

Begin

4. Deklarasi label

Deklarasi yang neggunakan statemet goto untuk meloncat ke suatu statemen lain.

Contoh :

Label 100,selesai;

Begin

.................

Goto 100

.................

100 :

.................

Goto selesai

.................

Selesai :

End.

F. Cara mengoperasikan Turbo Pascal

Torbo pascal versi 5.0 hanya dapat dioperasikan pada format sistem operasi DOS, apabila kita menggunakan sistem operasi windows maka harus keluar dari sistem operasi.