tugas 24

 Tugas 24

    Telusuri program dibawah ini:


ALGORITMA Cari_Maksimum
Kamus
     dat1, dat2, dat3, dat4, big : integer
BEGIN
      INPUT(dat1, dat2, dat3, dat4)
      IF ((dat1 >= dat2) and (dat1 >= dat3) and (dat1 >= dat4)) THEN
           big <-- dat1
      ELSE IF ((dat2 >= dat1) and (dat2 >= dat3) and (dat2 >= dat4))
           big <-- dat2
      ELSE IF ((dat3 >= dat1) and (dat3 >= dat2) and (dat3 >= dat4))
           big <-- dat3
      ELSE
           big <-- dat4
    END IF
    OUTPUT(big)
END
Jika pengguna memasukkan  12, 3, 4, dan 5, maka OUTPUTnya adalah?12
Dalam Bahasa Pascal:
uses crt;
var
        Data1:Integer;
        Data2:Integer;
        Data3:Integer;
        Data4:Integer;
        Max:Integer;
BEGIN
        CLRSCR;
        WRITELN('Masukan Data 1: ');
        READLN(Data1);
        WRITELN('Masukan Data 2: ');
        READLN(Data2);
        WRITELN('Masukan Data 3: ');
        READLN(Data3);
        WRITELN('Masukan Data 4: ');
        READLN(DAta4);
        Max:=Data1;
        If (Max < Data2) Then Max:= Data2
        Else If (Max<DATA3) then Max := Data3
        Else if (Max < Data4) Then Max := Data4;
        WRITELN('Angka Terbesar: ',Max);
        READLN();

End.