array 2dimensi

Program Data_mahasiswa;
uses wincrt;
var
   nama :array[1..10]of string[20];
   NPM:array[1..10]of string[20];
   makul:array[1..20]of string[30];
   i,j :integer;

begin
clrscr;
       write('Masukkan Jumlah Data Mahasiswa :'); readln(j);
   for i:=1 to j do

begin
       writeln('Data ke-',i);
       write('Nama Mahasiswa :'); readln(nama[i]);
       write('Masukkan NPM :'); readln(NPM[i]);
       write('makul :'); readln(makul[i]);
end;

clrscr;
       writeln('*******************************************************************************');
       writeln('No. |     Nama Mahasiswa        |         NPM         |         makul        |');
       writeln('*******************************************************************************');

   for i:= 1 to j do
begin
       writeln(i:1, nama[i]:20, NPM[i]:25, makul[i]:25);
end;

       writeln('*******************************************************************************');
readln;
end.

program penjualan dg discon10%

program mini_market;
uses wincrt;

var
i:integer;
kode_br:string;
nama_br:string;
harga_satuan:integer;
jumlah:byte;
disc:real;
bayar:real;
total:real;

begin
for i:=1 to 5 do
begin
writeln('####program jual####');
write('masukan kode br:');
readln (kode_br);
write('masukan nama br:');
readln(nama_br);
write('masukan harga satuan:');
readln(harga_satuan);
write('masukan jumlah:');
readln(jumlah);
total:=harga_satuan*jumlah;
bayar:=total-disc;
write('bayar:',bayar:4:0);
if total>=5000 then
disc:=0.1*total
else
disc:=0;
writeln('');
read
end;
end.

program penjualan+discon+hadiah

program mini_market;
uses wincrt;

var
i:integer;
kode_br:string;
nama_br:string;
harga_satuan:integer;
jumlah:byte;
disc:real;
bayar:real;
total:real;

begin
for i:=1 to 5 do
begin
writeln('####program jual####');
write('masukan kode br:');
readln (kode_br);
write('masukan nama br:');
readln(nama_br);
write('masukan harga satuan:');
readln(harga_satuan);
write('masukan jumlah:');
readln(jumlah);
total:=harga_satuan*jumlah;
if total>=5000 then
write('kode,a,mendapatkan buku:')
else
if total>3000 then
write('kode b mendapatkan pena:');
if total<1000 then
write('kode c tidak mendapat hadiah:');

bayar:=total-disc;
write('bayar:',bayar:4:0);
if total>=5000 then
disc:=0.1*total
else
disc:=0;
writeln('');
read;
end;


end.

program menghitung gaji dan tunjangan

PROGRAM Pengulangan;
uses wincrt;

var 
I : integer;
nama : string;
golongan : char;
tunjangan : real;
upah : integer ;
sex : string;
Total : real;



begin
for i:= 1 to 5 do
begin
write ('Masukan Nama :');
readln (nama);
write ('Masukan Golongan :');
readln (golongan);
Write ('Masukan jenis kelamin : ');
readln (sex);
begin
case golongan of
     'a':upah :=1000;
     'b':upah :=700;
     'c':upah :=500;

 else
      upah :=0;

end;

if sex='female'then
tunjangan :=0.1*upah

else if sex='male' then
tunjangan :=0.2*upah;

writeln ('tunjangan :',tunjangan :0:0);


Total:=upah+Tunjangan;
writeln ('Total Upah : ',Total:0:0);
writeln('');
writeln('======================');
end;
end;

end.

program penerimaan siswa baru

program penerimaan_siswa_baru;
uses wincrt;

var
i:integer;
nis,nama,alamat,belajar:string;
biaya:integer;
cicilan1:integer;
cicilan2:integer;
tunggakan:integer;
begin
for i:=1 to 10 do
begin
write('nis mahasiswa:');
readln(nis);
write('nama mahasiswa:');
readln(nama);
write('alamat mahasiswa:');
readln(alamat);
write('belajar:');
readln(belajar);
write('biaya belajar:');
readln(biaya);
write('cicilan 1:');
readln(cicilan1);
write('cicilan 2:');
readln(cicilan2);
write('tunggakan:');
readln(tunggakan);
writeln('.......................');
end;

end.

program data maha siswa dalam pascal

program data_mahasiswa;
uses wincrt;

var
nim,nama,alamat,jurusan:string;
umur:integer;
ip:real;
begin
for

begin
clrscr;
writeln('data maha siswa upb');
writeln('..........................:');
writeln;
write('nim mahasiswa:');
readln(nim);
write('nama mahasiswa:');
readln(nim);
write('alamat mahasiswa:');
readln(nim);
write('jurusan mahasiswa:');
readln(nim);
write('umur mahasiswa:');
readln(nim);
write('ip mahasiswa:');
readln(nim);
write;
write('..................');
readln;

end.

menghitung tingkatan nilai dalam turbo pascal

program _nilai;
uses wincrt;

var
i:integer;
nilai:byte;
begin
for i:= 1 to 4 do

begin
writeln('menghitung tingkatan nilai');
writeln('=========================');
write('masukan nilai(0...10):');
readln(nilai);
writeln;
if nilai<9then
if nilai <7 then
if nilai <5 then
if nilai <3 then
writeln('waduh!! nilai nya kacau')
else
writeln('perlu kerja keras nih!!!!:')
else
writeln('nilainya lumayan.......!!!')
else
writeln('nilainya cukup baik')
else
writeln('nah ni baru nilai the best!!!');
readln;
end;

end.