Program Percabangan Proses

Assalamu'alaikum Wr Wb....


Contoh Soal Program Percabangan Proses menggunakan bahasa Pemrograman Delphi,,,

Soal : Diketahui STRING nama-nama hari dengan urutannya sebagai berikut :

'Minggu, Senin, Selasa, Rabu Kamis, Jumat, Sabtu'.

Buat Algoritma dan Programnya, Sehingga Urutaa nama-nama hari tersebut dicetak dengan urutan sebagai berikut :

' Minggu, Senin, Selasa, Rabu, Kamis, Jumat, Sabtu ".

Jawab :

Algoritma :

Algoritma nama : GOTO-Label

Label

    1,2,x,z,akhir_proses

begin

    write('Minggu')

    Goto Z

1 :

    write ('Selasa')

    write ('Rabu')

    Goto 2

X :

    write ('Jumat')

    wirte ('Sabtu')

    Goto Akhir

2 :

   write ('Kamis')

   Goto X

Z :

    write ('Senin')

    Goto 1

Akhir_Proses

End

Program Lengkap :

Program GOTO_Label;
Uses SysUtils;
Label
    1,2,x,z,akhir_proses;

begin

    write('Minggu');

    Goto Z;

1 :

    write ('Selasa');

    write ('Rabu');

    Goto 2;

X :

    write ('Jumat');

    wirte ('Sabtu');

    Goto Akhir;

2 :

   write ('Kamis');

   Goto X;

Z :

    write ('Senin');

    Goto 1;

Akhir_Proses:Readln;

End.

** Selamat Mencoba ** 
** Semoga Bermanfaat **