Tugas Cafe DDP T_T

SEBELUMNYA DOWNLOAD DULU PROGRAMNYA

uses crt;
var nama,sandi,mkn,mnm:string;
jmkn,jmnm:integer;
hmkn,hmnm,total:real;
begin
clrscr;
write('Masukkan Username : ');readln(nama);
write('Masukkan Password : ');readln(sandi);
if (nama='admin') and (sandi='admin') then
begin
clrscr;
writeln('SELAMAT DATANG DI CAFE CERIA');
write('Masukkan nama makanan : ');readln(mkn);
write('Masukkan jumlah porsi : ');readln(jmkn);
write('Harga per porsi : ');readln(hmkn);
write('Masukkan nama minuman : ');readln(mnm);
write('Masukkan jumlah : ');readln(jmnm);
write('Harga per porsi : ');readln(hmnm);
total:=jmkn*hmkn+jmnm*hmnm;
readkey;
clrscr;
writeln('TAGIHAN :');
writeln('Makanan : ',mkn);
writeln('Jumlah : ',jmkn,' porsi');
writeln('Harga : ',hmkn:0:2);
writeln('Minuman : ',mnm);
writeln('Jumlah : ',jmnm,' gelas');
writeln('Harga : ',hmnm:0:2);
writeln('TOTAL BAYAR : ',total:0:2);
readkey;
end;
end.

Tugas Asdos..^_T

Input Data Mahasiswa

Link Download Program nya

Uses Crt;
Label Return;
Var i,SEL,sks,nilai,n,totalsks: Integer;
jwbn:char;
nama,alamat,nim,makul:string;
harga,total:real;
Begin
clrscr;
writeln('Input Data Mahasiswa : ');
write('NIM : ');readln(nim);
write('Nama : ');readln(nama);
write('Alamat : ');readln(alamat);
readkey;
clrscr;
repeat
clrscr;
nilai:=0;
write('Nama Makul : ');readln(makul);
write('Beban SKS : ');readln(sks);
totalsks:=totalsks+sks;
total:=sks*95000;
harga:=harga+total;
write(' Ulang Lagi ? (Y/T) : ');readln(Jwbn);
until upcase(Jwbn)='T';
Return:
Clrscr;
writeln('MENU : ');
Writeln('1.Cetak Tagihan');
WRITELN('2.Cetak Data Mahasiswa');
WRITELN('3.Keluar');
Writeln('Inputkan Pilihan :');
Readln(SEL);
If SEL = 1 then
Begin
writeln('Jumlah SKS : ',totalsks);
writeln('Total Bayar (95000/sks) : ',harga:0:2);
readkey;
Goto Return;
End;
If SEL = 2 then
Begin
writeln('Nim : ',nim);
writeln('Nama : ',nama);
writeln('Alamat : ',alamat);
readkey;
Goto Return;
End;
If SEL = 3 then
Begin
Halt;
End;
End.

Sample Program

Downdload!!!!
Source Code
Program

For to do in Pascal

Program Segitiga Angka dan Menghitung rata-rata dalam Pascal

Source Code,,udah beda ni gan ama program buatan ane...ini dasar nya ja gan......GOOD LUCK..\m/

uses crt;
var a,b,c,d,e,x,f: integer;
nilai,total,rata:real;
jwbn:char;
begin
repeat
clrscr;
write('Masukkan tinggi = ');
readln(x);
writeln();
begin
for a:= x downto 1 do
begin
for b:= 1 to a do
write(a*b:1);
writeln;
end;
end;
readkey;
clrscr;
begin
total:=0;
write ('Masukkan Banyak Angka = ');readln(f);
for d :=1 to f do
begin
write(' >> Masukkan Angka ke-',d,' = ');readln(nilai);
total:=total+nilai;
end;
rata:=total/f;
writeln(' ---------------------------- +');
writeln(' :: Jumlah Semua Angka = ',total:0:0);
writeln(' :: Rata-rata = ',rata:1:2);
end;
writeln;
writeln;
write(' Ulang Lagi ? (y/t) : ');readln(Jwbn);
until (Jwbn)='t';
begin
clrscr;
end;
end.

Download dan Test Program nya!!!

TUGAS

Download Tugas Agama Sejarah Perkembangan Islam