Rabu, 01 Oktober 2014

tugas 25

 Tugas 25

    Perhatikan penggalan algoritma dibawah ini:

     …….
     IF (a = 10 and b = 5) THEN
          c <-- 156
     ELSE
          c <-- 165
     END IF
   
Jika ternyata variabel  a  diberikan INPUT  5, maka nilai variabel  c  adalah?165
Dalam Bahasa Pascal
uses crt;
Var
        A:Integer;
        B:Integer;
        C:Integer;
BEGIN
        CLRSCR;
        WRITELN('Masukan Nilai A: ');
        READLN(a);
        WRITELN('Masukan Nilai B: ');
        READLN(b);
        If (a=10) and (B=5) Then C:= 156
        Else
                C:= 165;
        WRITELN('Nilai C adalah ',c);
        READLN();

End.

Tidak ada komentar:

Posting Komentar