tugas 27

 Tugas 27

    Diberikan potongan algoritma sbb :


IF d>0 THEN
                d <-- d + 1
ELSE
                d <-- 59
                IF (m < 0) THEN
                                m <-- m + 1 
                ELSE
                                m <-- 59
                                j <-- j + 1
                ENDIF
END IF
OUTPUT(j+m-d)

Jika secara berurutan nilai j, m dan d adalah 9, 0, dan 0,
maka tampilan akhir kode program diatas adalah?10
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;
        Hasil:=J+m-d;
        WRITELN('HasilL: ',Hasil);
        READLN();

END.