Menghitung Jumlah Huruf Dalam Kalimat

var
huruf : char;
N : integer;

begin
N := 0;
writeln ( 'masukkan kalimat = ' ); read ( huruf );
while ( huruf <> '.' ) do
begin
if ( huruf <> ' ' ) then
begin N := N+1 end;
read ( huruf );
end;
write ( 'jumlah huruf = ',N );
end;
end.

Menghitung Jumlah 1 Huruf dalam kalimat


var
huruf : char;
jumlah : integer;

begin
jumlah := 0;
read ( 'masukkan kalimat = ' ); read ( huruf );
repeat
begin
if ( huruf = 'a' ) then jumlah := jumlah + 1;
read ( huruf );
end;
until ( huruf = '.' );
write ( 'jumlah uruf a = ',jumlah );

Baca Selengkapnya »

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 )

Baca Selengkapnya »

Pengulangan Repeat - Until

repeat - until = mengulang program sampai benar atau menulang jika salah

rumus :


contoh :

deklarasi
a = interger

deskripsi
a := 0
repeat
output ('halo')
a := a + 1
until ( a=5 )

penjelasan :
a = 0
mengulang 'halo' dan a = a+ 1 hingga/ sampai a=5

proses :
a =0
tampilkan ( 'halo' )
a = a + 1 = 0 + 1 = 1
a tidak sama dengan 5 ( mengulang )
tampilkan ( 'halo' )
a = a + 1 = 1 + 1 = 2
a tidak sama dengan 5 ( mengulang )
tampilkan ( 'halo' )
a = a + 1 = 2 + 1 = 3
a tidak sama dengan 5 ( mengulang )
tampilkan ( 'halo' )
a = a + 1 = 3 + 1 = 4
a tidak sama dengan 5 ( mengulang )
tampilkan ( 'halo' )
a = a + 1 = 4 + 1 = 5
a sama dengan 5 ( stop )

Baca Selengkapnya »

Pengulangan FOR

contoh :

var
a : integer ;

begin
for a := 1 to 5
writeln ( 'halo' )
end.

untuk memberikan no. urut menaik pada writeln ( 'halo' ) ubah menjadi writeln ( a,'.halo' )
untuk memberikan no. urut menurun ubah for a := 1 to 5 menjadi for 5 downto 1

Baca Selengkapnya »

menghitung luas

uses wincrt ;
var
P,L,luas : integer ;
begin
writeln ( 'panjang = ' ) ; read ( P ) ;
writeln ( 'lebar = ' ) ; read ( L ) ;
luas := P*L ;
write ( 'luas = ',luas ) ;
end.

Baca Selengkapnya »

Tukar Posisi

contoh
terdapat 2 gelas
gelas A berisi = air merah
gelas B berisi = air biru
dan isi kedua gelas tersebut harus ditukar
caranya dengan menambahkan gelas kosong yaitu gelas C

algoritma

uses wincrt;
Var
A, B, C : string ;
begin
write ( 'gelas A = ' ) ; readln ( A ) ;
write ( 'gelas B = ' ) ; readln ( B ) ;
C := A ;
A := B ;
B := C ;
writeln ( 'gelas A = ',A ) ;
write ( 'gelas B = ',B ) ;
end.

Baca Selengkapnya »

Tipe Data

1. bilangan bulat ( integer )
..... , -3 , -2 , -1 , 0 , 1 , 2 , 3 , .....

2. bilangan riil ( real )
... , 0 , 1/5 , 1/3 , 1 , 2 , 3 , ...

3. boolean ( biner )
0 dan 1

4. karakter ( char )
angka, huruf, dan simbol

5. string ( kata ) = tipe data bentukan
AA, kuda, AG, ...

Baca Selengkapnya »