if - then - else

contoh program menggunakan struktur if - then - else lainnya

program kelulusan;
uses crt;
var
nama_mahasiswa:string;
i:real;
begin
writeln('nama_mahasiswa:=');
readln(nama_mahasiswa);
writeln('masukkan nilai mahasiswa 1-10:=');
readln(i);
if i>7.5 then
write('lulus')
else
begin
write('tidak lulus')
end;
readln;
end.

case - of

contoh program menggunakan struktur case - of

program persegi_panjang;
uses crt;
var
pjg,lbr,kll,ls,dia:real;
pil:integer;
begin
clrscr;
writeln('menu utama');
writeln('program persegi panjang');
writeln('1.luas persegi panjang');
writeln('2.keliling persegi panjang');
writeln('3.diagonal persegi panjang');
writeln('4.keluar');
write('pilihan anda=');readln(pil);
case pil of
1:begin
clrscr;
write('masukkan panjang=');readln(pjg);
write('masukkan lebar=');readln(lbr);
ls:=pjg*lbr;
write('luas pp=',ls:6:2);
end;
2:begin
clrscr;
write('masukkan panjang=');readln(pjg);
write('masukkan lebar=');readln(lbr);
kll:=2*(pjg+lbr);
write('keliling persegi panjang=',kll:6:2);
end;
3:begin
clrscr;
write('masukkan panjang=');readln(pjg);
write('masukkan lebar=');readln(lbr);
dia:=sqrt((pjg*pjg)+(lbr*lbr));
write('diagonal persegi panjang=',dia:6:2);
end;
else
writeln('matur sembah nuwun');
end;
readln;
end.

struktur percabangan

struktur percabangan : srtuktur yang memungkinkan suatu pernyataan di eksekusi hanya jika pada kondisi terpenuhi / tidak
struktur percabangan ada dua yaitu :

• if - then - else
• case - of

contoh program percabangan
program inputan;
uses crt;
var
i:integer;
begin
write('masukkan bilangan antara 1-50:=');
readln(i);
if i<50 then
write('bilangan positif')
else
begin
write('bilangan negatif')
end;
readln;
end.

repeat - until

contoh program yang menggunakan struktur repeat until
program deret;
uses crt;
var
n,a,jumlah:integer;
begin
clrscr;
a:=1;
jumlah:=0;
write('masukkan n=');readln(n);
repeat
writeln(a);
jumlah:=jumlah+a;
a:=a+1;
until a>n;
write('jumlah deret',jumlah);
readln;
end.

while - do

contoh program menggunakan struktur while - do
program sumpah;
uses crt;
var A,angka:integer;
janji:string;
begin
clrscr;
write('berapa kali kamu berjanji = ');readln(angka);
write('apa janjimu = ');readln(janji);
A:=1;
while A<=angka do
begin
writeln(janji);
A:=A+1;
end;
readln;
end.

struktur perulangan

struktur perulangan biasanya digunakan :
- untuk mengulang pemasukan data.
- untuk mengulang proses perhitungan.
- untuk mengulang proses penampilan hasil pengulangan data.
struktur perulangan terdiri dari 4 bagian :
- inialisasi : aksi yang dilakukan sebelum pengulangan dilakukan pertama kali.
- kondisi pengulangan : berisi tentang ekspresi boulean yang harus di penuhi untuk melaksanakan pengulangan.
- badan pengulangan : berisi 1 / lebih aksi / pernyataan yang akan diulang.
- terminasi : berisi tentang aksi yang dilakukan setelah pengulangan selesai dilakukan.
bentuk perulangan :
(inisialisasi)
awal perulangan
badan perulangan
akhir perulangan
(terminasi)
sedangkan bentuk intruksi pengulangan dalam pascal ada 3 bentuk yaitu :
- for - next
- while - do
- repeat - until