Abdurrahman Aqil

My notes~

Tuesday, November 19, 2019

Program pascal : Struktur Pemilihan

Struktur pemilihan pada pascal ada 3 macam, yaitu : If, Case of dan Repeat until.

Struktur pemilihan If

Sintaks pada struktur pemilihan if dengan 1 kondisi:
if (kondisi) then 
statement

Sintaks pada struktur pemilhan if dengan 2 kondisi:
if (kondisi) then 
statement1
else statement2

Sintaks pada stuktur pemilihan if dengan 3 kondisi atau lebih:
if (kondisi1) then statement1
else if (kondisi2) then statement2
else if (kondisi3) then statement3
......
......
else statementN

Langsung saja ke contoh programnya:
#1 Kondisi
Program kondisi1;
uses crt;
var jawab:char;
begin
clrscr;
write('Apakah anda lapar ?');
readln(jawab);
if (jawab='y') or (jawab='Y') then
write('makan gih!');

readln;
end.


#2 kondisi
Program kondisi2;
uses crt;
var pilih:char;
begin
clrscr;
write('Apakah anda jomblo ? y/t ')'
if (pilih='y') or (pilih='Y') then
writeln('Kasihaannn')
else write('Masih kecil gak boleh pacaran!');

readln;
end.


#3 Kondisi atau lebih
Program banyakkondisi;
uses crt;
var hari:integer;

begin
clrscr;
write('Masukkan angka = ');
readln(hari);
if (hari=1) then writeln('Minggu')
else if (hari=2) then writeln('Senin')
else if (hari=3) then writeln('Selasa')
else if (hari=4) then writeln('Rabu')
else if (hari=5) then writeln('Kamis')
else if (hari=6) then writeln('Jumat')
else if (hari=7) then writeln('Sabtu')
else writeln('salah input');

readln;
end.

No comments:

Post a Comment