PASCAL

1.  Perhatikan program Pascal berikut :

1:   Uses crt;

2:   Var i, angka : integer;

3:

4:   Begin

5:     Clrscr;

6:

7:     angka:=20;

8:  

9:     For i:=1 to angka do

10:    Begin

11:      If (i mod 4=0) then

12:        Write(‘*’)

13:          Else

14:        Write(i);          

15:    End;

16:

17:    Readln;

18:  End.

(a) Apa output program di atas? 123*567*91011*131415*171819*

(b) Jika baris program ke-11 diganti dengan If(i mod 4=0)OR(i mod 5=0) then,

  maka apa output program? 123**67*9*11*1314**171819*

2.  Buatlah sebuah deret matematika sampai digit 50 seperti berikut :

    1 2 3 * + 6 7 * 9 + 11 * 13 14 + * 17 18 19 @ 21 22 23 * + 26 27 * 29 + dst…..

Keterangan :

Simbol * untuk semua bilangan dengan kelipatan 4

Simbol + untuk semua bilangan dengan kelipatan 5

Simbol @ untuk semua bilangan dengan kelipatan 4 DAN 5

uses wincrt;

             var i,angka : integer ;

      begin

 clrscr;

 angka:=50;

 for i:=1 to angka do

   begin

If(i mod 4=0) and (i mod 5=0) then

write('@')

else

if (i mod 4=0) then

write('*')

else

if (i mod 5=0) then

write('+')

else

write(i);

  end;

readln;

       end.