Page 31 - Pemrograman Dasar kelas X
P. 31

Bab 1 Pengenalan bahasa Pemrograman         27

             Berikut ini penjelasan kode program satu demi satu.
             1.  Judul Program, nama programnya adalah Luas_segitiga

             2.  Bagian Deklarasi, diantaranya
                  ✓  Uses crt; ini digunakan untuk menyiapkan layar di awal program.
                  ✓  Var Luas,a,t: real, artinya menyiapkan variabel-variabel seperti Luas, a, t sekaligus tipe

                      datanya yaitu bilangan real.
             3.  Bagian Pernyataan, terdiri dari beberapa urutan instruksi:
                  ✓  Begin Digunakan sebagai penanda akan memulai instruksi program

                  ✓  Clrscr, digunakan untuk membersihkan layar
                  ✓  Write(‘Masukan nilai alas=’); Meminta input nilai alas
                  ✓  Readln(a); Menyimpan inputan nilai dalam variable a

                  ✓  Writeln(‘Masukan nilai tinggi=’); Meminta input nilai tinggi
                  ✓  Readln(t); Menyimpan inputan nilai dalam variable t

                  ✓  Luas:=1/2 (a * t); Proses perhitungan Luas Segitiga
                  ✓  Writeln(‘Luas Segitiganya adalah=’, Luas); Menampilkan luas segitiga
                  ✓  End. Digunakan untuk mengakhiri instruksi program.


             Agar lebih jelas pemahaman kalian mengenai struktur kode program dan sintaks penulisan dalam

             bahasa Pascal, kerjakan LKS berikut.
             LEMBAR KERJA SISWA
                 1.  Perhatikan kode program berikut

                         Program Konversi Panjang;
                         Uses crt;

                         Var cm, m, mm:real;
                         Begin
                              Clrscr;

                               Write(‘Masukan nilai panjang dalam Centimeter=’)
                               Readln(cm)
                               m=cm/100

                               mm=cm*10
                               Writeln(‘Konversi nilai dalam Meter=’,m)
                               Writeln(‘Konversi nilai dalam Mili Meter=’,mm)

                               Readln
                         End
   26   27   28   29   30   31   32   33   34   35   36