Tipe Data
Tipe Data diperlukan agar compiler tahu operasi apa yang valid dan berapa banyak memori yang diperlukan oleh sebuah nilai yang akan disimpan atau dioperasikan.
Dalam Java ada 2 jenis: tipe data primitif dan tipe data referensi.
Tipe data primitif:
Integer : tipe data bilangan bulat, terdiri dari byte, short, int dan long. tipe data ini adalah yang paling sering
dipakai baik oleh pemula ataupun yang sudah berpengalaman
Floating-Point : tipe data pecahan, terdiri dari float dan double. cukup jarang dipakai oleh pemula
programmer bahasa Java
Karakter : simbol dari sebuah karakter terdiri dari char.
Boolean : true or false, terdiri dari boolean.
Integer
Friday, 23 December 2016
Friday, 16 December 2016
Identifier, Keyword, dan Variabel dalam Java
Identifier
Merupakan nama yang digunakan untuk menamai class, variabel, method dan interface. Aturan:
- Tidak ada batasan panjang.
- Harus diawali dengan huruf, underscore, atau lambang dolar ($).
- Bukan merupakan keywords yang dikenal oleh Java.
Contoh identifier yang valid:
strTemp, $good, b4Th33, _aValidOne
Contoh identifier yang tidak valid:
4Ever, from-to, Good/Bad, *by5
Keyword
Merupakan kata-kata yang dikenal oleh compiler Java dan mempunyai arti khusus dalam program
contoh keyword: case, import, class,
for, false, default,
else, do, if, boolean, private, null
Variabel
Merupakan lokasi penyimpanan informasi yang ada di memori sesuai dengan tipe data yang dideklarasikan.
Aturan:
tipe-data nama-variabel
Tipe data meliputi semua tipe data dalam Java, nama variabel adalah identifier yang akan digunakan untuk merujuk variable tersebut dalam program.
contoh:
int counter;
Anda tidak dapat menggunakan variabel yang belum dideklarasikan:
counter = 0;
int counter;
Merupakan nama yang digunakan untuk menamai class, variabel, method dan interface. Aturan:
- Tidak ada batasan panjang.
- Harus diawali dengan huruf, underscore, atau lambang dolar ($).
- Bukan merupakan keywords yang dikenal oleh Java.
Contoh identifier yang valid:
strTemp, $good, b4Th33, _aValidOne
Contoh identifier yang tidak valid:
4Ever, from-to, Good/Bad, *by5
Keyword
Merupakan kata-kata yang dikenal oleh compiler Java dan mempunyai arti khusus dalam program
contoh keyword: case, import, class,
for, false, default,
else, do, if, boolean, private, null
Variabel
Merupakan lokasi penyimpanan informasi yang ada di memori sesuai dengan tipe data yang dideklarasikan.
Aturan:
tipe-data nama-variabel
Tipe data meliputi semua tipe data dalam Java, nama variabel adalah identifier yang akan digunakan untuk merujuk variable tersebut dalam program.
contoh:
int counter;
Anda tidak dapat menggunakan variabel yang belum dideklarasikan:
counter = 0;
int counter;
Tuesday, 13 December 2016
Pengenalan Bahasa Java
Bahasa Java diciptakan oleh
James Gosling, dan resmi diperkenalkan pada tahun 1995
Bahasa Java Merupakan bahasa pemrograman berorientasi obyek murni, dan Pada awalnya hanya mampu berjalan di SO Solaris & Windows NT. Pada tahun 1996 diciptakan Java versi 1.0 à Solaris, Windows NT/95, Macintosh
Karakteristik Bahasa Java
Bahasa Java Merupakan bahasa pemrograman berorientasi obyek murni, dan Pada awalnya hanya mampu berjalan di SO Solaris & Windows NT. Pada tahun 1996 diciptakan Java versi 1.0 à Solaris, Windows NT/95, Macintosh
Karakteristik Bahasa Java
- Mirip
C/C++
- OOP (Object Oriented Programming)
- Multiplatform
- Distributed
- Portable
- Secure
Edisi Java
- J2SE
(Java 2 Platform Standard Edition) à
mengembangkan aplikasi-aplikasi desktop
dan server
berukuran kecil hingga sedang.
- J2EE
(Java 2 Platform Enterprise Edition) à
untuk mengembangkan aplikasi-aplikasi berskala besar (enterprise).
- J2ME
(Java 2 Platform Micro Edition) à
untuk mengembangkan aplikasi
mobile, PDA dsb.
Struktur Program Java
Class
à konstruksi Java
yang paling penting.
Method
à sekumpulan
statement untuk melakukan operasi tertentu.
Reserved Word
Friday, 9 December 2016
Searching dalam Bahasa C
selamat malam, hari ini saya akan membagikan cara membuat program Searching dalam bahasa C
selamat mencoba
#include<stdio.h>
#include<conio.h>
#include<stdlib.h>
main()
{
int array[100], search, c, number;
printf("Input jumlah data : ");
scanf("%d",&number);
printf("Masukkan %d nomor : \n", number);
for(c=0; c<number; c++){
printf("Data ke-%d : ",c+1);
scanf("%d",&array[c]);
}
printf("Input data yang akan dicari : ");
scanf("%d",&search);
for (c=0; c<number; c++){
if (array[c]==search){
printf("\n%d ada di lokasi ke-%d.\n", search, c+1);
break;
}
}
if(c==number) printf("%d tidak ada di array\n", search);
getch();
_exit(0);
}
selamat mencoba
#include<stdio.h>
#include<conio.h>
#include<stdlib.h>
main()
{
int array[100], search, c, number;
printf("Input jumlah data : ");
scanf("%d",&number);
printf("Masukkan %d nomor : \n", number);
for(c=0; c<number; c++){
printf("Data ke-%d : ",c+1);
scanf("%d",&array[c]);
}
printf("Input data yang akan dicari : ");
scanf("%d",&search);
for (c=0; c<number; c++){
if (array[c]==search){
printf("\n%d ada di lokasi ke-%d.\n", search, c+1);
break;
}
}
if(c==number) printf("%d tidak ada di array\n", search);
getch();
_exit(0);
}
Thursday, 1 December 2016
Ascending dalam Bahasa C
Disini saya akan membagikan contoh program ascending dengan inputan user dalam Bahasa C
Semoga bermanfaat
#include <stdio.h>
#include <windows.h>
#include <conio.h>
int a[10], i=0, j=0, n, t;
main() {
Sorting:
system("cls");
printf ("Inputkan Banyak Data yang akan diurutkan : ");
scanf ("%d", &n);
printf ("\n");
for (i = 0; i <n; i++)
{
printf ("\n Masukkan Data ke %d : ", (i+1));
scanf ("%d", &a[i]);
}
for (j=0 ; j<(n-1) ; j++)
{
for (i=0 ; i<(n-1) ; i++)
{
if (a[i+1] < a[i])
{
t = a[i];
a[i] = a[i + 1];
a[i + 1] = t;
}
}
}
printf ("\n Setelah Pengurutan: ");
for (i=0 ; i<n ; i++)
{
printf (" \nindeks ke %d: %d",i+1, a[i]);
}
printf("\nKembali ke awal ? (y/n)");
i=getch();
if (i=='y')
goto Sorting;
else _exit(0);
}
Semoga bermanfaat
#include <stdio.h>
#include <windows.h>
#include <conio.h>
int a[10], i=0, j=0, n, t;
main() {
Sorting:
system("cls");
printf ("Inputkan Banyak Data yang akan diurutkan : ");
scanf ("%d", &n);
printf ("\n");
for (i = 0; i <n; i++)
{
printf ("\n Masukkan Data ke %d : ", (i+1));
scanf ("%d", &a[i]);
}
for (j=0 ; j<(n-1) ; j++)
{
for (i=0 ; i<(n-1) ; i++)
{
if (a[i+1] < a[i])
{
t = a[i];
a[i] = a[i + 1];
a[i + 1] = t;
}
}
}
printf ("\n Setelah Pengurutan: ");
for (i=0 ; i<n ; i++)
{
printf (" \nindeks ke %d: %d",i+1, a[i]);
}
printf("\nKembali ke awal ? (y/n)");
i=getch();
if (i=='y')
goto Sorting;
else _exit(0);
}
Sorting Exchange dalam Bahasa C
Selamat malam, saya akan membagikan contoh coding Exchange Sort dalam bahasa C
Silahkan dilihat
#include<stdio.h>
const int ASC = 0;
const int DESC = 1;
int i, j;
void cetakData(int data[], int bykData){
printf("HASIL:\n");
for(i=0;i<bykData;i++){
printf("%d ",data[i]);
}
printf("\n\n");
}
void tukarData(int &angka1, int &angka2){
int temp = angka1;
angka1 = angka2;
angka2 = temp;
}
void exchangeSort(int data[], int bykData, int tipeUrutan){
printf("EXCHANGE SORT - ");
if(tipeUrutan==ASC){
printf("ASC\n");
}else if(tipeUrutan==DESC){
printf("DESC\n");
}
for(i=0; i<=bykData-2; i++){
for(j=0; j<bykData; j++){
printf("%d ",data[j]);
}
for(j=i+1; j<=bykData-1; j++){
if(tipeUrutan == ASC){
if(data[i]>data[j]){
tukarData(data[i],data[j]);
}
}else if(tipeUrutan == DESC){
if(data[i]<data[j]){
tukarData(data[i],data[j]);
}
}
}
printf("\n");
}
cetakData(data, bykData);
}
main(){
int data[10] = {5,2,1,4,7,9,3,5,8,6};
exchangeSort(data, 10, ASC);
exchangeSort(data, 10, DESC);
}
Silahkan dilihat
#include<stdio.h>
const int ASC = 0;
const int DESC = 1;
int i, j;
void cetakData(int data[], int bykData){
printf("HASIL:\n");
for(i=0;i<bykData;i++){
printf("%d ",data[i]);
}
printf("\n\n");
}
void tukarData(int &angka1, int &angka2){
int temp = angka1;
angka1 = angka2;
angka2 = temp;
}
void exchangeSort(int data[], int bykData, int tipeUrutan){
printf("EXCHANGE SORT - ");
if(tipeUrutan==ASC){
printf("ASC\n");
}else if(tipeUrutan==DESC){
printf("DESC\n");
}
for(i=0; i<=bykData-2; i++){
for(j=0; j<bykData; j++){
printf("%d ",data[j]);
}
for(j=i+1; j<=bykData-1; j++){
if(tipeUrutan == ASC){
if(data[i]>data[j]){
tukarData(data[i],data[j]);
}
}else if(tipeUrutan == DESC){
if(data[i]<data[j]){
tukarData(data[i],data[j]);
}
}
}
printf("\n");
}
cetakData(data, bykData);
}
main(){
int data[10] = {5,2,1,4,7,9,3,5,8,6};
exchangeSort(data, 10, ASC);
exchangeSort(data, 10, DESC);
}
Sorting Selection dalam Bahasa C
Selamat Malam, hari ini saya akan membagikan contoh program sorting Selection dalam bahasa C, silahkan dipelajari
#include<stdio.h>
const int ASC = 0;
const int DESC = 1;
int i, j;
void cetakData(int data[], int bykData){
printf("HASIL:\n");
for(i=0;i<bykData;i++){
printf("%d ",data[i]);
}
printf("\n\n");
}
void tukarData(int &angka1, int &angka2){
int temp = angka1;
angka1 = angka2;
angka2 = temp;
}
void selectionSort(int data[], int bykData, int tipeUrutan){
printf("SELECTION SORT - ");
if(tipeUrutan==ASC){
printf("ASC\n");
}else if(tipeUrutan==DESC){
printf("DESC\n");
}
int minIndex;
for(i=0;i<bykData-1;i++){
for(j=0; j<bykData; j++){
printf("%d ",data[j]);
}
minIndex = i;
for(j=i+1;j<bykData;j++){
if(tipeUrutan==ASC){
if(data[j]<data[minIndex]){
minIndex=j;
}
}
else if(tipeUrutan==DESC){
if (data[j]>data[minIndex]){
minIndex=j;
}
}
}
if (minIndex!=i){
tukarData(data[i],data[minIndex]);
}
printf("\n");
}
cetakData(data, bykData);
}
main(){
int data[10] = {5,2,1,4,7,9,3,5,8,6};
selectionSort(data, 10, ASC);
selectionSort(data, 10, DESC);
}
#include<stdio.h>
const int ASC = 0;
const int DESC = 1;
int i, j;
void cetakData(int data[], int bykData){
printf("HASIL:\n");
for(i=0;i<bykData;i++){
printf("%d ",data[i]);
}
printf("\n\n");
}
void tukarData(int &angka1, int &angka2){
int temp = angka1;
angka1 = angka2;
angka2 = temp;
}
void selectionSort(int data[], int bykData, int tipeUrutan){
printf("SELECTION SORT - ");
if(tipeUrutan==ASC){
printf("ASC\n");
}else if(tipeUrutan==DESC){
printf("DESC\n");
}
int minIndex;
for(i=0;i<bykData-1;i++){
for(j=0; j<bykData; j++){
printf("%d ",data[j]);
}
minIndex = i;
for(j=i+1;j<bykData;j++){
if(tipeUrutan==ASC){
if(data[j]<data[minIndex]){
minIndex=j;
}
}
else if(tipeUrutan==DESC){
if (data[j]>data[minIndex]){
minIndex=j;
}
}
}
if (minIndex!=i){
tukarData(data[i],data[minIndex]);
}
printf("\n");
}
cetakData(data, bykData);
}
main(){
int data[10] = {5,2,1,4,7,9,3,5,8,6};
selectionSort(data, 10, ASC);
selectionSort(data, 10, DESC);
}
Thursday, 17 November 2016
Insertion dalam bahasa C
hari ini saya akan membagikan program insertion dalam bahasa C
silahkan dipelajari
#include<stdio.h>
const int ASC = 0;
const int DESC = 1;
int i, j;
void cetakData(int data[], int bykData){
printf("HASIL:\n");
for(i=0;i<bykData;i++){
printf("%d ",data[i]);
}
printf("\n\n");
}
void tukarData(int &angka1, int &angka2){
int temp = angka1;
angka1 = angka2;
angka2 = temp;
}
void insertionSort(int data[], int bykData, int tipeUrutan){
printf("INSERTION SORT - ");
if(tipeUrutan==ASC){
printf("ASC\n");
}else if(tipeUrutan==DESC){
printf("DESC\n");
}
int temp;
for(i=1;i<bykData;i++){
for(j=0; j<bykData; j++){
printf("%d ",data[j]);
}
temp = data[i];
j=i-1;
if(tipeUrutan == ASC){
while(data[j]>temp && j>=0){
data[j+1]=data[j];
j--;
}
}else if(tipeUrutan == DESC){
while(data[j]<temp && j>=0){
data[j+1]=data[j];
j--;
}
}
data[j+1] = temp;
printf("\n");
}
cetakData(data, bykData);
}
main(){
int data[10] = {5,2,1,4,7,9,3,5,8,6};
insertionSort(data, 10, ASC);
insertionSort(data, 10, DESC);
}
silahkan dipelajari
#include<stdio.h>
const int ASC = 0;
const int DESC = 1;
int i, j;
void cetakData(int data[], int bykData){
printf("HASIL:\n");
for(i=0;i<bykData;i++){
printf("%d ",data[i]);
}
printf("\n\n");
}
void tukarData(int &angka1, int &angka2){
int temp = angka1;
angka1 = angka2;
angka2 = temp;
}
void insertionSort(int data[], int bykData, int tipeUrutan){
printf("INSERTION SORT - ");
if(tipeUrutan==ASC){
printf("ASC\n");
}else if(tipeUrutan==DESC){
printf("DESC\n");
}
int temp;
for(i=1;i<bykData;i++){
for(j=0; j<bykData; j++){
printf("%d ",data[j]);
}
temp = data[i];
j=i-1;
if(tipeUrutan == ASC){
while(data[j]>temp && j>=0){
data[j+1]=data[j];
j--;
}
}else if(tipeUrutan == DESC){
while(data[j]<temp && j>=0){
data[j+1]=data[j];
j--;
}
}
data[j+1] = temp;
printf("\n");
}
cetakData(data, bykData);
}
main(){
int data[10] = {5,2,1,4,7,9,3,5,8,6};
insertionSort(data, 10, ASC);
insertionSort(data, 10, DESC);
}
Tuesday, 15 November 2016
Sorting Bubblesort dalam bahasa C
hari ini saya akan membagikan sorting dalam bahasa C, sorting nya adalah Bubblesort
#include<stdio.h>
const int ASC = 0;
const int DESC = 1;
int i, j;
void cetakData(int data[], int bykData){
printf("HASIL:\n");
for(i=0;i<bykData;i++){
printf("%d ",data[i]);
}
printf("\n\n");
}
void tukarData(int &angka1, int &angka2){
int temp = angka1;
angka1 = angka2;
angka2 = temp;
}
void bubbleSort(int data[], int bykData, int tipeUrutan){
printf("BUBBLE SORT - ");
if(tipeUrutan==ASC){
printf("ASC\n");
}else if(tipeUrutan==DESC){
printf("DESC\n");
}
int cek;
do{
cek=0;
for(i=0; i<bykData; i++){
printf("%d ",data[i]);
}
for(i=bykData-1; i>=1; i--){
if(tipeUrutan == ASC){
if(data[i]<data[i-1]){
for(j=i; j>=1; j--){
if(data[j]<data[j-1]){
tukarData(data[j],data[j-1]);
cek++;
}else break;
}
}
}else if(tipeUrutan == DESC){
if(data[i]>data[i-1]){
for(j=i; j>=1; j--){
if(data[j]>data[j-1]){
tukarData(data[j],data[j-1]);
cek++;
}else break;
}
}
}
if(cek!=0)break;
}
printf("\n");
}while(cek!=0);
cetakData(data, bykData);
}
main(){
int data[10] = {5,2,1,4,7,9,3,5,8,6};
bubbleSort(data, 10, ASC);
bubbleSort(data, 10, DESC);
}
#include<stdio.h>
const int ASC = 0;
const int DESC = 1;
int i, j;
void cetakData(int data[], int bykData){
printf("HASIL:\n");
for(i=0;i<bykData;i++){
printf("%d ",data[i]);
}
printf("\n\n");
}
void tukarData(int &angka1, int &angka2){
int temp = angka1;
angka1 = angka2;
angka2 = temp;
}
void bubbleSort(int data[], int bykData, int tipeUrutan){
printf("BUBBLE SORT - ");
if(tipeUrutan==ASC){
printf("ASC\n");
}else if(tipeUrutan==DESC){
printf("DESC\n");
}
int cek;
do{
cek=0;
for(i=0; i<bykData; i++){
printf("%d ",data[i]);
}
for(i=bykData-1; i>=1; i--){
if(tipeUrutan == ASC){
if(data[i]<data[i-1]){
for(j=i; j>=1; j--){
if(data[j]<data[j-1]){
tukarData(data[j],data[j-1]);
cek++;
}else break;
}
}
}else if(tipeUrutan == DESC){
if(data[i]>data[i-1]){
for(j=i; j>=1; j--){
if(data[j]>data[j-1]){
tukarData(data[j],data[j-1]);
cek++;
}else break;
}
}
}
if(cek!=0)break;
}
printf("\n");
}while(cek!=0);
cetakData(data, bykData);
}
main(){
int data[10] = {5,2,1,4,7,9,3,5,8,6};
bubbleSort(data, 10, ASC);
bubbleSort(data, 10, DESC);
}
Monday, 14 November 2016
Menghitung luas segitiga dalam pascal
hari ini, saya akan membagikan cara mencari luas segitiga dalam pascal
silahkan dilihat
uses crt;
var a, t :integer;
begin
clrscr;
writeln('==SEGITIGA==');
write('Masukkan Alas : '); readln(a);
write('Masukkan Tinggi : '); readln(t);
writeln('Luas = ', a*t/2:0:2);
readkey;
end.
silahkan dilihat
uses crt;
var a, t :integer;
begin
clrscr;
writeln('==SEGITIGA==');
write('Masukkan Alas : '); readln(a);
write('Masukkan Tinggi : '); readln(t);
writeln('Luas = ', a*t/2:0:2);
readkey;
end.
Sunday, 13 November 2016
Menghitung jari - jari, luas dan keliling lingkaran dalam pascal
selamat malam, hari ini saya akan membagikan cara mencari/menghitung jari - jari, luas dan diameter lingkaran jika diketahui diameternya dalam pascal
uses crt;
var d :integer;
begin
clrscr;
writeln('==LINGKARAN==');
write('Masukkan diameter : '); readln(d);
writeln('Jari-jari = ', d/2:0:2);
writeln('Luas = ',0.25*3.14*d*d:0:2);
writeln('Keliling = ', 3.14*d:0:2);
readkey;
end.
uses crt;
var d :integer;
begin
clrscr;
writeln('==LINGKARAN==');
write('Masukkan diameter : '); readln(d);
writeln('Jari-jari = ', d/2:0:2);
writeln('Luas = ',0.25*3.14*d*d:0:2);
writeln('Keliling = ', 3.14*d:0:2);
readkey;
end.
Friday, 11 November 2016
Konstanta dalam Pascal
Konstanta didefiniskan sebagai identifier yang dapat diassign oleh suatu nilai pada awal program. Nilai yang disimpan di dalam konstanta tidak dapat diubah.
pendeklarasian konstanta pada bagian const
contoh:
const
name = 'John Bruce'; //string
firstletter = 'a'; //char
year = 1996; //string
phi = 3.1415926535897932; //real
contoh program:
uses crt;
const
Nama = 'George';
Huruf = 'G';
Tahun = 1996;
phi = 3.1415926535897932;
begin
clrscr;
writeln('Nama: ', Nama);
writeln('Huruf: ', Huruf);
writeln('Tahun; ',Tahun);
writeln('phi: ', phi);
readkey();
end.
pendeklarasian konstanta pada bagian const
contoh:
const
name = 'John Bruce'; //string
firstletter = 'a'; //char
year = 1996; //string
phi = 3.1415926535897932; //real
contoh program:
uses crt;
const
Nama = 'George';
Huruf = 'G';
Tahun = 1996;
phi = 3.1415926535897932;
begin
clrscr;
writeln('Nama: ', Nama);
writeln('Huruf: ', Huruf);
writeln('Tahun; ',Tahun);
writeln('phi: ', phi);
readkey();
end.
Thursday, 10 November 2016
Identifier dalam Pascal
Identifier merupakan sebuah nama yang digunakan untuk keperluan penyimpanan sebuah nilai, pendeklarasian variabel, konstanta, type dan nama program maupun subprogram
aturan penulisan identifier:
1. karakter pertama harus dimulai dengan karakter huruf a-z atau A-Z
2. setelah karakter pertama, dapat dilanjutkan dengan karakter alfanumerik (angka maupun huruf), dan underscore
3. dalam penulisan identifier, tidak boleh menggunakan karakter berikut ini
~ ! @ # $ % ^ & * ( ) + ` - = { } [ ] : " ; ' < > ? , . / |
4. Tidak boleh menuliskan identifier dengan nama yang sesuai kata tercadang (reserved word) dalam PASCAL, seperti and, array, begin, case, const, div, do, downto, else, end, file, for, forward, function, goto, if, in, label, mod, nil, not, of, or, packed, procedure, program, record, repeat, set, then, to, type, until, var, while, with. Misal program_if, begin1, dll
aturan penulisan identifier:
1. karakter pertama harus dimulai dengan karakter huruf a-z atau A-Z
2. setelah karakter pertama, dapat dilanjutkan dengan karakter alfanumerik (angka maupun huruf), dan underscore
3. dalam penulisan identifier, tidak boleh menggunakan karakter berikut ini
~ ! @ # $ % ^ & * ( ) + ` - = { } [ ] : " ; ' < > ? , . / |
4. Tidak boleh menuliskan identifier dengan nama yang sesuai kata tercadang (reserved word) dalam PASCAL, seperti and, array, begin, case, const, div, do, downto, else, end, file, for, forward, function, goto, if, in, label, mod, nil, not, of, or, packed, procedure, program, record, repeat, set, then, to, type, until, var, while, with. Misal program_if, begin1, dll
contoh bentuk identifier:
identifier1 = value1;
identifier2 = value2;
identifier3 = value3;
Wednesday, 9 November 2016
Mari Belajar Coding 2
hari ini saya akan menjelaskan beberapa fungsi variabel dibawah ini
textcolor(color);
textcolor berfungsi memberi warna pada teks atau subjek di dalam write. dan color bisa kalian ganti,
misal red, blue, magenta, green, dll
contoh program
uses crt;
begin
clrscr;
textcolor(red);
write('Hello World');
readkey;
end.
berikutnya adalah
delay(input);
delay berfungsi untuk memberikan jeda pada subjek di dalam write, input bisa kalian masukkan angka terserah. jika kalian menginput 1, maka dia akan jeda selama 0,001 detik
jadi input 1000 = 1 detik
contoh program
uses crt;
begin
clrscr;
delay(1000);
write('H');
delay(1000);
write('e');
delay(1000);
write('l');
delay(1000);
write('l');
delay(1000);
write('o');
readkey;
end.
textcolor(color);
textcolor berfungsi memberi warna pada teks atau subjek di dalam write. dan color bisa kalian ganti,
misal red, blue, magenta, green, dll
contoh program
uses crt;
begin
clrscr;
textcolor(red);
write('Hello World');
readkey;
end.
berikutnya adalah
delay(input);
delay berfungsi untuk memberikan jeda pada subjek di dalam write, input bisa kalian masukkan angka terserah. jika kalian menginput 1, maka dia akan jeda selama 0,001 detik
jadi input 1000 = 1 detik
contoh program
uses crt;
begin
clrscr;
delay(1000);
write('H');
delay(1000);
write('e');
delay(1000);
write('l');
delay(1000);
write('l');
delay(1000);
write('o');
readkey;
end.
Tuesday, 8 November 2016
Mari Belajar Coding 1
disini saya akan menjelaskan struktur dari program pascal
Untuk membuat program di pascal selalu diawali
uses crt;
tapi terkadang bisa diawali
program NamaProgram; setelah itu baruu uses crt;
contoh:
Program coba;
uses crt;
begin
statement 1;
.....
statement n;
readkey;
end.
biasa nya setelah uses crt; kita bisa menambahkan
clrscr;
fungsi nya untuk menghapus history dri program yang telah kita jalankan sebelumnya
contoh:
uses crt;
begin
clrscr;
write('Belajar Pascal');
readkey;
end.
silahkan di copy lalu di run, kemudian di close dan di run lagi. maka hasil program yang tadi akan terhapus, bandingkan dengan yang di bawah ini
uses crt;
begin
write('Belajar Pascal 2');
readkey;
end.
Sunday, 6 November 2016
Mari Mengenal Pascal
Bahasa Pascal ditemukan pada tahun 1970 oleh Nikolaus Wirth dan dirilis tahun 1971. Compiler bahasa Pascal ada banyak seperti dosBox, free Pascal dan lain - lain.
Di dalam Free Pascal ada menu utama seperti:
1. Menu File: berisi perintah untuk operasi yang berhubungan dengan file, seperti:
- New : membuat file program baru
- New From Template
- Open: membuka file program yang disimpan
- Reload
- Save: menyimpan program yang diupdate
- Save as: menyimpan program baru
- Save all
- Print
- Print setup
- Change dir....
- Command shell
- Exit
2. Menu Edit: lebih ke arah menyunting program, menyalin atau membuang teks dan melihat isi clipboard
3. Menu Search: Digunakan untuk mencari atau mengganti teks
4. Menu Run: untuk mengeksekusi program
5. Menu Compile: mengkompilasikan program ke disk atau ke memori
6. Menu Debug: melakukan debugging
7. Menu Tools: menampilkan jendela pesan kesalahan
8. Menu Options: untuk mengatur berbagai pilihan debugger dan linker
9. Menu Window: untuk menutup jendela, memperbesar ukuran jendela dan memilih jendela aktif
10. Menu Help: berisi bantuan bagi user free pascal
Pascal bersifat incasesensitive, yang berarti huruf besar dan kecil dianggap sama
Di dalam Free Pascal ada menu utama seperti:
1. Menu File: berisi perintah untuk operasi yang berhubungan dengan file, seperti:
- New : membuat file program baru
- New From Template
- Open: membuka file program yang disimpan
- Reload
- Save: menyimpan program yang diupdate
- Save as: menyimpan program baru
- Save all
- Print setup
- Change dir....
- Command shell
- Exit
2. Menu Edit: lebih ke arah menyunting program, menyalin atau membuang teks dan melihat isi clipboard
3. Menu Search: Digunakan untuk mencari atau mengganti teks
4. Menu Run: untuk mengeksekusi program
5. Menu Compile: mengkompilasikan program ke disk atau ke memori
6. Menu Debug: melakukan debugging
7. Menu Tools: menampilkan jendela pesan kesalahan
8. Menu Options: untuk mengatur berbagai pilihan debugger dan linker
9. Menu Window: untuk menutup jendela, memperbesar ukuran jendela dan memilih jendela aktif
10. Menu Help: berisi bantuan bagi user free pascal
Pascal bersifat incasesensitive, yang berarti huruf besar dan kecil dianggap sama
Saturday, 5 November 2016
Function dalam Pascal
Definisi dan fungsi Function hampir sama dengan Procedure
tapi yang membdeakannya:
1. Function memiliki tipe data
2. Function memberikan nilai balik, sedangkan procedure tidak
3. Harus ada Nama Function di dalam tubuh Function
Struktur Function
Function Nama_Fungsi: tipe_hasil;
var
{bagian deklarasi Function, sifatnya lokal}
begin
statement-1;
statement-2;
.......
statement-n;
Nama_Fungsi:=hasil;
end;
contoh program
function cetakbintang;
begin
cetakbintang:='******';
end;
begin
clrscr;
writeln(cetakbintang);
writeln(cetakbintang);
writeln(cetakbintang);
end.
tapi yang membdeakannya:
1. Function memiliki tipe data
2. Function memberikan nilai balik, sedangkan procedure tidak
3. Harus ada Nama Function di dalam tubuh Function
Struktur Function
Function Nama_Fungsi: tipe_hasil;
var
{bagian deklarasi Function, sifatnya lokal}
begin
statement-1;
statement-2;
.......
statement-n;
Nama_Fungsi:=hasil;
end;
contoh program
function cetakbintang;
begin
cetakbintang:='******';
end;
begin
clrscr;
writeln(cetakbintang);
writeln(cetakbintang);
writeln(cetakbintang);
end.
Sunday, 30 October 2016
Procedure dalam Pascal
- Prosedur merupakan sub program yang tidak mengembalikan nilai secara langsung
- Semua deklarasi di dalam prosedur bersifat lokal sehingga hanya bisa digunakan oleh prosedur itu saja, sedangkan deklarasi di dalam program utama bersifat global sehingga dapat dikenali di seluruh program utama
- procedure selalu diakhiri dengan end;
contoh program procedure
uses crt;
var
a: real;
procedure Tanya_Hitung;
var
b: real;
begin
write('Nilai b = ');
readln(b);
a := b*b;
end;
begin
clrscr;
Tanya_Hitung;
writeln('Nilai a = ', a:0:0);
readkey();
end.
- Semua deklarasi di dalam prosedur bersifat lokal sehingga hanya bisa digunakan oleh prosedur itu saja, sedangkan deklarasi di dalam program utama bersifat global sehingga dapat dikenali di seluruh program utama
- procedure selalu diakhiri dengan end;
contoh program procedure
uses crt;
var
a: real;
procedure Tanya_Hitung;
var
b: real;
begin
write('Nilai b = ');
readln(b);
a := b*b;
end;
begin
clrscr;
Tanya_Hitung;
writeln('Nilai a = ', a:0:0);
readkey();
end.
Sunday, 23 October 2016
Contoh Program Angka Kelipatan dalam Pascal
Saya akan membagikan program untuk membuat angka kelipatan dengan proteksi
Uses crt;
var
x,y,z,a,b:longint;
begin
clrscr;
writeln('MENU 1 - Perhitungan Angka');
writeln('--------------------------');
write('batas bawah : ');
readln(a);
write('batas atas : ');
readln(b);
write('masukan angka : '); // angka yang akan jadi kelipatan
readln(z) ;
writeln();
writeln('Hasil :');
for x:=1 to 1000 do
begin
y :=z*x;
if (y>=a) then
if (y<=b) then
begin
writeln(y);
end;
end;
readkey;
end.
Uses crt;
var
x,y,z,a,b:longint;
begin
clrscr;
writeln('MENU 1 - Perhitungan Angka');
writeln('--------------------------');
write('batas bawah : ');
readln(a);
write('batas atas : ');
readln(b);
write('masukan angka : '); // angka yang akan jadi kelipatan
readln(z) ;
writeln();
writeln('Hasil :');
for x:=1 to 1000 do
begin
y :=z*x;
if (y>=a) then
if (y<=b) then
begin
writeln(y);
end;
end;
readkey;
end.
Saturday, 22 October 2016
Sekuensial dalam Pascal
Apa itu Sekuens?? Sekuens adalah urut - urutan dalam menjalankan instruksi secara logika agar maksud yang dikandung dapat tercapai.
Sekuensial dalam Pascal ada 3 jenis instruksi:
1. P* : digunakan untuk mencetak * dan membuat kursor maju selangkah
2. Pb : digunakan untuk mencetak satu space kosong (spasi)
3. BB : digunakan untuk return ke baris berikutnya (Enter)
Contoh program sekuens
Mencetak ***
Solusi
intruksi = P*;P*;P*
dalam pascal = write('*'); write('*'); write('*');
program nya
uses crt;
begin
write('*'); write('*'); write('*');
readkey;
end.
contoh 2
membuat ***
***
***
intruksi = BB; P*; P*; P*;
BB; P*; P*; P*;
BB; P*; P*; P*;
program nya
uses crt;
begin
write('*'); write('*'); write('*'); writeln();
write('*'); write('*'); write('*'); writeln();
write('*'); write('*'); write('*');
ens.
Sekuensial dalam Pascal ada 3 jenis instruksi:
1. P* : digunakan untuk mencetak * dan membuat kursor maju selangkah
2. Pb : digunakan untuk mencetak satu space kosong (spasi)
3. BB : digunakan untuk return ke baris berikutnya (Enter)
Contoh program sekuens
Mencetak ***
Solusi
intruksi = P*;P*;P*
dalam pascal = write('*'); write('*'); write('*');
program nya
uses crt;
begin
write('*'); write('*'); write('*');
readkey;
end.
contoh 2
membuat ***
***
***
intruksi = BB; P*; P*; P*;
BB; P*; P*; P*;
BB; P*; P*; P*;
program nya
uses crt;
begin
write('*'); write('*'); write('*'); writeln();
write('*'); write('*'); write('*'); writeln();
write('*'); write('*'); write('*');
ens.
Friday, 21 October 2016
Cara Membuat Segitiga Sama Sisi Terbalik di Pascal
Halo selamat malam, hari ini saya akan membagikan cara membuat segitiga sama sisi tapi terbalik
silahkan dilihat dan dipelajari
uses crt;
var a, b, tinggi :integer;
begin
clrscr;
write('Masukkan Tinggi : '); readln(tinggi);
for a:= tinggi downto 1 do
begin
for b:= tinggi downto a+1 do
begin
write(' ');
end;
for b:= 1 to (2*a)-1 do
begin
write('*');
end;
writeln();
end;
readkey;
end.
silahkan dilihat dan dipelajari
uses crt;
var a, b, tinggi :integer;
begin
clrscr;
write('Masukkan Tinggi : '); readln(tinggi);
for a:= tinggi downto 1 do
begin
for b:= tinggi downto a+1 do
begin
write(' ');
end;
for b:= 1 to (2*a)-1 do
begin
write('*');
end;
writeln();
end;
readkey;
end.
Tuesday, 18 October 2016
Cara Membuat Belah Ketupat di Pascal
Haloo kawan - kawan, hari ini saya akan membagikan cara membuat belah ketupat di pascal
silahkan dilihat
uses crt;
var a, b, input :integer;
begin
clrscr;
for a:= 1 to 5 do
begin
for b:= 1 to 5-a do
begin
write(' ');
end;
for b:= 1 to 2*a-1 do
begin
write('*');
end;
writeln;
end;
for a:= 3 downto 0 do
begin
for b:= 3 downto a do
begin
write(' ');
end;
for b:= 1 to 2*a+1 do
begin
write('*');
end;
writeln();
end;
readkey
end.
silahkan dilihat
uses crt;
var a, b, input :integer;
begin
clrscr;
for a:= 1 to 5 do
begin
for b:= 1 to 5-a do
begin
write(' ');
end;
for b:= 1 to 2*a-1 do
begin
write('*');
end;
writeln;
end;
for a:= 3 downto 0 do
begin
for b:= 3 downto a do
begin
write(' ');
end;
for b:= 1 to 2*a+1 do
begin
write('*');
end;
writeln();
end;
readkey
end.
Monday, 17 October 2016
Cara Mengecek Bilangan Prima di Pascal
Halo kawan - kawan, hari ini saya akan membagikan cara mengecek suatu bilangan prima atau tidak di Pascal, semoga bermanfaat ^^
ini source code nya
uses crt;
var a, b, p : integer;
ulang : char;
begin
clrscr;
p := 0;
write('Masukkan Bilangan : '); readln(b);
for a := 1 to b do
begin
if b mod a = 0 then
p := p+1;
end;
writeln();
if p = 2 then
write(b,' Merupakan bilangan prima')
else
write(b,' Bukan bilangan prima');
writeln();
readkey;
end.
Subscribe to:
Posts (Atom)