1 / 18

Pertemuan 3

Pertemuan 3. Pengenalan Bahasa Pascal. Algoritma Algoritma Definisi Algoritma adalah urutan langkah-langkah logis penyelesaian masalah yang disusun secara sistematis. Contoh : Algoritma TUKAR ISI BEJANA Diberikan dua buah bejana A dan B, bejana A berisi

yin
Download Presentation

Pertemuan 3

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. Pertemuan 3 • Pengenalan Bahasa Pascal

  2. Algoritma Algoritma Definisi Algoritma adalah urutan langkah-langkah logis penyelesaian masalah yang disusun secara sistematis. Contoh : Algoritma TUKAR ISI BEJANA Diberikan dua buah bejana A dan B, bejana A berisi larutan berwarna merah, bejana B berisi larutan berwarna biru. Pertukarkan isi kedua bejana itu sedemikian sehingga bejana A berisi larutan berwarna biru dan bejana B berisi larutan berwarna Merah.

  3. Algoritma Algoritma • Algoritma TUKAR ISI BEJANA di atas tidak menghasilkan pertukaran yang benar. Langkah di atas tidak logis, hasil pertukaran yang terjadi adalah percampuran kedua larutan tersebut. • Untuk mempertukarkan isi duah bejana, diperlukan sebuah bejana tambahan sebagai tempat penampungan sementara, misalnya bejana C. Maka algoritma untuk menghasilkan pertukaran yang benar adalah sebagai berikut :

  4. PENYELESAIANNYA : DESKRIPSI : 1. Tuangkan larutan dari bejana A ke dalam bejana C. 2. Tuangkan larutan dari bejana B ke dalam bejana A. 3. Tuangkan larutan dari bejana C ke dalam bejana B.

  5. TURBO PASCAL Langkah-Langkah yang dilakukan dalam membuat suatu program 1. Mendefinisikan masalah 2. Merencanakan Solusi 3. Membuat pengkodean 4. Pengujian 5. Dokumentasi

  6. Merencanakan Solusi Menggunakan Flow Chart

  7. Melakukan Pengkodean Langkah-Langkah yang dilakukan dalam pengkodean Program abc; Judul Program Uses Wincrt; Const Bagian Deklarasi Type Label Var Begin Statement Bagian Pernyataan End.

  8. Keterangan • Bagian Judul Program adalah bagian menunjukkan nama dari suatu program • Bagian Deklarasi adalah bagian yang berisi hal-hal yang perlu dipesan atau didefenisikan sebelum program utama dilaksanakan • Bagian Pernyataan adalah bagian yang menunjukkan suatu tindakan yang dikerjakan oleh program

  9. Bagian Deklarasi 1. Const Suatu Identifier yang nilainya sudah mempunyai ketetapan Contoh : phi = 3.14, Gravitasi = 9.8 2. Var Suatu Identifier yang nilainya bisa berubah / Variable. Data di input menggunakan keyboard.

  10. Bagian Deklarasi Var Tipe data yang digunakan dalam Variable • Bilangan Bulat Tipe data yang digunakan adalah : integer, byte, word, dll • Bilangan Decimal Tipe data yang digunakan adalah real • Karakter Tipe data yang digunakan adalah Char,string

  11. Bagian Statement Fungsi-Fungsi Pada Bagian Statement • Read / Readln Fungsi yang digunakan untuk memasukkan data melalui keyboard • Write / Writeln Fungsi yang digunakan untuk menampilkan data / informasi pada layar

  12. Contoh Program abc; Uses Wincrt; Begin Write(‘Nama : ‘); Writeln(‘Siswa SMA Cendana’); Write(‘Pekanbaru’); Writeln(‘KLS : ’); End.

  13. Contoh : Var nama : string; Begin nama := ‘Badu Atay’; write(‘nama : ‘); write(nama); End. Hasilnya : Nama : Badu Atay Contoh : Var nama : string; Begin nama := ‘Julia Perezh”; WriteLn(‘Nama : ‘); WriteLn(Nama); End. Hasilnya : Nama : Julia Perezh

  14. Melakukan Pengkodean Program Luas_Lingkaran; Uses Wincrt; Const Phi = 3.14; Var R : Integer; Jari-Jari L : Real ; Luas Lingkaran Begin Write(‘Masukkan Jari – Jari Lingkaran = ’); Readln(R); L:= Phi * R * R ; Write (‘Luas Lingkaran = ‘,L); End.

  15. Melakukan Pengkodean • Buatlah program untuk menghitung luas bujur sangkar • Buatlah program untuk menghitung luas persegi panjang

  16. Luas Bujur Sangkar Program Luas_Bujur_Sangkar; Uses Wincrt; Var S: integer; L: integer; Begin Write(‘masukkan Sisi Bujur Sangkar= ‘); Readln(S); L:=S*S; Write(‘Luas Bujur Sangkar = ‘,L); End.

  17. Luas persegi panjang LANJUTKAN!!!

More Related