Biodata Siswa menggunakan Pascal Code Array

Uses crt;
label ulang;
const
nimsaya=12012708;
procedure judul;
begin
gotoxy(30,2);textcolor(5); Writeln('Created By Icewanto');
gotoxy(33,3); writeln('NIM: ',nimsaya);
writeln('');
textcolor(white);
gotoxy(11,5);writeln('+----------------------------------------------------+');
gotoxy(11,6);writeln('|                  BIO DATA MAHA SISWA               |');
gotoxy(11,7);writeln('|           SEKOLAH TINGGI TEKNOLOGINURUL JADID      |');
gotoxy(11,8);writeln('+----------------------------------------------------+');
end;

procedure isi;
begin
gotoxy(7,12);writeln('====+===========+===============+=============+==============+');
textbackground(3);
gotoxy(7,13);writeln('|NO | NIM       | NAMA          | ALAMAT      | UMUR         |');
textbackground(0);
gotoxy(7,14);writeln('====+===========+===============+=============+==============+');
end;
var
        ripit:char;
        nim   : array[1..10] of longint;
        nama  : array[1..10] of string[15];
        alamat: array[1..10] of string;
        umur  : array[1..10] of byte;
        jm,i,x: longint;
begin
ulang:
clrscr;
write('Masukan Jumlah Data yg Akan Di Inputkan :');readln(jm);
writeln;
        for i := 1 to jm do
begin
textbackground(blue);
textcolor(white);
writeln('Biodata ke-',i);
textcolor(white);
textbackground(0);
write(' nim    = ');readln(nim[i]);
write(' nama   = ');readln(nama[i]);
write(' alamat = ');readln(alamat[i]);
write(' umur   = ');readln(umur[i]);
writeln('');
end;


clrscr;
judul;
isi;
        for i :=1 to jm do
begin
textbackground(0);
textcolor(i);
gotoxy(7,14+i);   write('| ',i);
gotoxy(11,14+i);  write('|  ',nim[i]);
gotoxy(23,14+i);  write('|  ',nama[i]);
gotoxy(39,14+i);  write('|  ',alamat[i]);
gotoxy(53,14+i);  write('|  ',umur[i]);
gotoxy(67,14+i);  write(' |');



for x:=x to jm do
write('      ');
end;
textbackground(0);
textcolor(white);
gotoxy(7,15+i); writeln('====+===========+===============+=============+==============+');
readln;
begin
clrscr;
textcolor(white);
write('Apakah Anda ingin Mengulang Lagi?(y/t): ');
readln(ripit);
if (ripit ='y') or (ripit='Y') then goto ulang;
end;
end.

Menampilkan Bilangan Prima

uses crt;

var
b,i,x,sisa:integer;

begin
clrscr;
        write ('Masukan Batas Bilangan Prima yg akan ditampilkan: ');
        readln (b) ;

begin   writeln;
        writeln('2');
        for i:=3 to b do
begin
x:=1;
repeat
x:=x+1;
sisa:=i mod x;
until
(sisa=0) OR (x=i-1);
if sisa <> 0 then writeln (i);
end;
end;
readln;
end.

Kode Login

Karena Saya Dengar di kelas Putri ada yg membutuhkan Kode Login jadi saya share aja disini siapa tau masih dibutuhkan.
cara.a sisipkan saja kode dibawah ini tepat dibawah Begin
untuk Mengubah Passwor.a Ganti saja password "dbsok" pada kode sesuai keinginan anda ^_^
_______________________
repeat
clrscr;
Write('Masukan Password: ');
readln(pass);
if pass='BDSOK' then pass:='dbsok';{Untuk antisipasi jika user menggunakan Capslock}
until pass='dbsok';

Perulangan For Dan While

Perulangan Menampilkan Angka berurutan berbentuk Segitiga


uses crt;
var
i,m,j: Integer;
n: Char;
begin

n:= 'y';
while n = 'y' do {lama n=y maka akan teus mengulang}
begin
clrscr;
Write('Masukkan sembarang angka : ');
Readln(m);

for i:= 1 to m do
begin
for j:= i to m do
begin
Write(j,' ');

end;
Writeln;
end;
writeln;
write('Ingin melakukan lagi ? (y) untuk Mengulang: ');
Readln(n);
end

Bilangan Bulat

Kode Untuk Menampilkan Bilangan Bulat dimana Bilangan Bulat Berwarna Merah
___________________
uses crt;
var
i: integer;
begin
clrscr;
i:=0;
while i<20 do
begin
i:=i+1;
if i mod 2=0 then textcolor (red)
else textcolor(white);
writeln (i);
end;
readln;
end.

Kriteria Nilai

Untuk Menentukan Krieria Nilai Anda bisa Mengunakan Kode pascal Seperti Dibawah ini
___________________
uses crt;
var
i:integer;
begin
clrscr;
i:=16;
While i>1 do
begin
i:=i-1;
writeln(i);
end;
readln;
end.

Perulangan While

Berikut adalah Contoh Program Pascal Mengguakan While
untuk menampilkan angka 15 sampai 1
____________________________
uses crt;
var
i:integer;
begin
clrscr;
i:=16; {Memberikan Nilai Awal}
While i>1 do {Lama i lbih besar dari1 lakukan perintah dibawah.a}
begin {Memulai Perulangan}
i:=i-1;{kurangi 1 nilai agar dapat mencapai nilai 1 sa'at di ulang}
writeln(i); {Menampilkan Nilai [i] Jadi kluaran pertama adalah 15 karena i=i-1 atau 16-1}
end; {akhiri perulangan}
readln;
end.