tugas 20

 Tugas 20

    Diberikan potongan algoritma sbb :

INPUT(j,m,d)
IF d>0 THEN
   d ß d - 1
ELSE                                  
   d ß 59
   IF m>0 THEN
      m ß m – 1 
   ELSE
      m ß 59
      j ß j - 1
   ENDIF
ENDIF
OUTPUT(j,m,d)
Jika INPUT(j,m,d), dimasukkan data  9, 0  dan 0, maka tampilan akhir dari OUTPUT(j,m,d) adalah J:8 ,M:59,D:59
Dalam Bahasa Pascal:
uses crt;
var
        J:Integer;
        M:Integer;
        D:Integer;
        Hasil:Integer;
BEGIN
        CLRSCR;
        WRITELN('Masukan Nilai J: ');
        READLN(J);
        WRITELN('Masukan Nilai M: ');
        READLN(M);
        WRITELN('Masukan Nilai D: ');
        READLN(D);

        If (D>0) Then d := d - 1
        else
                D:=59;
                If (M>0) Then M:= m-1
                Else M := 59 ;
                     J := J-1;
        WRITELN('Nilai Akhir J: ',J);
        WRITELN('Nilai Akhir M: ',M);
        WRITELN('Nilai Akhir D: ',D);
        READLN();

End.