Tugas Stuktur Data .
Membuat ProgramPendaftaran Mahasiswa Baru Menggunakan Pascal.

 

program PMB;

uses wincrt;

var

nm,as,t:string;

d,m,y:integer;

no:integer;

tot,bp,ug:longint;

begin

write (' Nomor             : '); readln (no);

write (' Nama              : '); readln (nm);

write (' Tempat Lahir      : '); readln(t);

write (' Tanggal lahir     : '); readln (d,m,y);

 case m of

     1,3,5,7,8,10,12:begin

                       if (d>31) then

                            begin

                            writeln('Tanggal salah');

                            readkey;

                            donewincrt;

                  end;

                  end;

     4,6,9,11:begin

                   if (d>30) then

                      begin

                      writeln('Tanggal salah');

                      readkey;

                      donewincrt;

                  end;

              end;

2:begin

            if (y mod 4=0) then

            begin

                 if (d>29) then

                 begin

                      writeln('Tanggal salah');

                      readkey;

                      donewincrt;

                  end

            else

            begin

            if (d>28) then

             writeln('Tanggal salah')

             end;

       end;

     END;

     end;

     if ( m > 12) then

        begin

             writeln(' Bulan salah!');

             readkey;

             donewincrt;

        end

     else if (y >= 1995) then

            begin

            writeln('Tahun salah!');

            readkey;

            donewincrt;

     end;

write (' Asal sekolah      : ');readln (as);

write (' Biaya pendaftaran : ');readln (bp);

write (' Uang gedung       : ');readln (ug);

writeln;

tot:=(bp+ug);

writeln ('total              : ',tot)

end.                  

1.      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;

procedure luas_segitiga;

begin

     repeat

     clrscr;

     writeln ('Menghitung Luas Segitiga');

     write ('Masukan Nilai Alas  : ');readln(a);

     write ('Masukan Nilai Tinggi :');readln(t);

     writeln ('Rumus : a*t/2');

     h:=a*t/2;

     writeln ('Luas Segitiga Adalah :',h:0:0);

     write (' ulang lagi[y/n]?'); readln (ulang);

     until upcase (ulang) <>'Y';

end;

procedure volume_balok;

begin

     repeat

     clrscr;

     writeln ('Menghitung Volume Balok ');

     write ('Masukan Nilai Panjang :');readln (p);

     write ('Masukan Nilai Tinggi  :');readln(l);

     write ('Masukan Nilai Lebar   :');readln(t);

     writeln ('Rumus : p*l*t');

     v :=p*l*t;

     writeln ('Volume Balok adalah :',v:0:0);

     write (' ulang lagi[y/n]?'); readln (ulang);

     until upcase (ulang) <>'Y';

end;

procedure volume_kubus;

begin

     repeat

     clrscr;

     writeln ('Menghitung Volume kubus ');

     write ('Masukan Nilai sisi :');readln (s);

     writeln ('Rumus : s*s*s');

     j:=s*s*s;

     writeln ('Volume kubus adalah :',j:0:0);

     write (' ulang lagi[y/n]?'); readln (ulang);

     until upcase (ulang) <>'Y';

end;

procedure luas_jajar_genjang;

begin

     repeat

     clrscr;

     writeln ('Menghitung luas jajar genjang ');

     write ('Masukan Nilai alas :');readln (al);                                                     

     write ('Masukan Nilai Tinggi  :');readln(tg);

     writeln ('Rumus : a*t');

    lu:=al*tg;

     writeln ('jadi luas jajar genjang adalah :',lu:0:0);

     write (' ulang lagi[y/n]?'); readln (ulang);

     until upcase (ulang) <>'Y';

end;

 procedure menu_utama;

 begin

      clrscr;

      writeln ('Menu Utama');

      writeln ('1. Luas Segitiga ');

      writeln ('2. Volume Balok');

      writeln ('3. volume kubus');

      writeln ('4. luas jajar genjang ');

      writeln ('5. keluar');

      writeln;

      write ('Pilih Menu :');readln(menu);

      case menu of

      1: begin

              luas_segitiga;

              menu_utama;

         end;

      2:begin

             volume_balok;

             menu_utama;

        end;

      3:begin

             volume_kubus;

             menu_utama;

        end;

      4: begin

              luas_jajar_genjang;

              menu_utama;

        end;

      5:donewincrt;

      end;

 end;

 begin

 clrscr;

 menu_utama;

 end.

1.      Flow Chart Program