Page 25 - Pemrograman Dasar kelas X

Bab 1 Pengenalan bahasa Pemrograman 21

KEGIATAN BELAJAR 2 STRUKTUR BAHASA PEMROGAMAN PASCAL

Tujuan Pembelajaran
Siswa memahami struktur bahasa pemrograman Pascal.
Aktivitas Kegiatan Belajar

Pada kegiatan sebelumnya kita telah memahami apa itu bahasa pemrograman dan
kaitannya dengan algoritma, nah kali ini kita akan belajar tentang struktur dan cara penulisankode

program menggunakan Bahasa Pascal. Untuk memahaminyamari lakukan kegiatan belajar berikut.
Mengamati
1. Perhatikan contoh kode program penghitung luas lingkaran berikut

Program Luas_lingkaran;
uses crt;

varr : integer;
L : real;
begin

clrscr;
write(‘Masukan nilai jari-jari = ’);

readln (r);
L := 3.14*r * r * ;
writeln (‘Luas lingkarannya adalah=’,L);

readln;
end.

2. Berikut contoh kode program perhitungan diskon
Program Menghitung_diskon;
Uses crt;

var harga,diskon,harga_akhir: real;
begin

write(‘masukan harga barang=’);
readln(harga);
write(‘masukan prosentase diskon barang, skala 1-100 =’);

readln(diskon);
harga_akhir :=harga – (harga * diskon/100);

writeln(‘harga barang setelah didiskon adalah=’, harga_akhir);
readln;
end.