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);
}

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);
}

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.

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.

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.

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

contoh bentuk identifier:

identifier1 = value1;

identifier2 = value2;

identifier3 = value3;

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.

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.

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

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.