Jumat, 27 Desember 2013

program SPP

  balik lagi agan2 kali ini saya bakalan share program pascal nih kali ini tentang spp langsung aja yah nih 


program bayar_spp;
uses wincrt;
var
nomor, tanggal, bulan, tahun : integer;
nama, tempat : string;
bspp, biaya, bayar, sisa : real;
procedure isi;
begin
clrscr;
write ('Nomor                  : '); readln (nomor);
write ('Nama                    : '); readln (nama);
write ('Tempat lahir         : '); read (tempat);
write ('Tanggal lahir        : '); read (tanggal, bulan, tahun);
end;
begin
isi;
if tanggal > 31  then
begin
writeln ('Format tanggal salah!');
readln;
isi;
end;
if bulan > 12 then
begin
writeln ('Format bulan salah!');
readln;
isi;
end;
if (tahun < 1994) and (tahun > 1998) then
begin
writeln ('Format tahun salah!');
readln;
isi;
end;
write ('Bayar SPP/bulan      : '); readln (bspp);
writeln ('Besar biaya          : ', bspp:0:0);
write ('Bayar                : '); readln (bayar);
sisa:=(bayar)-(bspp);
write ('Sisa                 :', sisa:0:0);
end.


out putnya : 

Senin, 02 Desember 2013

Programan Aritmatika Di Pascal



Selamat Siang agan2 mudah mudahan gak bosen yah liat postingan postingan saya
Kali ini ane mau share tentang pemograman nih yg judulnya pemograman pascal
Yaitu tentang program aritmetika nya J
Langsung aja yah hehe

 



Silahkan agan2 tulisin source kode di atas yah
Nih ane liatin Screen shotnya

 


Ampe lupa flowchart nya juga nih gan