TUGAS 8

 Tugas 8


INPUT(M, N, P)
IF (P < 20) THEN
   M ß M * 2
ELSE
  IF (N < 30) THEN
     N ß N * 3
  ELSE
    IF (M < 40)  THEN
       P ß P * 4
    ELSE
       M ß 0
    ENDIF
  ENDIF
ENDIF
OUTPUT(M, N, P)
Tentukan OUTPUT yang dihasilkan, jika nilai awal yang diINPUTkan untuk M = 40, N = 30, dan P = 20.? M:0,n:30,P:20
Bahasa Pascal:
uses crt;
Var
        M:Integer;
        N:Integer;
        P:Integer;
BEGIN
        CLRSCR;
        WRITELN('Masukan Nilai M: ');
        READLN(M);
        WRITELN('Masukan Nilai N: ');
        READLN(N);
        WRITELN('Masukan Nilai P: ');
        READLN(P);
        If (P<20) Then M := M * 2
        Else
                If(N<30) Then N:= N * 3
                Else
                        If(M<40) Then P:= P*4
                        Else
                                M:= 0;
        WRITELN('Nilai Akhir M: ',M);
        WRITELN('Nilai Akhir N: ',N);
        WRITELN('Nilai Akhir P: ',P);
        READLN();