PROGRAM PASCAL MAHASISWA BARU

1. LISTING PROGRAM MAHASISWA BARU

program mahasiswa_baru;
uses wincrt;
type  mhs  = record
      no : string [4] ;
      Nm  :string [30];
      asal : string [20] ;
      tmp : string [20];
      d,m,y: integer;
      by, gd,tot: real;
end;
var data:mhs;
begin
with data do
     begin
     writeln('Pendaftaran Mahasiswa Baru');
     writeln('--------------------------');
     write('Masukkan Nomor               :'); readln(no);
     write('Masukkan Nama                :'); readln(nm);
     writeln('Contoh Format Tanggal [12 12 1994] Gunakan spasi');
     write  ('Tanggal Lahir [DD MM YYYY] : '); readln(d,m,y);

     case m of
     1,3,5,7,8,10,12:begin
                       if (d>31) then
                            writeln('Tanggal salah')
                       else
                           writeln('Contoh Format Tanggal [12 12 1994] Gunakan spasi');
     write  ('Tanggal Lahir [DD MM YYYY] : '); readln(d,m,y);
                  end;

     4,6,9,11:begin
                   if (d>30) then
                      writeln('Tanggal salah')
                   else
                      writeln('Contoh Format Tanggal [12 12 1994] Gunakan spasi');
     write  ('Tanggal Lahir [DD MM YYYY] : '); readln(d,m,y);
              end;

     2:begin
            if (y mod 4=0) then
            begin
                 if (d>29) then
                 writeln('Tanggal salah')
                 else
                writeln('Contoh Format Tanggal [12 12 1994] Gunakan spasi');
     write  ('Tanggal Lahir [DD MM YYYY] : '); readln(d,m,y);
                 end
            else
            begin
            if (d>28) then
             writeln('Tanggal salah')
            else
             writeln('Contoh Format Tanggal [12 12 1994] Gunakan spasi');
     write  ('Tanggal Lahir [DD MM YYYY] : '); readln(d,m,y);
             end;
    
     write('Asal Sekolah                 :'); readln(asal);
     write('Biaya Pendaftaran            :'); readln(by);
     write('Uang Gedung                  :'); readln(gd);

     tot:=by+gd;
     writeln('Total                        :',tot:0:0);
     end;
    end;
     writeln;
     writeln;
     writeln('        Laporan           ');
     writeln('--------------------------');
     writeln('Masukkan Nomor               :',data.no);
     writeln('Masukkan Nama                :',data.nm);
     writeln('Tanggal Lahir                :',data.d,m,y);
     writeln('Asal Sekolah                 :',data.asal);
     writeln('Biaya Pendaftaran            :',data.by:0:0);
     writeln('Uang Gedung                  :',data.gd:0:0);
     writeln('Total                        :',data.tot:0:0);
end;
end.

2. PRINT SCREEN PROGRAM MAHASISWA BARU

LISTING PROGRAM HITUNG MATEMATIKA DENGAN PROCEDURE

LISTING PROGRAM HITUNG MATEMATIKA DENGAN PROCEDURE

program hitungan_matematika;

uses wincrt;

var

menu : integer;

ulang : char;

a,t,h : real;

p,l,v:real;

s,j:real;

al,tg,lu:real;

Cara Membuat Tabel Sederhana Dengan HTML

Tabel merupakan sebuah kotak yang terdiri atas baris (row) – kolom (Column). Untuk membuat tabel, kita dapat menggunakan perintah tag <table> dan menutupnya dengan tag </table>. Kita juga bisa menambahkan atribut lain di tag <table> pembuka. Misalnya menetukan border, warna dan sebagainya.
Didalam tag <table> ada beberapa tag lain yang perlu kita pahami, yaitu :

Soal Dan Jawaban Struktur Data

Nama : Fia Vauziah Putri
Kelas : A / SI / Teknik Informatika

1.   Struktur pertama dalam pascal adalah.....
a. Char;
b. String
c. End.
d. Writeln
e. Uses Crt;
Alasan : Karena Keyword uses digunakan untuk memanggil unit library pascal dan Crt untuk mengenali sistem operasi yang kita gunakan.