(* File : IF1.PAS *)
(* contoh pemakaian IF satu kasus *)
(* membaca nilai integer, menuliskan nilainya jika positif *)
Program IF1;
(* Kamus *)
var
a : integer;
begin
(* Program *)
writeln ( 'Contoh IF satu kasus ');
write ( 'Ketikkan satu nilai integer : ');
readln (a);
if (a >= 0) then
begin
writeln ( 'Contoh IF satu kasus ');
write ( 'Ketikkan satu nilai integer : ');
readln (a);
if (a >= 0) then
begin
writeln ( 'Nilai a positif... ', a);
end;
end.
===================================================================
(* File :IF2.PAS *)
(* contoh pemakaian IF dua kasus komplementer *)
(* Membaca sebuah nilai, *)
(* menuliskan 'Nilai a positif , nilai a', jika a >=0 *)
(* 'Nilai a negatif , nilai a', jika a <0 *)
program IF2;
(* Kamus *)
var
a : integer;
begin
(* Program *)
writeln ('Contoh IF dua kasus ');
write ( 'Ketikan suatu nilai integer :');
readln (a);
if (a >= 0) then
begin
writeln ('Contoh IF dua kasus ');
write ( 'Ketikan suatu nilai integer :');
readln (a);
if (a >= 0) then
begin
writeln ( 'Nilai a positif ', a);
end else (* a<0 *)
begin
begin
writeln ( 'Nilai a negatif ', a);
end;
end.
=====================================================================
(* File : IF3.PAS *)
(* contoh pemakaian IF dua kasus komplementer *)
(* Membaca sebuah nilai, *)
(* menuliskan 'Nilai a positif , nilai a', jika a>0 *)
(* 'Nilai a sama dengan nol , nilai a', jika a =0 *)
(* 'Nilai a negatif , nilai a', jika a <0 *)
program IF3;
(* Kamus *)
var
=====================================================================
(* File : IF3.PAS *)
(* contoh pemakaian IF dua kasus komplementer *)
(* Membaca sebuah nilai, *)
(* menuliskan 'Nilai a positif , nilai a', jika a>0 *)
(* 'Nilai a sama dengan nol , nilai a', jika a =0 *)
(* 'Nilai a negatif , nilai a', jika a <0 *)
program IF3;
(* Kamus *)
var
a : integer;
begin
(* Program *)
writeln ( 'Contoh IF tiga kasus');
write ( 'Ketikkan suatu nilai integer :');
readln (a);
if (a > 0) then
begin
writeln ( 'Contoh IF tiga kasus');
write ( 'Ketikkan suatu nilai integer :');
readln (a);
if (a > 0) then
begin
writeln ( 'Nilai a positif ', a);
end else
if (a=0) then
begin
begin
writeln ( 'Nilai a sama dengan nol ', a);
end else if (a<0) then
begin
writeln ( 'Nilai a negatif ', a);
end;
end.
====================================================================
program KASUS;
(* File : KASUS.PAS *)
(* Contoh kasus dengan intruksi CASE *)
VAR
(* Kamus *)
====================================================================
program KASUS;
(* File : KASUS.PAS *)
(* Contoh kasus dengan intruksi CASE *)
VAR
(* Kamus *)
cc : char;
begin
(* Program *)
writeln ( 'Ketikkan sebuah huruf, akhiri dengan RETURN ');
readln (cc);
case cc of
writeln ( 'Ketikkan sebuah huruf, akhiri dengan RETURN ');
readln (cc);
case cc of
'a' : begin
writeln ( ' Yang anda ketik adalah a ' );
end;
'u' : begin
writeln ( ' Yang anda ketik adalah u ' );
end;
'e' : begin
writeln ( ' Yang anda ketik adalah e ' );
end;
'o' : begin
writeln ( ' Yang anda ketik adalah o ' );
end;
'i' : begin
writeln ( ' Yang anda ketik adalah i ' );
end
else writeln ( ' Yang anda ketik adalah huruf mati atau angka' );
end;
end.
=====================================================================
(* File : wujudair.PAS *)
(* contoh pemakaian IF tiga kasus : wujud air *)
program wujudair;
(* Kamus : *)
var
=====================================================================
(* File : wujudair.PAS *)
(* contoh pemakaian IF tiga kasus : wujud air *)
program wujudair;
(* Kamus : *)
var
T: integer;
begin
(* program *)
writeln ( 'Contoh IF tiga kasus ' );
write ( 'Temperatur (der. C) = ' );
readln (T);
if (T < 0) then
begin
writeln ( 'Contoh IF tiga kasus ' );
write ( 'Temperatur (der. C) = ' );
readln (T);
if (T < 0) then
begin
writeln ( 'Wujud air beku ');
end else
begin
begin
if ( (0<=T) and (T<=100) ) then
begin
writeln ( 'Wujud air cair ');
end else
begin
if (T>100) then
begin
begin
writeln ( 'Wuju air uap/gas ');
end;
end;
end;
end.
==================================================================
program MAX2;
(* File :MAX2.PAS *)
(* Maksimum dua bilangan yang dibaca *)
VAR
==================================================================
program MAX2;
(* File :MAX2.PAS *)
(* Maksimum dua bilangan yang dibaca *)
VAR
(* Kamus *)
a,b : integer;
a,b : integer;
begin
(* Program *)
writeln ( 'Maksimum dua bilangan : ' );
write ( 'Ketikan bilangan pertama : ' );
readln (a) ;
write ( 'Ketikan bilangan kedua : ' );
readln (a) ;
if (a >= b) then
writeln ( 'Maksimum dua bilangan : ' );
write ( 'Ketikan bilangan pertama : ' );
readln (a) ;
write ( 'Ketikan bilangan kedua : ' );
readln (a) ;
if (a >= b) then
begin
writeln ( 'Nilai a yang maksimum ', a);
end
else
begin
writeln ( 'Nilai b yang maksimum ', b) ;
end ;
end.
