Senin, April 27, 2009

Penyeleksian IF - THEN

rumus :

contoh :

var
nilai : integer;

begin
write ( 'nilai =' ); read ( nilai );
if ( nilai >= 50 ) then writeln ( 'lulus' );
else writeln ( 'tidak lulus' );
end.


penjelasan :

tampilkan ( 'nilai' ) lalu ketikkan nilai berupa angka yang nantinya angka itu akan disimpan di ( nilai )
jika nilai >= 50
jika benar tampilkan ( 'lulus' )
jika salah tampilkan ( 'tidak lulus' )

1. menentukan huruf ganjil/genap

deklarasi
N = ineteger

deskripsi
if ( N mod 2 = 0 )
then output ( genap )
else output ( ganjil )
end if

- program

var
N : integer;

begin
write ( 'N =' ); read ( N );
if ( N mod 2 = 0 ) then writeln ( 'genap' );
else writeln ( 'ganil' );
end.

2. menentukan nilai terbesar

input A,B
if ( A>B )
then output ( A )
else output ( B )
end if

3. menentukan nilai terbesar dari 3 input

if ( A>B )
then if ( A>C ) then writeln ( A ); else writeln ( C );
else if ( B>C ) then writeln ( B ); else writeln ( C );
end if

atau

if ( A>B ) and ( A>B ) then output A
if ( B>A ) and ( B>C ) then output B
if ( C>A ) and ( B>D ) then output C

*jka ingin menentukan huruf tekecil hanya tinggal mengganti tanda ">" menjadi "<"

4. 1 input 3 pilihan

if ( suhu >= 100 ) then output ( gas )
if ( suhu > 0 ) and ( suhu < 100 ) then output ( cair )
if ( suhu < 0 ) then output ( padat )

Tidak ada komentar:

Poskan Komentar