Posts

Showing posts from December, 2013

Contoh Membuat program Mahasiswa baru Dengan Pascal

Image
                 Membuat program untuk pendataan mahasiswa baru dengan pascal, silahkan simak contoh listingnya : program m_baru; uses wincrt; var nm,as,t:string; d,m,y:integer; no:integer; tot,bp,ug:longint; begin writeln(' PROGRAM PENDATAAN MAHASISWA BARU '); writeln('=================================='); writeln(' NPM  : 06120166'); writeln(' Nama : Sumiarsih Umi Kulsum'); writeln; writeln('=================================='); 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;

Membuat Program Perhitungan Matematik Menggunakan Prosedure dan IF Dalam Pascal

Image
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;