TUGAS 5

 Tugas 5

Perhatikan algoritma berikut.
KAMUS
   A, B, C : integer
BEGIN ALGORITMA
   INPUT(A,B,C)
   IF (A > B)  THEN
       IF  (A > C) THEN
           OUTPUT(A)
       ELSE
           OUTPUT(C)
       ENDIF
   ELSE
     IF (B > C) THEN
         OUTPUT(B)
     ELSE
         OUTPUT(C)
     ENDIF
   ENDIF
END ALGORITMA

Apa OUTPUT yang dihasilkan, apabila nilai-nilai yang diINPUTkan ,  A = 3,  B = 6 dan C  = 4 ? 6
Bahasa Pascal:
uses crt;
var
        A:Integer;
        B:integer;
        C:Integer;
BEGIN
        CLRSCR;
        WRITELN('Masukan Nilai A: ');
        READLN(a);
        WRITELN('Masukan Nilai B: ');
        READLN(B);
        WRITELN('Masukan Nilai C: ');
        READLN(C);

        If (A>b) Then
                If (a > c) Then WRITELN(A)
                Else
                        WRITELN(C)
        Else
                If (B>C) Then WRITELN(B)
                Else
                        WRITELN(C);
        READLN();
End.