Program jendela bergerak

PROGRAM Window_Bergerak_dgn_delay;

USES CRT;

VAR i : INTEGER;

BEGIN

FOR i:=1 TO 15 DO

BEGIN

SOUND(i*100);

DELAY(100);

NOSOUND;

END;

TEXTBACKGROUND(black);

CLRSCR;

FOR i := 1 TO 9 DO

BEGIN

TEXTBACKGROUND(white);

WINDOW(42-i*4,10-i,38+i*4,15+i);

CLRSCR;

DELAY(100);

END;

TEXTCOLOR(15);

GOTOXY(28,2);WRITELN('c');

GOTOXY(8,3); WRITELN('3');

GOTOXY(28,4); WRITELN('A');

TEXTCOLOR(black);

GOTOXY(44,3); WRITELN('3');

GOTOXY(44,2); WRITELN('&');

GOTOXY(29,4); WRITELN('U');

TEXTCOLOR(red*25);

GOTOXY(30,3); WRITELN('B E L A J A R');

TEXTCOLOR(black);

GOTOXY(5,5); WRITE('c');

FOR i := 6 TO 64 DO

BEGIN

GOTOXY(i,5);WRITELN('');

END;

FOR i := 6 TO 20 DO

BEGIN

GOTOXY(5,i); WRITELN('3 ');

END;

GOTOXY(5,21); WRITELN(' ');

TEXTCOLOR(white);

GOTOXY(65,5); WRITE('U');

FOR i := 6 TO 65 DO

BEGIN

GOTOXY(i,21); WRITELN(' `);

END;

FOR i := 6 TO 20 DO

BEGIN

GOTOXY(65,i); WRITELN('3');

END;

GOTOXY(65,21); WRITELN('c');

TEXTCOLOR(yellow);

READLN;

END.

program deret_bilangan_prima;
uses wincrt;
var i,temp:longint;
    s, x, a, n : longint;
    jml:integer;
function fakt (t : longint) : longint;
{funtion fakt untuk mengecek banyaknya faktorial dari suatu bilangan}
begin
 temp := 0;
  for i := 1 to t do if t mod i = 0 then inc (temp);
  fakt:= temp;
end;
  begin
  clrscr;
  writeln ('Deret Bilangan Prima');
  writeln ('--------------------------------------------');
  write ('Jumlah Bilangan Yang Ditampilkan Sebanyak : ');
  repeat
  readln(x);{meminta uses memasukkan jumlah deret bilangan}
  until (x>=2);{input harus >=2}
  writeln;  writeln; writeln ('Deret Bilangan Prima : '); writeln ('');
  a := 1; s := 0;
  repeat
   if fakt (a) = 2 then{jika banyk faktoriaal dari suatu bilangan adl 2 maka}
     begin
       write (a,', '); {cetak bilangan yg memp 2 faktorial}
       jml:=jml+a; inc (s);{hitung jumlah dari deret bilangan}
     end;
     inc (a); until (s = x);
   writeln; writeln('');
   write('Jika dijumlahkan, hasilnya : ',jml);{cetak jumlah}
  end.

ARRAY PASCAL

Program Mencari_Bilangan_Prima_Dengan_Array;
Uses Crt;
Var
Prima : Array[1..100] of Integer;
i,j : Integer;
bil : Integer;
Begin
ClrScr;
For i := 2 to 100 Do
Begin
Prima[i]:=i;
For j:= 2 to i-1 Do
Begin
bil := (i mod j); {* i dibagi j dicek apakah 0*}
If bil = 0 then Prima[i]:=0; {*jika habis dibagi,berarti bkn prima*}
End;
If Prima[i] <> 0 Then Write(Prima[i],' '); {*cetak array yg prima*}
End;
Readln;
End.

Mencari bilangan Prima

Program Bilangan_Prima;

uses crt;

var a,b,c,d,e:longint;

procedure deret_prima(x,y,z:longint);

begin

writeln('2':7);

for x:=3 to z do

begin

for y:= 2 to x-1 do

begin

if x mod y = 0 then begin

d:=x ; end else begin e:=x; end;end;

if x=d then

begin

y:= x-1;

end else

writeln(e:7);

end;

end;

begin

clrscr;

write('bilangan prima sampai berapa? '); readln(c);

deret_prima(a,b,c);

readln;

end.