Program Mengurutkan Data dan Melihat data Duplikasi dengan Pascal

USES CRT;

VAR X:ARRAY[1..1000] OF INTEGER;

N,I,J,MAX,MIN,C,f : INTEGER;

BEGIN CLRSCR;

WRITE('BANYAK DATA : ');READLN(N);randomize;

FOR I:=1 TO N DO BEGIN

X[I]:=RANDOM(100)+1;

WRITE(X[I],' ');

IF I MOD 10=0 THEN WRITELN;

END;

WRITELN;

FOR I:=1 TO N-1 DO

FOR J:=I+1 TO N DO

IF X[I]>X[J] THEN BEGIN

C:=X[I];X[I]:=X[J];X[J]:=C;END;

FOR I:=1 TO N DO begin

WRITE(X[I],' ');

IF I MOD 15=0 THEN WRITELN;

end;

writeln;x[n+1]:=x[n]+1;

WRITELN('DATA DUPLIKASI :');

f:=1;max:=0;

FOR I:=1 TO N DO

IF X[I]=X[i+1] THEN inc(f) else begin

WRITE(X[I]:2,' ',f,'|');

if f>max then max:=f;

f:=1;inc(j);

IF j MOD 10=0 THEN WRITELN;

end;

writeln;

READLN;

END.

Semoga bermanfaat :)

Kasih jempol atau komentar ya :D

Jangan lupa kunjungi Facebook ku ya :D