UANG & BANK

1. Pengertian Uang dan Bank

Uang merupakan alat tukar dan alat pembayaran yang sah. pada masa-masa sebelumnya, pembayaran dilakukan dengan cara barter, yaitu barang ditukar dengan barang secara langsung.


2. Teori nilai uang & Motif Memegang Uang

@ Teori uang terdiri atas dua teori, yaitu teori uang statis dan teori uang dinamis.

@ Teori uang statis
Teori Uang Statis atau disebut juga "teori kualitatif statis" bertujuan untuk menjawab pertanyaan: apakah sebenarnya uang? Dan mengapa uang itu ada harganya? Mengapa uang itu sampai beredar? Teori ini disebut statis karena tidak mempersoalkan perubahan nilai yang diakibatkan oleh perkembangan ekonomi.
Yang termasuk teori uang statis adalah:
• Teori Metalisme (Intrinsik) oleh KMAPP
Uang bersifat seperti barang, nilainya tidak dibuat-buat, melainkan sama dengan nilai logam yang dijadikan uang itu, contoh: uang emas dan uang perak.
• Teori Konvensi (Perjanjian) oleh Devanzati dan Montanari
Teori ini menyatakan bahwa uang dibentuk atas dasar pemufakatan masyarakat untuk mempermudah pertukaran.
• Teori Nominalisme
Uang diterima berdasarkan nilai daya belinya.
• Teori Negara
Asal mula uang karena negara, apabila negara menetapkan apa yang menjadi alat tukar dan alat bayar maka timbullah uang. Jadi uang bernilai karena adanya kepastian dari negara berupa undang-undang pembayaran yang disahkan.

@ Teori uang dinamis
• Teori Kuantitas dari David Ricardo
Teori ini menyatakan bahwa kuat atau lemahnya nilai uang sangat tergantung pada jumlah uang yang beredar. Apabila jumlah uang berubah menjadi dua kali lipat, maka nilai uang akan menurun menjadi setengah dari semula, dan juga sebaliknya.
• Teori Kuantitas dari Irving Fisher
Teori yang telah dikemukakan David Ricardo disempurnakan lagi oleh Irving Fisher dengan memasukan unsur kecepatan peredaran uang, barang dan jasa sebagai faktor yang mempengaruhi nilai uang.
• Teori Persediaan Kas
Teori ini dilihat dari jumlah uang yang tidak dibelikan barang-barang.
• Teori Ongkos Produksi
Teori ini menyatakan nilai uang dalam peredaran yang berasal dari logam dan uang itu dapat dipandang sebagai barang.

@ Motif Memegang Uang
Manusia memiliki alasan masing-masing dalam memegang uang / duit dalam kehidupan sehari-hari sehingga mereka mau memiliki dan menyimpan uang di rumah, di bank, di dompet, di celengan, dan lain sebagainya.
1. Untuk kebutuhan Transaksi
2. Untuk Berjaga-Jaga
3. Untuk Mendapatkan Keuntungan / Berinvestasi


3. Bank sentral & Bank Umum

♥Bank Sentral
Bank sentral adalah bank yang didirikan berdasarkan Undang-undang nomor 13 tahun 1968 yang memiliki tugas untuk mengatur peredaran uang, mengatur pengerahan dana-dana, mengatur perbankan, mengatur perkreditan, menjaga stabilitas mata uang, mengajukan pencetakan / penambahan mata uang rupiah dan lain sebagainya. Bank sentral hanya ada satu sebagai pusat dari seluruh bank yang ada di Indonesia.

♥Bank Umum
Bank umum adalah lembaga keuangan uang menawarkan berbagai layanan produk dan jasa kepada masyarakat dengan fungsi seperti menghimpun dana secara langsung dari masyarakat dalam berbagai bentuk, memberi kredit pinjaman kepada masyarakat yang membutuhkan, jual beli valuta asing / valas, menjual jasa asuransi, jasa giro, jasa cek, menerima penitipan barang berharga, dan lain sebagainya.


4. Kebijakan Moneter

Kebijakan moneter dapat dilakukan dengan menjalankan instrumen kebijakan moneter, yaitu antara lain :

1. Operasi Pasar Terbuka (Open Market Operation) Operasi pasar terbuka adalah cara mengendalikan uang yang beredar dengan menjual atau membeli surat berharga pemerintah (government securities). Jika ingin menambah jumlah uang beredar, pemerintah akan membeli surat berharga pemerintah. Namun, bila ingin jumlah uang yang beredar berkurang, maka pemerintah akan menjual surat berharga pemerintah kepada masyarakat. Surat berharga pemerintah antara lain diantaranya adalah SBI atau singkatan dari Sertifikat Bank Indonesia dan SBPU atau singkatan atas Surat Berharga Pasar Uang.

2. Fasilitas Diskonto (Discount Rate) Fasilitas diskonto adalah pengaturan jumlah duit yang beredar dengan memainkan tingkat bunga bank sentral pada bank umum. Bank umum terkadang mengalami kekurangan uang sehingga harus meminjam ke bank sentral. Untuk membuat jumlah uang bertambah, pemerintah menurunkan tingkat bunga bank sentral, serta sebaliknya menaikkan tingkat bunga demi membuat uang yang beredar berkurang.

3. Rasio Cadangan Wajib (Reserve Requirement Ratio) Rasio cadangan wajib adalah mengatur jumlah uang yang beredar dengan memainkan jumlah dana cadangan perbankan yang harus disimpan pada pemerintah. Untuk menambah jumlah uang, pemerintah menurunkan rasio cadangan wajib. Untuk menurunkan jumlah uang beredar, pemerintah menaikkan rasio.

4. Himbauan Moral (Moral Persuasion) Himbauan moral adalah kebijakan moneter untuk mengatur jumlah uang beredar dengan jalan memberi imbauan kepada pelaku ekonomi. Contohnya seperti menghimbau perbankan pemberi kredit untuk berhati-hati dalam mengeluarkan kredit untuk mengurangi jumlah uang beredar dan menghimbau agar bank meminjam uang lebih ke bank sentral untuk memperbanyak jumlah uang beredar pada perekonomian.

STRUKTUR PASAR

1. PASAR PERSAINGAN SEMPURNA

 Karakteristik Pasar Persaingan Sempurna

Beberapa karakteristik agar sebuh pasar dapat dikatakn persaingan sempurna:
 Semua perusahaan memproduksi barang yang homogen (homogeneous product)
 Produsen dan konsumen memiliki pengetahuan / informasi sempurna (perfect knowledge)
 Output sebuah perusahaan relative kecil dibanding output pasar (small relatively output)
 Perusahaan menerima harga yang ditentukan pasar (price taker)
 Semua perusahaan bebas masuk dan keluar pasar (free entry and exit)
a. Homogenitas Produk (Homogeneous Product)
Produk yang mampu memberikan kepuasan (utilitas) kepada konsumen tanpa perlu mengetahui siapa produsennya.
b. Pengetahuan Sempurna (Perfect Knowledge)
Para pelaku ekonomi (konsumen dan produsen) memiliki pengetahuan sempurna tentang harga produk dan input yang dijual.
c. Output Perusahaan Relatif Kecil (Small RelativelOutput)
Perusahaan dalam industri (pasar) dianggap berproduksi efisien (biaya rata – rata terendah), kendati pun demikian jumlah output setiap perusahaan secara individu dianggap relative kecil dibanding jumlah output seluruh perusahaan dalam industri.
d. Perusahaan Menerima Harga Yang Ditentukan Pasar (Price Taker)
Perusahaan menjual produknya dengan berpatokan pada harga yang ditetapkan pasar (price taker). Secara individu perusahaan tidak mampu mempengaruhi harga pasar.
e. Keleluasaan Masuk – Kelur Pasar (Free Entry and Exit)
Dalam pasar persaingan sempurna factor produksi mobilitasnya tidak terbatas dan tidak ada biaya yang harus dikelurkan untuk memindahkan factor produksi
2. PASAR MONOPOLI
1. Faktor – faktor Penyebab Terbentuknya Monopoli
Hambatan Teknis (Technical Barriers to Entry)
Ketidakmampuan bersaing secara teknis menyebabkan perusahaan lain sulit bersaing dengan perusahaan yang sudah ada (existing firm)
1) Perusahaan memiliki kemampuan dan atau pengetahuan khusus (special knowledge) yang memungkinkan berproduksi sangat efisien,.
2) Tingginya tingkat efisiensi memungkinkan perusahaan monopolis mempunyai kurva biaya (MC dan AC) yang menurun.
3) Perusahaan memiliki kemampuan control sumber factor produksi, baik berupa SDA,SDM, maupun lokasi produksi.
Hambatan Legalitas (Legal Barriers to Entry)
1) Undang – undang dan Hak Paten
2) Hak Paten (Patent Right) atau Hak Cipta
– Hanya ada satu produsen
– Listrik yang dihasilkan PLN tidak mempunyai substitusi
– Perusahaan – perusahaan lain tidak dapat memasuki industri listrik karena ada hambatan

3. PASAR PERSAINGAN MONOPOLOSTIK
1. Karakteristik Pasar Persaingan Monopolostik
a. Produk Yang Terdiferensiasi (Differentiated Product)
2. Keseimbangan Perusahaan Dalam Jangka Pendek
Keseimbangan jangka pendek perusahaan tercapai bila MR = MC.
3. Pasar Persaingan Monopolistik dan Efisiensi Ekonomi
4. Keseimbangan Perusahaan Dalam Jangka Panjang
Ada dua sebab pasar persaingan monopolistic tidak dapat lebih efisien dibanding pasar persaingan sempurna
a. Harga Jual Masih Lebih Besar Dari Biaya Marjinal (P>MC)
b. Kapasitas Berlebih (Excess Capacity)
5. Pengaturan Pasar Persaingan Monopolistik
a. Daya monopoli yang relatif kecil menyebabkan kesejahteraan
yang hilang (dead weight loss) relative kecil.
b. Permintaan yang sangat elastis menyebabkan kelebihan
kapasitas produksi relative kecil.
c. Ketidakefienan yang dihasilkan perusahaan yang beroperasi
dalam pasar persaingan monopolistik.
4. PASAR OLIGOPOLI
1. Karakteristik Pasar Oligopoli
Ada beberapa unsure pentig dalam pasar oligopoli:
a. Hanya Sedikit Perusahaan Dalam Industri (Few Number of Firms)
b. Produk Homogen atau Terdiferensial (Homogem or Differentiated Product)
c. Penganbilan Keputusan yang Saling Mempengaruhi (Interdependence Decision)
d. Kompetisi Non Harga (Non Pricing Competition)
2. Faktor - faktor Penyebab Terbentuknya Pasar Oligopoli
Ada dua factor penting penyebab terbebtuknya oasar oligopoly.
a. Efisiensi Skala Besar
b. Kompleksitas Manajemen
3. Keseimbangan Oligopolis
a. Model Permintaan yang Patah (Kinked Demand Model)
Diagram 11.1 kurva penerimaan marjinal (MR) yang relevan bagi perusahaan adalah ACDE.
4. DUOPOLI
a. Model Cournot (Cournot Model)
b. Model Kepemimpinan Stackelberg (Stackelberg Leadership Model)
c. Teori Permainan (Game Theory)
- Model Dilema Narapidana (Prisoners’ Dilemma Model)

V-LAB FORTRAN

MODUL FORTRAN
A. Pendahuluan

Tujuan :
Setelah membaca bab ini diharapkan praktikan dapat menggunakan Program Fortran dan mengerti bagaimana cara membuat program.

Perkembangan Fortran :
Fortran Singkatan Dari FORmula TRANslator, yang merupakan bahasa tingkat tinggi dan ber-orientasi pada rumus-rumus (formula) atau ke permasalahan teknik.
Referensi pertama mengenai Fortran baru dikeluarkan dalam bentuk laporan tahun 1954 oleh Programming Research Group, suatu divisi teknik terapan dari IBM baru pada tahun 1957 diterapkan
pada komputer IBM 704.

Struktur Program Fortran :
Dibagi menjadi 5 bagian kolom dan tiap baris di dalam program dapat berisi :
1. Metacommand
2. Komentar
3. Statement
4. Sambungan dari statement baris sebelumnya.

Aturan Penulisan Fortran :
1. Kolom pertama merupakan Komentar atau metacommand (C, *, $).
2. Kolom 1 sampai 5 untuk penulisan label statement berupa angka.
3. Kolom 6 untuk indikasi sambungan dari baris sebelumnya.
4. Kolom 7 sampai 72 untuk penulisan Statement FORTRAN.
5. Kolom 73 sampai 80 tidak digunakan (Untuk Komentar bebas).

Elemen Program Fortran :
1. Metacommand atau compiler directive sifatnya optional.
2. Komentar berupa tulisan bebas.
3. Statement merupakan inti yang berupa instruksi-instruksi.

Suatu statement dapat dibentuk dari elemen-elemen :
1. Konstanta 5. Verb
2. Operator 6. Unit Specifier
3. Ungkapan 7. Format Specifier
4. Nama

Konstanta :
Numerik yang terdiri dari :
Konstanta Integer (Numerik Bilangan Bulat) 2 byte berkisar antara -32767 sampai 32767 dan yang 4 byte berkisar antara -2147483647 sampai 2147483647. Kontanta Real ketepatan tunggal (Pecahan), mempunyai batasan : 8.43E-37 sampai dengan 3.37E+38 Positif -3.37E+38 sampai dengan -8.43E-37 Negatif Konstanta Real Ketepatan ganda (Pecahan), mempunyai batasan : 4.19D-307 sampai dengan 1.67D+308 Positif -1.67D+308 sampai dengan -4.19D-307 Negatif Konstanta Karakter (String) yang ditulis dalam tanda Petik. Konstanta Logika (Nilai Logika) .TRUE. .FALSE.

Operator :
Aritmatika : ** Pangkat level 1
* Kali level 2
/ Bagi level 2
+ Penjumlahan level 3
- Pengurangan level 3

Hubungan :
.LT. Lebih Kecil dari
.LE. Lebih kecil sama dengan dari
.EQ. Sama dengan
.NE. Tidak sama dengan
.GT. Lebih besar dari
.GE. Lebih besar sama dengan dari
Logika :
.NOT. Tidak atau Bukan
.AND. Dan
.OR. Atau

Ungkapan :
Ungkapan Aritmatika dengan operasi didalam tanda kurung didahulukan, kemudian pangkat, kali, bagi, jumlah, kurang. Ungkapan Karakter tidak boleh menggunakan operator aritmatik, tapi dapat berbentuk konstanta karakter atau nama variabel. Ungkapan hubungan adalah membandingkan niali dari dua numeric atau karakter.

Nama : dapat berupa variabel, larik(array), fungsi, atau rutin.
Dengan ketentuan sebagai berikut :
1. Maksimum panjangnya 1320 karakter tapi hanya 6 karakter pertama yang dibaca.
2. Karakter pertama harus berupa huruf.
3. Tidak boleh mengandung karakter khusus.


Nama Variabel ada 5 tipe :
1. Variabel Integer untuk menyimpan nilai numerik bulat. Bila tidak didefinisikan, maka harus ditunjukkan oleh nama variable yang diawali dengan huruf I, J, K, L, M atau N besarnya memori 2 byte atau 4 byte default-nya 4 byte.
2. Variabel Real ketepatan Tunggal menyimpan nilai pecahan 4 byte. Bila tidak didefinisikan maka harus diawali huruf I,J,K,L,M,N.
3. Variabel real ketepatan Ganda menyimpan pecahan 8 byte. Harus diawali dengan huruf selain I,J,K,L,M,N.
4. Variabel Karakter menyimpan variabel karakter 4 byte. Kalau tidak didefinisikan dapat menampung 4 karakter. Diawali huruf apa saja boleh juga I,J,K,L,M,N.
5. Variabel Logika menyimpan nilai logika .TRUE. .FALSE. Diawali dengan huruf apa saja boleh juga I, J, K, L, M, N.

Nama Larik ( Array ) :
Digunakan untuk menyimpan beberapa nilai dalam satu nama larik. Pada Fortran dapat berdimensi satu, dua, tiga sampai tujuh. Bila tidak didefinisikan maka harus diawali dengan huruf I, J, K, L, M, N.

Nama Fungsi :
Digunakan untuk mendapatkan suatu nilai dari fungsi tersebut. Dengan fungsi, nilai data dapat dikirimkan ke fungsi dan fungsi akan memberikan hasil yang diminta. Dalam Fortran digolongkan menjadi 3 macam, yaitu :
1. Fungsi Eksternal yang dibuat sendiri oleh pembuat program dalam bentuk unit program yang terpisah tetapi masih dalam satu program.
2. Fungsi Statement dedefinisikan tidak dalam bentuk unit program yang terpisah, tetapi dalam statement tunggal.
3. Fungsi Hakiki atau Fungsi pustaka yang sudah disediakan oleh fortran.

Verb adalah kata kerja perintah yang terdapat dalam statement. Hampir semua statement Fortran mempunyai verb, kecuali assignment statement. Contoh WRITE, CALL

Unit Specifier dapat berupa :
1. * atau 0 menunjukkan unit alat untuk Keyboard atau layar.
2. Ungkapan Integer, yaitu nilai integer selain nilai 0 menunjukkan unit alat yang dipergunakan adalah file eksternal (printer atau file disk). Statement OPEN menunjukkan nama dari filenya. Nama file sebagai berikut :
- LPT1: atau PRN (printer yang pertama).
- CON: menunjukkan alat Console.
- LPT2: (Printer kedua).
- COM: atau COM1: atau COM2 untuk Port Komunikasi.
- Nama file di Disk.
contoh : OPEN(1,File='LPT1:')

Format Specifier :
Digunakan untuk menunjukkan format yang akan dipergunakan oleh data input ataupun output.
Statement :
1. Statement yang terolah (Executable Statement) yaitu : statement yang menyebabkan suatu operasi dilakukan. Contoh : ASSIGN, CALL, CONTINUE, DO, ELSE, ELSEIF, AND, ENDIF, GOTO, IF, PAUSE, RETURN, STOP, BACKSPACE, CLOSE, ENDFILE, OPEN, READ, REWIND dan WRITE.
2. Statement tak terolah (Non-Executable Statement) yaitu : statement yang tidak melakukan operasi. Contoh : FORMAT, DATA, PARAMETER, COMMON, DIMENSION, QUIVALENCE, EXTERNAL, IMPLICIT, INTRINSIC, SAVE dan TYPE , PROGRAM, FUNCTION SUBROUTINE.

STATEMEN FORMAT
Bentuk umum:
FORMAT
Kegunaan:
Statement FORMAT digunakan untuk mengedit data pada alat-alat I/O,yaitu mengatur letak, tipe dan panjang dari data yang akan dimasukkan lewat alat input atau yang akan ditampilkan ke alat output.

Penjelasan:
 menunjukkan label dari statement FORMAT yang akan digunakan oleh statement READ atau statement WRITE.
 adalah format specification, merupakan bentuk yang menyediakan informasi terhadap letak, tipe dan panjang dari
data. Format specification ini harus ditulis dalam tanda kurung. Isi dari format specification ini yaitu edit descriptor.

Statement FORMAT bebas diletakkan dimana saja didalam program, tetapi yang baik adalah bila ada beberapa statement FORMAT, dapat anda kumpulkan sementara menjadi satu dan diletakkan diujung bawah atau ujung atas program, sehingga mudah mencarinya.
Edit descriptor menunjukkan informasi mengenai letak tipe dan panjang dari masing-masing data yang akan dimasukkan lewat alat input atau yang akan ditampilkan di alat output.
CARRIAGE CONTROL
Karakter pertama dari setiap data yang ditampilkan di layar maupun diprinter tidak turun ditampilkan atau dicetak. Bila karakter carriage control berupa karakter:
 Blank atau spasi, mempunyai efek ganti baris baru,tetapi tidak memberikan spasi.
 0, berarti memberi spasi satu baris dari baris sebelumnya.
 1, berarti akan mencetak di halaman baru ( tidak berlaku di layar, hanya di printer).
 +, berarti tidak ganti baris, tetapi overprinting (menumpangi penampilan sebelumnya di baris yang sama).

FORMAT SPECIFICATION BERULANG
Selain repeatable edit descriptor dapat diulang dengan sejumlah perulangan tertentu, format specification juga dapat di ulang, dengan bentuk umum:

Penjelasan:
merupakan jumlah pengulangannya.
Maksimum jumlah pengulangan untuk format specification adalah 3
Level.
1. Level pertama pada format specification adalah :
2('BASIC') Yang sama dengan: 'BASIC BASIC'
2. Level kedua pada format specification adalah:
3. 2('COBOL',2('BASIC') Yang sama dengan:2('COBOL BASIC BASIC')
4. atau 'COBOL BASIC BASIC COBOL BASIC BASIC'
5. Level ketiga pada format specification adalah:
5(3X,'FORTRAN',2X,2('COBOL',2('BASIC')),/) Yang sama dengan : 5(3X,'FORTRAN',2X,'COBOL BASIC BASIC COBOl BASIC BASIC',/) atau : 5('FORTRAN COBOL BASIC BASIC COBOL BASIC
BASIC',/) Sehingga bila program ini dijalankan,akan didapat hasil sbb:
FORTRAN COBOL BASIC BASIC COBOL BASIC BASIC
FORTRAN COBOL BASIC BASIC COBOL BASIC BASIC
FORTRAN COBOL BASIC BASIC COBOL BASIC BASIC
FORTRAN COBOL BASIC BASIC COBOL BASIC BASIC
FORTRAN COBOL BASIC BASIC COBOL BASIC BASIC

STATEMENT DATA DAN STATEMENT PARAMETER
Untuk memasukkan suatu data ke suatu variabel atau larik atau elemen dari suatu larik dapat dilakukan dengan beberapa cara, yaitu:

1. Dengan statement pengerjaan
Contoh A = 5.25
Maka variabel A akan berisi nilai 5.25.
Contoh :
A(1) = 7.15
A(2) = 8.00
A(3) = 5.55
Maka larik A untuk elemen pertama berisi nilai 7.15, elemen kedua berisi nilai 8.00 dan elemen ketiga berisi nilai 5.55.

2. Dengan statement READ
Contoh:
READ (*,10)
10 FORMAT (F5.2)

3. Dengan statement DATA.
Bila data yang akan dimasukkan ke suatu variabel atau larik jumlahnya cukup banyak dan sifatnya konstan, maka akan lebih baik bila digunakan statement DATA.

4. Dengan statement PARAMETER.
Banyak digunakan untuk memasukkan data konstan yang tidak begitu banyak.

STATEMENT DATA
Bentuk umum:
DATA//[[,]//]...
Penjelasan:
 Statement DATA merupakan nonexecutable statemen dan harus diletakkan setelah statement spesifikasi bila statement spesifikasi digunakan.
 merupakan satu atau kumpulan dari nama variabel, larik atau elemen larik.
 merupakan satu atau kumpulan dari konstanta Jumlah konstanta untuk masing-masing harus sama dengan jumlah dari nama variabel atau elemen larik untuk masing-masing .

MEMASUKKAN DATA KE VARIABEL
Data yang berbentuk konstanta yang akan dimasukkan ke suatu variabel harus mempunyai tipe yang sama dengan variabelnya. Konstanta numerik harus dengan variable numerik,konstanta karakter harus dengan variabel karakter, konstanta logika harus dengan variabel logika. Ada beberapa cara untuk memasukkan data ke variabel dengan statement DATA, sebagai berikut ini.
1. Satu nama variabel dihubungkan dengan satu konstanta
2. Kumpulan variabel dihubungkan dengan kumpulan konstanta
3. Sejumlah variabel dihubungkan dengan sebuah konstanta dengan
factor Pengulang.

MEMASUKKAN DATA KE LARIK
Seperti halnya data yang dimasukkan ke variabel, nilai data konstanta harus mempunyai tipe yang sama dengan lariknya dan nama larik harus sudah disebutkan dengan statement DIMENSION atau dengan statement type. Caranya:
1. Satu elemen larik dihubungkan dengan satu konstanta
2. Kumpulan elemen larik dihubungkan dengan kumpulan konstanta
3. Satu nama larik dihubungkan dengan kumpulan konstanta (DIMENSION, IMPLICIT DAN TYPE)

STATEMENT DIMENSION
Bentuk umum:
DIMENSION)[,(]...

Kegunaan:
Mendefinisikan bahwa suatu nama yang dibentuk oleh pembuat program merupakan suatu larik serta sekaligus menentukan jumlah dari elemen-elemennya.
Penjelasan:
adalah nama dari suatu larik yang didefinisikan
adalah deklarasi dimensi yang menunjukan jumlah elemen dari larik Suatu larik maksimum dapat berdimensi sampai 7 buah dimensi & ukuran maksimum seluruh larik adalah 64 K atau 65536 byte. Kesalahan yang dideteksi oleh compiler menunjukan bahwa ukuran larik melebihi batas 64 kilo byte. Deklarasi dimensi dari suatu larik yang menunjukan jumlah elemen dari larik juga merupakan batas atas dari suatu dimensi dengan batas bawahnya adalah nol.




Suatu deklarasi dimensi dapat berupa:
1. Suatu konstanta integer positif tidak bertanda. Bila deklarasi dimensi berupa nilai integer positif, maka larik yang bersangkutan mempunyai elemen dengan batas atas yang sudah pasti, yang ditunjukkan oleh deklarasi dimensi tersebut.
2. Suatu argument numerik integer. Bila suatu deklarasi dimensi berupa argument numeric integer,maka jumlah elemen dari larik tersebut tidak pasti,tergantung dari nilai argument numerik integer bersangkutan. Untuk kasus semacam ini, larik disebut dengan istilah larik yang ukurannya dapat berubah (adjustable size array). Adjustable size array ini hanya dapat digunakan pada subroutine.

3. Suatu asterik (*)
Jika deklarasi dimensi adalah asterik (*),maka lariknya disebut dengan assumed-sizedarray (larik dengan ukuran asumsi), yang berarti batas atas dari elemen larik tidak ditentukan, tetapi diasumsikan. Assumed sized array juga digunakan di subroutine.

STATEMENT INPUT/OUTPUT

1. READ
Dipergunakan untuk membaca data dari suatu media input.
BU:
READ(I, L) var1, var2,…
Dengan:
I : Nomor alat input, yaitu nomor yang menyatakan suatu alat input, misal: keyboard, disk dll.
L : label FORMAT
Var1, var2 : Nama varabel yang datanay dibaca.
Contoh
READ (*,11)A,B,I
11 FORMAT (2F10.2,I5)


Keterangan:
Harga-harga A, B , I dibaca memlalui alat input yang bertanda * (standar input) biasanya keyboard, dengan tata letaknya sesuai FORMAT yang berlabel 11 yaitu:
A dengan FORMAT F10.2
B dengan FORNAT F10.2
I dengan FORMAT I5

1. WRITE
Dipergunakan untuk menuliskan isi suatu variabel pada suatu media output.
BU:
WRITE(I,L) var1, var2 …
Dengan:
I : Nomor alat output, yaitu nomor yang menyatakan suatu alat output, misal monitor, printer,disk
L : Label FORMAT
Var1, var2 : Nama variabel yang datany dituliskan.

Contoh:
WRITE (*,10) A,B,C
10 FORMAT(3F20.8)

Keterangan:
Harga-harga A,B,C dituliskan pada alat aoutput yang bertanda * ( standar output) biasnya monitor (console). Dengan tata letaknya sesuai FORMAT.

2. FORMAT
Dipergunakan untuk menentukan tata letak suatu data masukan pada media input maupun data keluaran pada media output. Ada tiga jenis format untuk menyatakan data numeris yatiu: tipe I, tipe F dan tipe E.

a. Format Tipe I
Tipe I dipakai untuk membaca atau menuliskan data INTEGER.
BU : nIw
Keterangan:
n = Cacah format I
w = Banyak kolom yang dipakai oleh data.
Contoh:
READ(*,100) IDATA, IHASIL
100 FORMAT(I5,I5)
Atau
100 FORMAT(2I5)

b. Format Tipe F
Tipe F dipakai untuk membaa atau menuliskan data-data REAL.
BU: nFw.d
Keterangan:
n = cacah format F
w = banyak kolom yang dipakai oleh data
d = cacah digit di belakang titik desimal.

Contoh:
READ(*,100) X1, X2
100 FORMAT(F4.2,F4.2)
Atau
100 FORMAT(2F4.2)
c. Format Tipe E
Tipe E dipakai untuk membaca atau menuliskan data-data REAL dengan cara EXPONENT.
BU: nEw.d
Keterangan:
n = cacah format E
w = banyak kolom yang dipakai oleh data
d = cacah digit di belakang titik desimal.
Contoh:
READ(*,100) X1, X2
100 FORMAT(E4.2,E4.2)
Atau
100 FORMAT(2E4.2)

d. Format Tipe X
Tipe X ini bukan untuk membaca atau menulis, melainkan hanya untuk memberitahu banyak ruang kosong (spasi) antar data-data yang dibaca atau ditulis.
BU: nX dengan n: jumlah ruang kosong.
Contoh:
READ(*,100) PDAT,NILAI
100 FORMAT(F5.1,3X,I5)

e. Format Literal
Untuk menuliskan data literal langsung dari program ke media output.
BU: ‘ xxxxxxxxxx’
Contoh:
WRITE(*,100)
FORMAT(‘BELAJAR BAHASA FORTRAN’)

STATEMEN CONTROL

1. STATEMEN GO TO
Ada dua bentuk untuk statemen ini, yaitu:
- GO TO statemen tanpa syarat dan
- GO TO statemen dengan hitungan

a. GO TO tanpa syarat
Berfungsi memerintahkan proses untuk meloncat langsung ke statemen dengan label yang ditunjuk.
Contoh:

100 READ(*,10) A,B
C=A*B
-
GO TO 100
-
STOP
END

b. GO TO dengan hitungan
Statemen ini memberi perintah agar program loncat ke statemen dengan label nk apabila harga var= k. Aturan-aturan untuk GO TO statemen dengan hitungan:
- n1,n2,..,nm dapat tidak urut dan dapat sama.
- Harga var harus lebih kecil atau sama dengan m dan var  0.
- Harga var harus telah ditentukan sebelum program tiba pada statemen ini.
- Steiap nomor statemen yang ada dalam program dapat dipergunakan dalam GO TO statemen dengan hitungan. Kecuali nomor statemen untuk FORMAT.

Contoh:
READ(*,10)N
GO TO (100,200,300)N
100 X=P*A
200 X=P*B
300 X=p*D
STOP
END

2. STATEMEN IF
Statemen IF ada 2 jenis:
- Statemen IF hitungan
- Statemen IF nalar.

a. Statemen IF hitungan adalah untuk mengecek isi suatu variabel atau hasil suatu pernyataan hitungan, yaitu apakah negatif, nol atau positif. Dan berdasarkan hasil cek yang diperoleh, program diperintahkan loncat ke nomor statemen: n1, atau n2 atau n3.

BU : IF (pr) n1,n2,n3
Dimana:
pr : Pernyataan hitungan atau suatu variabel, boleh REAL atau INTEGER;
n1,n2,n3 : Nomor-nomor statemen yang akan dituju untuk digarap instruksinya.

Penjelasan:
- Kalau harga variabel, atau hasil pernyataan hitungan < 0 (negatif), program loncat ke n1. Hitungan = 0 (nol) program loncat ke n2 dan kalau hitungan > 0 (positif) program loncat ke n3.
- N1,n2,n3 dapat dua buiah sama, tetapi tidak dapat semua sama.
- Hirarki dan peraturan-peraturan lain berlaku juga pada ekspresi pr di dalam statemen IF.
Contoh:
READ(*,10) A,B,C
IF(B**2-4*C)100,200,300

100 WRITE(*,110)
110 FORMAT(‘AKAR IMAJINER’)
200 X=-B/(2.*A)
300 X1=(-B+SQRT(b**2-4*A*C))/(2.*A)
STOP
END
b. Statemen IF Nalar untuk membandingkan dua (atau lebih) variabel secara nalar, kalau perbandingan nalar memberikan hasil “ya”, maka statemen I digarap, apabila tidak dipenuhi maka program terus menggarap statemen di bawahnya.

BU: IF (ekspresi nalar) statemen)

Operator nalar yang dipakai:
.EQ. sama dengan
.NE. tidak sama dengan
.LT. lebih kecil dari
.LE. lebih kecil atau sama dengan
.GT. lebih besar
.GE. lebih besar atau sama dengan
.OR. atau
.AND. dan
.NOT. bukan

Contoh:

IF(A .LE. 10.0 .AND. A .GT. 5.0) GO TO 150
WRITE(*,100)
100 FORMAT(1X,’TIDAK LULUS’)
STOP
150 WRITE(*,200)
200 FORMAT(1X,’LULUS’)
STOP
END


3. STATEMEN DO
Berfungsi untuk memerintahkan komputer agar menjalankan suatu deretan, berulang-ulang dengan cara tertentu.

BU : DO n var=m1,m2,m3

n : Nomor statemen dari suatu statemen yang merupakan batas akhir dari deretan yang harus diproses berulang-ulang.
Var : Variabel integer/real yang harganya akan berubah-ubah dari suatu harga awal m1 ke harga akhir m2 dengan besar langkah m3.

Pada FORTRAN IV kalang DO tidak dapat diakhir dengan kontrol statemen, untuk mengatasi ini dapat dipakai statemen CONTINUE. Sednag pada FORTARN 77 dijinkan.

Contoh:
DO 100 I =1,25
X=I**3
WRITE(*,10)X
100 IF (X .GT. 1000.0) GO TO 200
200 CONTINUE
STOP
END

SUBPROGRAM
Subprogram ada 2 macam:
- subprogram FUNCTION
- subprogram SUBROUTINE
1. Subprogram FUNCTION
BU: FUNCTION nf(arg1,arg2…argm)
Sifat-sifat FUNCTION :
- bersifat otonom, sehingga nama-nama variabel di dalam subprogram boleh sama dengan nama-anam variabel di dalam program pemanggil dengan tidak terjadi kesalahan.
- Dipanggil langsung dengan namanya.
- Argumen-argumen hanya merupakan input, output keluar melalaui nama subprogram FUNCTION.
- Boleh mempunyai lebih sari satu statemen RETURN, maupun juga statemen STOP.
- Argumen dapat berupa konstanta maupun variabel, real atau integer.

Contoh:
READ(*,10) A,B
C= TAMBAH(A,B)
WRITE(*,10)C
10 FORMAT(F8.2)
STOP
END
FUNCTION TAMBAH(X,Y)
TAMBAH=X+Y
RETURN
END

2. Subprogram SUBROUTINE
BU: SUBROUTINE ns(arg1, arg2…argm)
Sifat-sifat SUBROUTINE:
Hampir sama dengan FUNCTION, hanya berbeda pada pemanggilannya yaitu dengan cara : CALL nama subroutine. Dan SUBROUTINE tidak dapat mengembalikan nilai sebagaimana dengan FUNCTION .

Contoh:
READ(*,10) A,B
TAMBAH(A,B)
STOP
END
SUBROUTINE TAMBAH(X,Y)
Z= X+Y
WRITE(*,100)Z
100 FORMAT(F8.2)
RETURN
EN
Virtual Lab ATA 2007 – 2008
Matematika Lanjut 2

1. Jelaskan Struktur Program Fortran dan Aturan penulisan dalam Fortran !
2. Apa perbedaan Statement Stop dan End!
3. Apa perbedaan Procedure dan Function!
4. Buatlah program Fortran
a. Program Menghitung Luas Trapesium
b. Program Perkalian Matriks
JAWABAN
1. Struktur Program Fotran :

Dibagi menjadi 5 bagian kolom dan tiap baris di dalam program dapat berisi :
1. Metacommand
2. Komentar
3. Statement
4. Sambungan dari statement baris sebelumnya.

Aturan Penulisan dalam Fotran :
1. Kolom pertama merupakan Komentar atau metacommand (C, *, $).
2. Kolom 1 sampai 5 untuk penulisan label statement berupa angka.
3. Kolom 6 untuk indikasi sambungan dari baris sebelumnya.
4. Kolom 7 sampai 72 untuk penulisan Statement FORTRAN.
5. Kolom 73 sampai 80 tidak digunakan (Untuk Komentar bebas).

2. Statement STOP

Statement stop itu untuk mengakhiri suatu program. Tetapi setelah itu jika ada program lagi bisa langsung dijalankan.

Statement END

Statement end juga untuk mengakhiri suatu program. Hanya bedanya kalo statement stop bisa langsung dijalankan jika ada program selanjutnya tetapi kalo statement end tidak bisa.



3.PROCEDURE :

Procedure pada fortran disebut juga dengan subroutine prosedur dapat ditentukan dalam sebuah subroutine subprogram atau dengan cara lain.

FUNCTION :

Setiap fungsi terdiri dari satu atau beberapa pernyataan yang secara keseluruhan dimaksudkan untuk melaksanakan tugas khusus. Bagian pernyataan fungsi (sering disebut tubuh fungsi) diawali dengan tanda kurung kurawal buka ( { ) dan diakhiri dengan tanda kurung kurawal tutup ( } ). Namun dalam kenyataannya suatu fungsi bisa saja tidak mengandung pernyataan sama sekali.


4.A) Program menghitung luas trapesium :

real*4 luas
integer*2 SISIA,SISIB,TINGGI
write(*,5)
read(*,10) sisia
write(*,20)
read(*,30) sisib
write(*,40)
read(*,50) tinggi
Luas =((sisib-sisia)*tinggi/2)+(tinggi*sisia)
write(6,60) luas
5 format('sisi atas:',\)
10 format(i5)
20 format('sisi bawah:',\)
30 format(i5)
40 format('tinggi:',\)
50 format(i5)
60 format(1x,'luas:',f5.2)
stop
end

B) matriks perkalian :

C ***** UNTUK PROGRAM FORTRAN perkalian dua buah MATRIX
DIMENSION A(100,100), B(100,100), C(100,100) DIMENSI A (100.100), B (100.100), C (100.100)
INTEGER P,Q INTEGER P, Q

C***** READ THE SIZE OF MATRIX A(MXN) C ***** READ ATAS UKURAN OF MATRIX A MXN ()
C***** MAXIMUM SIZE IS ASSUMED TO 100X100 C ***** UKURAN maksimum diperkirakan 100x100

1 MENULIS (*, *) 'ENTER THE UKURAN (M <100, N <100) OF MATRIX A'
READ ( *, 2) M, N READ (*, 2) M, N
2 FORMAT (2I3) 2 FORMAT (2I3)

WRITE( *,*) 'ENTER THE SIZE(P<100,Q<100) OF MATRIX B' WRITE (*, *) 'ENTER THE UKURAN (P <100, Q <100) OF B MATRIX'
READ ( *, 2) P,Q READ (*, 2) P, Q

PERIKSA APAKAH C ***** P = N JIKA TIDAK MAKA TIDAK DEFINISI PRODUK.

IF(N .EQ. P) GO TO 3 IF (N.. EQ P) GO TO 3
WRITE( *,*) 'THE PRODUCT OF MATRICES A & NOT DEFINED' WRITE (*, *) 'PRODUK matriks A & TIDAK DEFINISI'
WRITE( *, *) 'RE-ENTER THE SIZES OF A & B AGAIN' WRITE (*, *) 'RE-ENTER ukuran A & B LAGI'
GO TO 1 GO TO 1
C ***** BERAWAL INPUT UNTUK:
3 WRITE ( *,* ) 'ENTER MATRIX A ROW-WISE' 3 MENULIS (*, *) 'ENTER MATRIX A ROW-WISE'
DO 4 I =1, M DO 4 I = 1, M
WRITE (*,*) 'ENTER ROW NO :', I MENULIS (*,*) 'ENTER ROW NO:', saya
4 READ (*,5) (A(I,J),J=1,N) READ (*, 5) (A (I, J), J = 1, N)
5 FORMAT (F8.2) 5 FORMAT (F8.2)

C ***** BERAWAL INPUT UNTUK B:
WRITE ( *,* ) 'ENTER MATRIX B ROW-WISE' WRITE (*, *) 'ENTER B-MATRIX ROW WISE'
DO 7 I =1, P 7 DO I = 1, P
WRITE (*,*) 'ENTER ROW NO :', I MENULIS (*,*) 'ENTER ROW NO:', saya
7 READ (*,5) (A(I,J),J=1,Q) 7 READ (*, 5) (A (I, J), J = 1, Q)

C ***** ATAS MULAI perkalian

DO 8 I =1,M DO 8 Saya = 1, M
DO 8 K =1,Q DO 8 K = 1, Q
C(I,K) = 0.0 C (I, K) = 0,0
DO 9 J =1,N DO 9 J = 1, N
9 C(I,K) = C(I,K) + A(I,J)*B(J,K) 9 C (I, K) = C (I, K) + A (I, J) * B (J, K)

C ***** C PRINT MATRIX PRODUK ATAS dalam bentuk tabular
DO 10 I=1,M DO 10 I = 1, M
10 WRITE (*,11) (C(I,J), J=1,Q) 10 WRITE (*, 11) (C (I, J), J = 1, Q)
11 FORMAT ( F8.2 ) 11 FORMAT (F8.2)
STOP
END