Selasa, 17 Desember 2013



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.                  

Kamis, 12 Desember 2013

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