program tabel mahasiswa

program tabel;

uses crt;

const n=100;

type mhs = record

npm : string[15];

nama : string[20];

kod : string[10];

sem : byte;

nlai : char;

end;

var

tbl : array[1..n,1..5] of mhs;

pil : char;

i,j,a : byte;

tempnpm,tempnam,tempkod : string;

tempsem : byte;

tempnlai : char;

begin

clrscr;

i:=0;

writeln('DATA MAHASISWA !');

writeln;

repeat

i:=i+1;

writeln;

write('NPM : ');readln(tbl[i,1].npm);

write('Nama : ');readln(tbl[i,2].nama);

write('Kode : ');readln(tbl[i,3].kod);

write('Semester : ');readln(tbl[i,4].sem);

write('Nilai : ');readln(tbl[i,5].nlai);

writeln;

write('Anda ingin memasukkan data lagi (Y/N) ? ');readln(pil);

until (pil='n') or (pil='N');

writeln;

writeln('Tekan ENTER untuk melihat tabel mahasiswa!');

readln;

clrscr;

writeln;

writeln('|------------------------TABEL MAHASISWA---------------------|');

writeln('| |');

writeln('| NPM | NAMA | KODE | SEMESTER | NILAI |');

writeln('|------------------------------------------------------------|');

writeln;

a:=6;

for j:=1 to i do

begin

gotoxy(1,a);write('|');gotoxy(3,a);write(tbl[j,1].npm);gotoxy(13,a);

write('|');gotoxy(15,a);write(tbl[j,2].nama);

gotoxy(34,a);write('|');gotoxy(36,a);write(tbl[j,3].kod);

gotoxy(43,a);write('|');gotoxy(48,a);write(tbl[j,4].sem);

gotoxy(54,a);write('|');gotoxy(58,a);write(tbl[j,5].nlai);

gotoxy(62,a);writeln('|');

a:=a+1;

end;

writeln('| |');

writeln('|------------------------------------------------------------|');

readln;

end.

program romawi .

[ini yg romawi]

program romawi;
Uses Crt;

Const
Rom : array [1..13] of String =
('M','CM','D','CD','C','XC','L','XL','X','IX','V','IV','I');

Des : array [1..13] of integer =
(1000,900,500,400,100,90,50,40,10,9,5,4,1);

Var
Bil,i,Bil1 : Integer;
Roma : String;

Begin
clrscr;
Write('Masukkan Suatu Bilangan [1..3999] : ');
Readln(Bil);

Bil1 := Bil;
if (Bil > 0) and (Bil <>= Des[i]) do
Begin
Bil := Bil - Des[i];
Roma := Roma + Rom[i]
End;
End;

Write('Desimal ',Bil1,' Romawinya ',Roma)
end

else

Writeln('Tidak Diketahui Simbol Romawinya.....');

readkey;

End.

program segitiga pascal .

[ini program yg segitiga pascal]

program segpascal;
uses crt;
type A=array[1..20,1..20] of longint;

var
AA:A;
i,j,n:integer;

begin
clrscr;
AA[1,1]:=1;
write('banyak looping : ');readln(n);
for i:=1 to n do
begin
AA[i,1]:=1;
AA[i,i]:=1;
for j:=2 to i-1 do
AA[i,j]:=AA[i-1,j-1]+AA[i-1,j];
end;
for i:=1 to n do
begin
for j:=1 to i do
write(AA[i,j],' ');
writeln;
end;
readln;
end.