soal IF dan Case 1-3

1.       Perhatikan algoritma berikut ini.

KAMUS

     A, B, C, T : integer

BEGIN ALGORITMA

    T ß 0

INPUT(A)

    T ß T + A

INPUT(B)

    T ß T + B

INPUT(C)

    T ß T + C

OUTPUT(T)

END ALGORITMA

Berapakah nilai T, jika nilai A,B,C berturut-turut diINPUTkan dengan nilai 7, 5 dan 2 ?



program no1;
uses crt;

var
        A,B,C,D,T : integer;
begin
 clrscr;
        writeln ('masukan nilai A:');
        readln(A);
        writeln('masukan nilai B:');
        readln(B);
        writeln('masukan nilai C');
        readln(C); 

        T := 0;
        T := T + A;
        T := T + B;
        T := T + C;

        writeln('maka nilai T adalah:',T);
        readln();
end.

nilai T = 14

2.     Perhatikan penggalan algoritma berikut ini.

A ß 4 ; B ß 3   

X ß A

X ß B mod X

B ß A

B ß X + B

OUTPUT(A, X, B)

Berapakah nilai A, X dan B ? 

program no2;

uses crt;

var

        a,b,x : integer;

begin

        clrscr;

        a := 4 ; b:= 3;

        x := a;

        x := b mod x;

        b := a;

        b := x + b;

        writeln('nilai a : ',4);

        writeln('nilai x : ',3);

        writeln('nilai b : ',7);

        readln();

        readln();

end.

nilai A=4 B=7 X=3

3.   Perhatikan penggalan algoritma dibawah ini:

Algoritma

     …….

IF (a = 10 and b = 5) THEN

          c <-- 156

ELSE

          c <-- 165

ENDIF

Jika ternyata variabel  a  diberikan INPUT 5, maka nilai variabel  c  adalah?

program no3;

 uses crt;

var

  A,B,C : integer;

begin

 clrscr;

  write('masukan nilai A: '); 

  readln(A);

  write('masukan nilai B: '); 

  readln(B);

  if  (A = 10) AND (B = 5)then

      C := 156

  else

      C := 165;

  writeln('maka nilai C adalah: ',C); readln();

end.