Algoritma pseudocode untuk array random bilangan genap dan ganjil
A:ARRAY[1..20] OF INTEGER
I,J:INTEGER
RANDOMIZE
FOR I=1 TO 20 DO
A[I]=RANDOM(50)
(A[I]:5)
J=1
WHILE J <= 20 DO
BEGIN
IF A[J] > 10 THEN
TTLGNP=0
TTLGJL=0
IF A[J] MOD 2 = 0 THEN
TTLGNP=TTLGNP+1
ELSE
TTLGJL=TTLGJL+1
J=J+1
ENDWHILE
Setelah kita membuat algoritma pseudocode untuk array random total bilangan genap dan bilangan ganjil, sekarang kita implementasikan ke bahasa pemrograman, khususnya bahasa pemrograman pascal, Anda bisa menggunakan software pascal Dev-pascal 1.9.2 Atau Turbo pascal 7 Techapple.Net
Hasil compiler menggunakan bahasa pemrograman pascal
Langsung saja, ini dia kode program untuk array random total bilangan genap dan bilangan ganjil, bisa langsung di copy paste ke bahasa pemrograman pascalnya
PROGRAM TEST1;
USES CRT;
VAR
A:ARRAY[1..20] OF INTEGER;
I,J,TTLGNP,TTLGJL:INTEGER;
BEGIN
CLRSCR;
TEXTCOLOR(GREEN);
RANDOMIZE;
WRITELN;
WRITELN('========MENCARI TOTAL BILANGAN GENAP DAN GANJIL ARRAY========');
WRITELN;
WRITELN(' CREATED BY: RICHARD NAINGGOLAN ');
WRITELN;
FOR I:=1 TO 20 DO
BEGIN
A[I]:=RANDOM(50);
WRITE(A[I]:3)
END;
WRITELN;
WRITELN;
J:=1;
TTLGNP:=0;
TTLGJL:=0;
WHILE J <= 20 DO
BEGIN
IF A[J] > 10 THEN
BEGIN
IF A[J] MOD 2 = 0 THEN
TTLGNP:=TTLGNP+1
ELSE
TTLGJL:=TTLGJL+1;
END;
J:=J+1;
END;
WRITELN('BANYAK BILANGAN GENAP = ',TTLGNP);
WRITELN;
WRITELN('BANYAK BILANGAN GANJIL = ',TTLGJL);
READKEY;
END.
Sekian artikel tentang algoritma pseudocode untuk array random total bilangan genap, bilangan ganjil dan kode programnya dibahasa pemrograman pascal, semoga bermanfaat,jangan lupa koment :)