TUGAS 7

 Tugas 7


     KAMUS
    N, R, B : integer
  BEGIN ALGORITMA
    INPUT(N); INPUT(B)
    IF (N < 80) THEN
       R ß B + 4 * 2 + N / 4 – B + 1
    ELSE IF (N < 70) THEN
       R ß B + 5 * 3 + N / 4 – B + 2
    ELSE IF (N < 60) THEN
       R ß B + 6 * 4 + N / 4 – B + 3
    ELSE
       IF (N < 40) THEN
          R ß B + 7 * 5 + N / 4 – B + 4
       ELSE
          R ß B + 8 * 6 + N / 4 – B + 5
       ENDIF
    ENDIF
    OUTPUT(R)
  END ALGORITMA

 Berapa nilai R yang dihasilkan, apabila nilai B = 3 dan N = 60 ? 9
Bahasa Pascal:
uses crt;
Var
        N:Integer;
        R:Integer;
        B:Integer;
BEGIN
        CLRSCR;
        WRITELN('Masukan Nilai N: ');
        READLN(N);
        WRITELN('Masukan Nilai B: ');
        READLN(B);
        If (N<80) Then R:= B + 4*2+N div 4-B+1
        Else If (N<70) Then R := B+ 5*3 + N div 4 - B + 2
        Else if (N<60) Then R := B + 6 * 4 + N div 4 - B + 3
        Else
                If(N<40) Then R := B+ 7 * 5 + N div 4 - B + 4
                Else R:= B+8 * 6 + N div 4 - B + 5;
        WRITELN('Nilai R: ',R);
        READLN();
End.