skip to main | skip to sidebar

Forum Symbian S60V2

Wednesday, December 18, 2013

Program Pendaftaran Mahasiswa Baru

Diposkan oleh Unknown di 12:32 AM
program mhs;
uses wincrt;
var no,nama,tempat,tgl,bln,thn,seko : string;
biaya_pend,biaya_ako,total:real;
tanggal,tahun,bulan,asal:integer;



begin
write('No                       :'); readln(no);
write('nama                     :'); readln(nama);
write('Asal Sekolah             :'); readln(seko); writeln;
write('tempat, tgl lahir        :'); readln(tempat);
gotoxy(35,5);read(tanggal);
if tanggal > 30 then
begin
write('tanggal yang anda masukkan salah!');
readkey; donewincrt;
end;

gotoxy(38,5);read(bulan);
if bulan > 12 then
begin
write('bulan yang anda masukkan salah!');
readkey; donewincrt;
end;

gotoxy(41,5);read(tahun);
if tahun > 1996 then
begin
write('tahun yang anda masukkan salah!');
readkey; donewincrt;
end;
write('Biaya Pendidikan         :'); readln(biaya_pend);
write('Biaya Akomodasi          :'); readln(biaya_ako);
total:=biaya_pend+biaya_ako;
writeln('total biaya            :', total:0:00);

end.                  
Email This BlogThis! Share to X Share to Facebook

1 komentar:

blogjob said...

salam kenal
saya wijaya dari cirebon jurusan teknik informatika, mau belajar ni ttg informatika secara luas, kebtulan q masi smster 1

December 5, 2014 at 9:30 PM

Post a Comment

apabila ada kesalah link ataw post yang kuarng bagus mohon kirim opininya ke email adeutomo22@gmail,com .makasih

Older Post Home
Subscribe to: Post Comments (Atom)

Teman

Teman
Mawardiansyah mega

Teman

Teman
Risal Agustian

Teman

Teman
Idham H Nurulloh

Teman

Teman
Pajar Purnama

sri

sri

dosen kita

dosen kita

hisam

hisam

Pages

  • Home

TEMPAT NONGKRONG

Pengunjung

eXTReMe Tracker

DAFTAR POSTING

  • ▼  2013 (12)
    • ▼  December (8)
      • Program Pendaftaran Mahasiswa Baru
      • MANFAAT BELAJAR TURBO PASCAL Dah lama gak ng...
      • Membuat Tabel memakai HTML
      • PROGRAM PENJUALAN BARANG KEL 3 PASCAL
      • PROGRAM PENJUALAN BARANG KEL 2 PASCAL
      • PROGRAM PENJUALAN BARANG KEL 1 PASCAL
      • SADAP SMS VIA SC XL
      • gratis nelfon xl terbaru (SELAMA 3 HARI)
    • ►  November (1)
    • ►  May (1)
    • ►  April (1)
    • ►  March (1)
  • ►  2012 (9)
    • ►  December (1)
    • ►  September (1)
    • ►  August (7)

Followers

 

© 2010 My Web Blog
designed by anonymous22 | Blogger anonymous22 | STMIK TASIKMALAYA