tugas 10

 Tugas 10

    Perhatikan algoritma berikut ini:


KAMUS
    Bilangan : integer
    Keterangan : string
BEGIN ALGORITMA
   INPUT(Bilangan)
   Keterangan ß “menu promosi”
   IF (Bilangan <> 4) THEN
        CASE  (Bilangan)
             1 : Keterangan ß “menu hemat”
             2 : Keterangan ß “menu paket”
             3 : Keterangan ß “menu gledheg”
        OTHERWISE : Keterangan ß “menu irit”
       END CASE
  ENDIF
  OUTPUT (Keterangan)
             END ALGORITMA
     Tentukan OUTPUT dari algoritma di atas, apabila variabel Bilangan diINPUTkan 4 ? Menu promosi
Dalam Bahasa Pascal:
 Menu Promosi
uses crt;
Var
        Bilangan :Integer;
        Keterangan:string;
BEGIN
        CLRSCR;
        WRITELN('Masukan Bilangan: ');
        READLN(Bilangan);
        Keterangan:= 'Menu Promosi';
        If( Bilangan <> 4) Then
                Case bilangan of
                        1:Keterangan := 'Menu Hemat';
                        2:Keterangan := 'Menu Paket';
                        3:Keterangan := 'Menu Gledheg';
                Otherwise Keterangan := 'Menu irit';
                End;
        WRITELN(Keterangan);
        READLN();

End.