DreamCreateFuture
Jumat, 04 September 2015
Kamis, 11 Desember 2014
Tentang Algoritma Dan Pemgrograman
setiap belajar algoritma itu dosen yang mengajar kita selalu menceritakan keburukannya yaitu membaca buku dan menceritakan tentang kisah kisah orang yang besar di dunia . dosen saya adalah orang yang suka membuang waktunya untuk membaca kisah kisah orang yang besar di dunia. pertama belajar algoritma dan free pascal saya sangat tidak mengerti dan setiap selesai pelajaran itu dosennya selalu memberi tugas yang yang sulit dan banyak . saya sangat tidak mengerti apa itu Algorima Dan Pemgrogram, bukan karena logika saya lemah tapi saya tidak mengerti bagaimana konsepnya . awal awal kerja tugas dari dosen saya itu, saya cuma foto program teman saya dan mengodingnya di laptopku dengan movie maker dan upload ke youtube dan blogger. tapi akhirnya saya bisa sendiri sekarang bahkan tugas besar dari asprak saya berhasil mengerjakannya sendiri . ternyata belajar Algoritma itu menyenangkan dan bisa membuat kita bangga saat program kita jadi. karena semua materi telah rangkum jadi kami tidak bisa belajar algoritma lagi. dan saya masih ingat kata kata terakhir dari dosen saya : " tetaplah merasa lapar, jangan pernah merasa sudah bisa, tetaplah merasa bodo maka anda akan terus berusaha mengetahui apa yang anda belum ketahui ". TO WIN SOME OR LEARN SOME. Terima Kasih Pak Awan Rimbawan
program Bank
program perbankan dalam pascal
membuat transaksi perbankan sederhana, Tabung, tarik dan transfer dengan menggunakan procedure, pada menu awal ditampilkan 5 pilihan menu
1. cek saldo
2. tabung
3. tarik
4. transfer
5. keluar
saldo anda sebesar ....
uses crt;
var
saldo,tabung,tarik,transfer,n : longint;
pil : integer;
procedure pceksaldo();
begin
randomize();
saldo := random(10000000);
n := 100000;
writeln('saldo anda sebesar :Rp. ',saldo);
end;
procedure ptabung(tabung:longint);
begin
writeln('saldo awal anda sebesar :Rp. ',saldo);
writeln('tabungan anda sebesar :Rp. ',tabung);
saldo := saldo + tabung;
writeln('-------------------------------------------- + ');
writeln('saldo akhir anda sebesar :Rp. ',saldo);
end;
procedure ptarik(tarik:longint);
begin
writeln('saldo awal anda sebesar :Rp. ',saldo);
writeln('tarikan anda sebesar :Rp. ',tarik);
if ((saldo-tarik)>=n) then
begin
saldo := saldo - tarik;
writeln('---------------------------------------------- - ');
writeln('saldo akhir anda sebesar :Rp. ',saldo);
end
else
begin
writeln('saldo anda tidak mencukupi');
end;
end;
procedure ptransfer(transfer:longint);
begin
writeln('saldo awal anda sebesar :Rp. ',saldo);
writeln('transfer sebesar :RP. ',transfer);
if ((saldo-transfer)>=n) then
begin
saldo := saldo - transfer;
writeln('---------------------------------------------- - ');
writeln('saldo akhir anda sebesar :Rp. ',saldo);
end
else
begin
writeln('saldo anda tidak cukup untuk ditransfer');
end;
end;
begin
clrscr;
repeat
writeln('+---------------------------+');
writeln('|SELAMAT DATANG DI BANK t-U|');
writeln('| MENU UTAMA |');
writeln('+---------------------------+');
writeln();
writeln('1. Cek Saldo');
writeln('2. Tabung');
writeln('3. tarik');
writeln('4. Transfer');
writeln('5. keluar');
writeln;
write('Pilihan Anda : '); readln(pil);
case (pil) of
1 : begin
pceksaldo();
end;
2 : begin
write('jumlah tabungan anda :Rp. '); readln(tabung);
ptabung(tabung);
end;
3 : begin
write('jumlah tarikan anda :Rp. '); readln(tarik);
ptarik(tarik);
end;
4 : begin
write('jumlah anda transfer :Rp. '); readln(transfer);
ptransfer(transfer);
end;
5 : begin
writeln('Terimakasih');
end;
else
writeln('Pilihan Tidak Ada ');
end;
writeln('press enter to continue ...');
readln();
until (pil=5);
end.
Rabu, 26 November 2014
Selasa, 04 November 2014
soal 6 looping menggunakan array
6. Buat sebuah Array yang berisi karakter A
sampai dengan O kmudian tampilkan dengan nested for agar membentuk tampilan
sebagai berikut:
soal 5 looping menggunakan array
5. Buat sebuah Array
yang berisi karakter A sampai dengan O kmudian tampilkan dengan nested for agar
membentuk tampilan sebagai berikut:
soal 3 looping menggunakan array
3.Buatlah program yang menghitung jumlah hari di tiap bulan
nya. Input berupa nomor bulan dan output berupa jumlah harinya. Gunakan Array
bernama jml_hari[12] yang menyimpan jumlah hari di tiap bulannya.
Contoh:
Masukkan nomor
bulan: 2 (inputan user)
Jumlah hari nya
adalah 28 (outputan program)
soal 1 looping menggunakan array
1. Buat program untuk mencetak “*” sebanyak nilai array yang diinputkan
oleh user. Misal terdapat array A yang terdiri dari 3 elemen, dan diinputkan
nilai-nilai sebagai berikut:
A[1] = 4
A[2] = 2
A[3] = 6
Maka output yang diinginkan adalah:
A[1] = ****
A[2] = **
A[3] = ******
Rabu, 29 Oktober 2014
Langganan:
Postingan (Atom)