- Menghitung Luas Lingkaran
#include <iostream>
using namespace std;
int main (){
int r;
float phi=3.14,luas;
cout<<"masukan jari jari lingkaran : ";
cin>>r;
luas=phi*r*r;
cout<<"luas lingkaran adalah "<<luas;
return 0;
}Keterangan :r merupakan variabel jari-jari sebuah lingkaranfloat phi=3.14 merupakan tipe data memberikan nilai tetap atau konstanProgram:Untuk menjalankan program yang kita buat pilih Build and Run lalu otomatis akan muncul penjalanan program lewat cmd, lalu masukan berapa jari-jari lingkaran setelah itu tekan enter maka hasil menghitung luas lingkaran akan ditampilkan.
PROGRAM HITUNG DISKONProgram Kasir,
jika total harga barang yang di ambil:
Lebih besar dari 10.000 dan kurang dari sama dengan 100.000 maka tidak mendapatkan diskon
lebih besar dari 100.000 dan kurang dari sama dengan 500.000 mendapatkan diskon 5%
lebih besar dari 500.000 dan kurang dari sama dengan 1.000.000 mendapatkan diskon 10%
di luar itu maka mendapatkan diskon 15%import java.io.*;
public class ProgramKasir
{
public static void main(String args[])throws IOException
{
//membuat turunan class untuk input dari user
BufferedReader dataIn=new BufferedReader(new InputStreamReader(System.in));
System.out.print("Berapa Harga Barang :");
int a = Integer.parseInt(dataIn.readLine());
System.out.print("Berapa Jumlah Barang yang diambil:");
int b = Integer.parseInt(dataIn.readLine());
int total =(a*b);
System.out.println("Harga barang = Rp "+a);
System.out.println("Jmlah barang = "+b);
System.out.println("Total harga sebelum diskon =Rp"+total);
if(total>10000 & total<=100000)
{
System.out.print("Total harga yang harus dibayar (setelah diskon) =Rp ");
System.out.println(total-(total * 0));
}
else if(total>100000 & total<=500000)
{
System.out.print("Total harga yang harus dibayar (setelah diskon) =Rp ");
System.out.println(total-(total * 0.05));
}
else if(total>500000 & total<=1000000)
{
System.out.print("Total harga yang harus dibayar (setelah diskon) =Rp ");
System.out.println(total-(total * 0.1));
}
else
{
System.out.print("Total harga yang harus dibayar (setelah diskon) =Rp ");
System.out.println(total-(total * 0.15));
}
}
}DAFTAR PUSTAKA :hawari muhtarom ,"Menghitung Luas Dan Keliling Lingkaran " ,Desember,2016 " ,http://hawarimuhtarom.blogspot.co.id/2016/12/contoh-program-bahasa-c-menghitung-luas-keliling-lingkaran.htmlopie eyek ,"Program Java : Menghitung Diskon " , 23 Februari , 2010 ,http://allaboutalgoritma.blogspot.co.id/2010/02/program-javamenghitung-diskon.html - WELCOME TO MY BLOGDisini saya akan membahas tentang apa itu free pascallPengertian free pascal adalah bahasa tingkat tinggi(High Level Languange) yaitu bahasa pemrograman yang mudah dipahami oleh bahasa manusia. Pascal merupakan bahasa yang terstruktur tersusun atas sejumlah blok.Blok-blok yang kecil selanjutnya dapat dapat dipakai untuk membuat blok yang lebih besar. Blok ini lebih dikenal dengan sebutan subprogram, yang dibedakan atas prosedur dan fungsi. Pascal Pertama kali di buat oleh Profesor Niklaus Wirth, seorang anggota International Federation of Information Processing (IFIP) pada tahun 1971.FUNGSI FREE PASCALFUNGSIBlok fungsi hampir sama dengan blok prosedur, hanya fungsi harus dideklarasikan dengan tipenya. Tipe deklarasi ini menunjukkan tipe hasil dari fungsi.Bentuk umum :FUNCTION identifier (daftar parameter) : type ;1.1 Fungsi Tanpa ParameterFungsi yang tanpa parameter berarti nilai balik yang akan dihasilkan merupakan nilai yang sudah pasti. Karena tidak menggunakan parameter, maka hasil fungsi tersebut tidak dapat diatur dari modul yang menggunakannya, karena tidak ada parameter yang dikirimkan. Fungsi tanpa parameter jarang dipergunakan.Contoh program :Type Huruf = string [6] ;Function Garis : Huruf ;BeginGaris : = ‘======’ ;End ;BeginWriteln (Garis) ; Writeln (‘Pascal’) ; Writeln (Garis) ;End.Output program :======Pascal======Keterangan program :Fungsi “Garis” hanya menghasilkan nilai yang sudah pasti yaitu : “======”.1.2 Parameter Dalam FungsiParameter dalam fungsi dapat dikirimkan secara nilai atau secara acuan.Contoh penulisan parameter dengan pengiriman secara nilai :Function Hitung (A, B : integer ) : integer ;Contoh program :Function Terbesar(X, Y : real ) : real ;BeginIf X > Y ThenTerbesar : = XElseTerbesar : = Y ;End ;VarNilai1 , Nilai2 : real ;BeginWrite (‘Nilai pertama =’ ) ; readln (Nilai1) ;Write (‘Nilai kedua = ‘ ) ; readln (Nilai2) ;Writeln (‘Nilai terbesar adalah =’, Terbesar (Nilai1, Nilai2) : 9 : 3 ) ;End.Output program :Nilai pertama = 12.356Nilai kedua = 55.182Nilai terbesar adalah = 55.182Penulisan judul fungsi yang menggunakan parameter dengan pengiriman secara acuan adalah dengan menambahkan kata cadangan var.Contoh penulisan :Function Hitung ( Var A, B : integer ) : integer ;Pengiriman parameter secara acuan akan mengakibatkan perubahan nilai parameter di fungsi juga merubah nilai parameter di modul yang mengirimkannya. Fungsi yang menggunakan pengiriman parameter secara acuan ini mirip dengan prosedur, yaitu parameter yang dikirmkan secara acuan tersebut dapat di manfaatkan sebagai hasil balik.1.3 Fungsi PangkatPascal tidak menyediakan fungsi untuk perpangkatan tinggi, yang ada hanya fungsi standar Sqr, yaitu pemngkatan kuadrat saja. Bila akan melakukan perpangkatan lebih dari pangkat dua, maka harus dibuat program tersendiri.1.4 Fungsi Memanggil Dirinya SendiriProses fungsi memanggil dirinya sendiri juga merupakan proses recursion.Contoh program :Function Faktorial (Nilai : integer ) : real ;BeginIf Nilai = 0 ThenFaktorial : = 1ElseFaktorial : = Nilai * Faktorial (Nilai – 1 ) ;End ;VarN : integer ;BeginWrite (‘Berapa factorial ?’) ;Readln (N) ;Writeln (N, ‘faktorial =’, Faktorial(N) : 9 : 0 ) ;End.Output program :Berapa factorial ? 55 faktorial = bbbbbb120ket : b = blank1.5 Fungsi Memanggil Fungsi Yang LainFungsi yang di panggil letaknya harus berada di atas fungsi yang memanggilnya.Contoh program :Function Fungsi2 (Y : integer) : integer ;BeginFungsi2 : = Y * 2 ;End ;Function Fungsi1 ( X : integer ) : integer ;BeginFungsi1 : = Fungsi2 (X) + 5 ;End ;BeginWriteln (Fungsi1(3)) ;End.1.6 Acuan Forward Pada FungsiFungsi dapat dideklarasikan terpisah dengan bloknya. Deklarasi fungsi yang terpisah dengan blok fungsinya dipergunakan kata cadangan Forward dan blok fungsinya juga di deklarasikan ulang, tetapi tidak perlu menyebutkan parameternya.1.7 Fungsi TersarangMerupakan fungsi yang letaknya berada di dalam fungsi yang lainnya.Contoh program :Function Fungsi1 (X : integer ) : integer ;Function Fungsi2 ( Y : integer ) : integer ;BeginFungsi2 : = Y * 2 ;End ;BeginFungsi1 : = Fungsi2 (X) + 5 ;End ;BeginWriteln (Fungsi1 (3)) ;End.1.8 Fungsi Standar1.8.1 Fungsi Standar AritmatikaAda Abs, ArcTan, Cos, Exp, Franc, Int, Ln, Pi, Sin, Sqr dan SqrtPenjelasan :- Abs (x) ;Memutlakkan suatu nilai yang ditunjukkan oleh argument x. dapat berupa tipe real atau integer.- Exp (x : real ) : real ;Untuk menghitung nilai pangkat dari bilangan e. dapat berupa real atau integer dan hasil dari fungsinya adalah real.- Ln (x : real ) : real ;Untuk menghitung nilai logaritma alam dari nilai x. tipe datanya real atau integer dan hasil fungsinya adalah real.- Int (x : real) : real ;Untuk menghasilkan nilai integer dari x. hasil dari fungsi adalah tipe real dengan nilai yang berupa pembulatan ke bawah dari nilai x.- Franc (x : real ) : real ;Untuk mendapatkan nilai pecahan dari argument x. Argumen x dapat berbentuk real atau integer dan hasilnya adalah real.- Sqr (x) ;Untuk menghitung nilai pangkat kuadrat dari argument x.- Sqrt (x : real ) : real ;Untuk menghitung nilai akar dari argument x. dapat real dan integer dan hasil dari fungsinya adalah real.- PiAkan menghasilkan nilai PI sebesar 3, 14.1.8.2 Fungsi Standar TransferDigunakan untuk merubah suatu nilai ke bentuk nilai yang lain. Yang tersedia adalah fungsi standar Chr, Ord, Round dan trunc.Penjelasan :- Chr (x : byte) : char ;Untuk merubah nilai dari byte x ke bentuk karakter yang sesuai dengan kode ASCII.- Ord (x) : longint ;Untuk merubah nilai x ke bentuk nilai longint yang sesuai dengan kode ASCII. Fungsi ini kebalikan dari fungsi standar Chr.- Round (x : real) : longint ;Untuk membulatkan nilai dari real x ke nilai longint yang terdekat. Bila nilai pecahan sama dengan atau lebih besar dari 0,5 akan dibulatkan ke atas, sedangkan bilai nilai pecahan lebih kecil dari 0,5 akan dibulatkan ke bawah.- Trunc (x : real) : longint ;Untuk membulatkan nilai dari real x ke nilai longint terkecil, atau dengan kata lain membulatkan ke bawah.1.8.3 Fungsi Standar LainnyaTerdiri dari : Hi, Lo, Random, SizeOf, Swap, UpCase, ParamCount dan ParamStr.Penjelasan :- Hi (x) : byte ;Untuk mengisi low order byte dari hasil fungsi dengan high order byte dari ungkapan integer x. high order byte dari hasil fungsi akan bernilai nol. Tipe hasil dari fungsi ini adalah byte.- Lo (x) : byte ;Untuk mengisi low order byte dari hasil fungsi dengan low order byte dari ungkapan integer x. high order byte dari hasil fungsi akan bernilai nol. Tipe hasil dari fungsi ini adalah byte.- Swap (x) ;Untuk membalik bit-bit di low order byte menjadi high order byte dan sebaliknya dari ungkapan x. ungkapan x dapat berupa tipe integer atau word.- Random [ (range : word ) ] ;Untuk menghasilkan angka random berkisar dari nilai lebih besar atau sama dengan nol dan lebih kecil dari satu. Bila range tidak disebutkan, hasil dari fungsi ini adalah real. Bila range disebutkan, hasilnya adalah word.- SizeOf (x) : word ;Untuk menunjukkan besarnya byte yang digunakan oleh suatu variable x. hasilnya adalah word.- UpCase (Ch : char ) : char ;Untuk merubah argument suatu karakter yang ditunjukkan oleh Ch menjadi bentuk karakter huruf besar ( upper case ).- ParamCount: word ;Untuk mengetahui jumlah parameter yang dikirimkan lewat promt DOS- ParamStr (index) : string ;Untuk menerima parameter yang dikirmkan lewat promt DOS, index adalah ungkapan dengan tipe word, dan akan menghasilkan parameter ke index yang dikirmkan tersebut.LANGKAH-LANGKAH INSTALASI FREE PASCAL
Cara Install Free Pascal
Proses instalasai Free Pascal mirip sekali dengan applikasi lainnya, tapi saya akan menambahkan beberapa settingan agar pembuatan kode program dengan applikasi lebih user friendly.
Dalam tutorial ini, saya menggunakan sistem operasi Windows 7 32-bit. Free Pascal tidak membedakan file instalasinya dengan sistem 32bit atau 64bit, jadi tidak akan menjadi masalah jika anda menggunakan Windows 7 32bit ataupun Windows Vista 32bit.
File Free Pascal yang saya download ini bernama fpc-3.0.2.i386-win32.exe. Mungkin nama file yang anda gunakan akan berbeda, apalagi jika terdapat versi yang pali baru.
Nah, setelah file instalasi Free Pascal sudah tersedia, silahkan anda double klik (tap 2x) file nya untuk memulai proses instalasi.
Akan muncul jendela seperti gambar di bawah ini, silahkan klik Next untuk melanjutkan.
Lalu pada jendela kedua “Select Destionation Location”, anda bisa mengatur lokasi folder instalasi Free Pascal. Secara deafult, folder yang akan digunakan berada pada di C:\FPC\3.0.2. Anda bisa mengubah lokasi folder ini agar lebih mudah untuk diakses, seperti contohnya C:\Pascal atau C:\CompilerPascal. Silahkan disesuaikan yang menurut anda untuk mudah di akses, pemilihan lokasi ini tidak akan berpengaruh apa-apa pada saat menjalankan applikasi ini nantinya.
Untuk ini, saya akan membiarkannya lokasinya default yang berada pada C:\FPC\3.0.2. Setelah klik Next untuk melanjutkan instalasi.
Pada jendela ketiga “Select Components”. Dibagian ini kita bisa memilih jenis instalasi Free Pascal, yaitu Full Installation, Minimum Installation atau Custom Installation. Apabila anda tidak memiliki masalah dengan kapasitas harddisk yang anda punya, saya sangat menyarankan menggunakan pilihan yang default yaitu Full Installation. Silahkan klik Next untuk melanjutkan
[su_box title=”NOTE” box_color=”#17f55c” radius=”2″]Ukuran folder Free Pascal setelah proses instalasi selesai akan berubah sekitar 150 MB[/su_box]
Pada bagian “Select Start Menu Folder” ini kita bisa mengubah nama shortcut Free Pascal jika nanti diakses melalui Start Menu. Saya akan membiarkan pilihan yang ada dan silahkan klik Next untuk melanjutkan.
Pada jendela berikutnya “Select Additional Tasks“, berguna untuk mengatur beberapa konfigurasi seperti file assosiation, membuat shortcut, dan konfigurasi compiler. Khusus pada menu file assosiation, terdapat pilihan untuk mengcheklist Associate .pas files with Free Pascal IDE dan Associate .dpr files with Free Pascal IDE.
Extension .pas adalah extension file yang digunakan untuk membuat kode program pascal. Sebagai contoh, kode program untuk menghitung persegi panjang bisa diberi nama persegi_panjang.pas, atau persegi.pas.
Dengan memilih pilihan Associate .pas files with Free Pascal IDE, maka ketika anda double klik file tersebut dari Windows Explorer, kode program akan langsung ditampilkan di dalam Free Pascal. Anda bisa memilih pilihan ini agar lebih mudah ketika mengedit kode program. Klik Next untuk melanjutkan.
Ini adalah jendela terakhir yaitu “Ready to Install“. Pada bagian ini akan diperlihatkan pilihan-pilihan konfigurasi yang telah dipilih. Jika semuanya sudah sesuai, klik tombol Install untuk memulai proses instalasi.
Proses instalasi ini tergantung pada kecepatan komputer kalian masing-masing, proses instalasi akan berjalan beberapa saat. Jika sudah selasai, akan tampil jendela “Information”. Jendela ini berisi informasi mengenai versi Free Pascal dan fitur-fitur baru yang ditambahkan. Klik Next untuk melanjutkan.
Jika jendela “Completing the Free Pascal Setup Wizard” telah tampil, maka proses instalasi Free Pascal sudah selesai. Klik Tombol Finish untuk mengakhiri.
Apabila anda langsung menuju ke desktop, maka anda akan melihat sebuah shortcut yang bernama Free Pascal IDE. Coba anda double klik icon ini untuk menjalankan applikasi Free Pascal
Sampai disini, aplikasi Free Pascal telah terinstall dengan sempurna, sekarang anda bisa mulai membuat kode program pascal. Jika anda pernah menggunakan Turbo Pascal sebelumnya, terlihat tampilan Free Pascal sama persis dengan Turbo Pascal (kecuali tambahan gambar artwork “FPC” yang cukup mempesona).
Selasa, 30 Januari 2018
free pascal pemrogaman
Langganan:
Postingan (Atom)
Tambahkan komentar