Pascal
- Struktur Program Pascal
- Konsep IF .. ELSE ..
- Contoh Looping
- Contoh Array
- Program Input Nilai Mahasiswa
- Program Data Pegawai
- Program Mencari Rata-rata, Nilai Tertinggi dan Terendah
- Erika Array
- Erika Record
- Program Contoh Bulan
- Program Data Mahasiswa
- Program Penilaian Mahasiswa
- Contoh Program Record
- Intan Array
- Intan Record
- Program Menghitung Bulan
- Dirman Record
- Program Stat Game
- Program Bulan
- Program Faktorial
- Perintah With..Do dalam Pascal
- Program GJE (Gauss Jordan Exchange) dengan Pascal
- STATEMENT-STATEMENT PADA PEMOGRAMAN PASCAL
- Program PSB SMA Ver.1 Pascal
- MENU DAN EDITOR TURBO PASCAL 7.0
- ELEMEN – ELEMEN BAHASA DALAM PASCAL
- Struktur Kondisi dan Struktur Perulangan
- Program untuk Mencari Akar Persamaan Kuadrat
- Program Suhu
- Program Penjualan
- Program Nilai
- Program Gaji
- Program Berat
- Program Pencari Tanggal
- ARRAY PADA PASCAL
- Aplikasi Stack pada Struktur Data untuk Mengkonversikan Notasi INFIX Menjadi POSTFIX
- Program Banyak Huruf dalam Kalimat
- Program untuk Mengurutkan Data dengan Metode RADIX SORT
- Instruksi Pemilihan
- Tipe Data dan Operator
- Pandapotan Struktur Data
- Tipe Data, Variabel
- Perhitungan Gaji
- TAMBAHAN PERCABANGAN
- RINGKASAN PERCABANGAN
- STRUKTUR CASE OF ELSE
- STRUKTUR CASE OF
- STRUKTUR IF TERSARANG
- STRUKTUR IF THEN ELSE
- STRUKTUR IF THEN
- Dasar-dasar Mempelajari Struktur Data
- Rekursi
- Perulangan dalam Pascal
- ARRAY / LARIK
- Soal UTS Algoritma 08/09 No. 2 (procedure & function)
- Soal UTS Algoritma 08/09 No. 1 (function)
- Perulangan dengan Repeat Until
- Pengulangan dan Perbedaan Penggunaannya
- Tipe Data
- Program Konversi Suhu
- Membuat Piramid Bintang
- Program Kalkulator Sederhana
- Perulangan
- Dani Record
- Program Pertukaran Uang Rupiah dan Dolar
- Pandapotan Record
- Pandapotan Array
- Dani Array
- Aljan Array dan Record
- Hendra Array & Record
- Program yang Menggunakan Record
- Program Bilangan Prima dengan Menggunakan Bantuan Array
- ARRAY DAN RECORD
- Menghitung Hambatan
- Menentukan Bentuk Padat, Cair, Gas Benda
- Pengertian If..Else dan Contoh Programnya
- Program Counter Digital
- Program Bilangan Genap
- Program dengan Array of String
- Program Mencari Nilai Mata Uang
Kata Kunci
nusinau, pascal, contoh program turbo pascal, contoh looping pada pascal, program penjualan dengan pascal, contoh soal pascal, cara membuat program pascal, contoh program flowchart dari type rumah ditentukan dari karakter pertama kode rumah, soal if pada pascal, contoh soal looping pada pascal.
Em tolong dunk..gimana program konversi dari kg ke kwintal lalu ke ton dengan pascal..mohon bantuanya..
@brata
di coba dulu donk .. trus kirim ke sini, nanti kita belajar bikin bareng .. :)
bra klu misalnya ada soal seperti ini
Tentukan Rata-rata gaji pak mamad selama 1 tahun
gimana cara penyelesaiannya menggunakan while do.
tolong kirim ke e-mail saya ya.
zefri_syn@yahoo.co.id
Nu mana balasannya..
@zefri
bisa itu dibuat, tapi detailnya mana nih?
gaji pak mamad selama setahun tu dapet dari mana aja yak?
mungkin seperti ini ya :
http://www.nusinau.com/program-gaji/
saya asumsikan kaya’ gitu aja dah ..
lihat baris paling bawah (sebelum end.)
gaji_bersih := gaji_kotor + pajak ;
writeln ( ‘ Gaji Bersih: ‘ , gaji_bersih : 2 : 0 ) ;
readln ;
end.
bisa ditambahkan :
writeln (‘Gaji selama 1 tahun : ‘, gaji_bersih * 12);
hasilnya jadi :
gaji_bersih := gaji_kotor + pajak ;
writeln ( ‘ Gaji Bersih: ‘ , gaji_bersih : 2 : 0 ) ;
writeln (‘ Gaji selama 1 tahun : ‘, gaji_bersih * 12 : 2 : 0);
readln ;
end.
mas tolong buatkan aku program procedure yang didalamnya ada 10 program………..
tolong ya masssssssss
makasih sebelumnya…….?
oh ya maz tolong dikirim ke email saya………..
luqman_hakiem@yahoo.co.id
@loekman
ha?
tugas dari dosen ya?
hehehehehe …
low program untuk membalik beberapaangka yang diinputkan gimana ya?
tolong programnya seperti apa?
trimakasih
tolong krm ke e-mail saya ya
w4hyu_cy83r@yahoo.co.id
@wahyu
bisa dijelaskan lebih detail?
maaf,
mau tanyak..
untuk program mencari nilai mata uang gmn ya mas?
pke struktur if else.
misalnya uang yang kita masukin 100.000
outputnya :
1 lembar uang 100 rb dan 0 lembar uang 50 rb.
itu gmn ya mas?
trimakasiih sblmnya.
@aLbab
Coba di cek di sini : Program Mencari Nilai Mata Uang
Semoga membantu. :)
hai semua leh tanya2 dong tapi jangan diketawain ya.. neewbie bangeth nie.. hhahahahaha, yg gw tanyai (lofika dari program ini gmn ya? gw bungung bgt nie, terutama yg bagian :
Writeln(‘I:2, Nim[I]:10, Nama[I]:15, IP[I]:6:2);
Uses Crt;
Const N = 10;
Var
Nim : Array[1..N] Of integer;
Nama : Array[1..N] Of String[20];
IP : Array[1..N] Of real;
I : Integer;
Begin
Clrscr;
{Baca Data}
Writeln(‘Masukkan’,N,‘buah data’);
For I := 1 to N Do
Begin
Write(‘No.Mhs : ’);Readln(NIM[I]);
Write(‘Nama Mhs : ’);Readln(Nama[I]);
Write(‘IP Mhs : ’);Readln(IP[I]);
End;
{Cetak Hasil}
Writeln(‘Daftar Nilai’);
Writeln(‘No NIM NAMA IP’);
For I := 1 to N Do
Writeln(‘I:2, Nim[I]:10, Nama[I]:15, IP[I]:6:2);
Readln
End.
(dijawab ya teman2.. thanks before) :)
kk saya minta tolong ter amat sangat minta tolong ..:
bagaimana cara menggunakan pascal untuk menghitung
biaya penjualan rumah apa bila…:
INPUT => type rumah > 21 harga 55 juta
> 27 harga 87 juta
> 36 harga 126.500.000
> 1,5 M
dengan nama pelanggang iphul
PROSES => uang muka 20% dari harga rumah
OUTPUT = > harga rumah
> unag muka
> dan sisa.
aku sangat memerlukan bantuan, tolong kirim lewat e-mail sayakk pls.
sebelumnya saya ucapkan trima kaseh, dan maaf
klo sangat merepotkan…..aku muhon.
#
hai semua leh tanya2 dong tapi jangan diketawain ya.. neewbie bangeth nie.. hhahahahaha, yg gw tanyai (lofika dari program ini gmn ya? gw bungung bgt nie, terutama yg bagian :
Writeln(‘I:2, Nim[I]:10, Nama[I]:15, IP[I]:6:2);
Uses Crt;
Const N = 10;
Var
Nim : Array[1..N] Of integer;
Nama : Array[1..N] Of String[20];
IP : Array[1..N] Of real;
I : Integer;
Begin
Clrscr;
{Baca Data}
Writeln(‘Masukkan’,N,‘buah data’);
For I := 1 to N Do
Begin
Write(‘No.Mhs : ’);Readln(NIM[I]);
Write(‘Nama Mhs : ’);Readln(Nama[I]);
Write(‘IP Mhs : ’);Readln(IP[I]);
End;
{Cetak Hasil}
Writeln(‘Daftar Nilai’);
Writeln(‘No NIM NAMA IP’);
For I := 1 to N Do
Writeln(‘I:2, Nim[I]:10, Nama[I]:15, IP[I]:6:2);
Readln
End.
(dijawab ya teman2.. thanks before) :)
#
noer ilham
April 18th, 2010 at 17:48 | #14
Reply | Quote
Your comment is awaiting moderation.
kk saya minta tolong ter amat sangat minta tolong ..:
bagaimana cara menggunakan pascal untuk menghitung
biaya penjualan rumah apa bila…:
INPUT => type rumah > 21 harga 55 juta
> 27 harga 87 juta
> 36 harga 126.500.000
> 1,5 M
dengan nama pelanggang iphul
PROSES => uang muka 20% dari harga rumah
OUTPUT = > harga rumah
> unag muka
> dan sisa.
aku sangat memerlukan bantuan, tolong kirim lewat e-mail sayakk pls.ato di respon aja.
sebelumnya saya ucapkan trima kaseh, dan maaf
klo sangat merepotkan…..aku muhon.
kk saya minta tolong ter amat sangat minta tolong ..:
bagaimana cara menggunakan pascal untuk menghitung
biaya penjualan rumah apa bila…:
INPUT => type rumah > 21 harga 55 juta
> 27 harga 87 juta
> 36 harga 126.500.000
> 1,5 M
dengan nama pelanggang iphul
PROSES => uang muka 20% dari harga rumah
OUTPUT = > harga rumah
> unag muka
> dan sisa.
aku sangat memerlukan bantuan, tolong kirim lewat e-mail sayakk pls.ato di respon aja.
sebelumnya saya ucapkan trima kaseh, dan maaf
klo sangat merepotkan…..aku muhon.
aku pemula neh aku mau tanaya, moon bantuannya.
giaman cara menghitung biaya penjualan rumah dengan mnggunakan
program pascal sbb……..:
INPUT: kode rumah > 21 haraga 55 juta
> 27 haraga 87 juta
> 36 haraga 126.500.00
> 45 haraga 1,5 M
nama pelanggan ilham
PROSES => uang muka > 20% dari harga rumah sisa
OUTPUT => harga rumah
> uang muka
> sisa .
saya teramat sangat mohon bantuannya dan sebelumnya saya ucapkan trima kaseh…..
Kak, aku mau tanya..
klo string kan panjangnya 256 karakter, untuk membuat string dengan panjang 1000 karakter gmn,???
jawab cepet ya……….
mas bisa bantu bikin program gabungan input output, kondisi(if, case), perulangan, array, prosesur atau function gag? temanya bebas. aku udah nyoba dari kemaren tapi tetep aja gag bisa. please bantuin dong mas….
mas… tolong bantu dong.. contoh program GAME yang memakai stack.. mohon bantuanya dengan sangat..
hubungan algoritma dan pascal apa’y??????tolong d jawab
mas admin tolongin bikin tabel yang ada garisnya
yang isinya nama ,hadir, tugas ,uts ,uas ,nilai akhir ,index pliss ya mas bsok di kumpulin T_T
kirim ke email q muhalisurad@yahoo.com
jadi betah ni belajar di blog mas,,,trims
saya sedot ilmunya semua
mas,,,
bs tolong bwat kan cntoh program untuk menghitung biaya cetak pas photo ga (2×3, 3×4, 4×6)…
para ahli IT sekalian bantuin ane dong bkinin di pascal dengan soal
input kode barang
jika kode barang =’B001′ maka nama barang =’buku’ harga=2000
jika kode barang =’B002′ maka nama barang =’pensil’ harga=1000
jika kode barang =’B003′ maka nama barang =’penghapus’ harga=500
input jumlah barang
cetak total bayar adalah harga x jumlah barang.
ane udah coba dari tadi siang, hasilnya nihil, ga ada yang bisa ngajarin,,
semoga di bales yah gan, butuh banget nih..
ane ga ngerti pas mesti di totalinnya..
buat lay out kyk gini gimana bang??
http://i1013.photobucket.com/albums/af252/idub182/untitled.jpg
contoh program pionter dan linked list . . . please . . .
mas tlong donk buatkan sya program yg menampilkan segitiga dngn tinggi 15 menggunakan looping dlm pascal
re
@noer ilham
program penjualan_rumah;
uses crt;
procedure input;
var
harga,uangmuka,sisa :extended;
tipe:byte;
kode:integer;
begin
writeln(‘Kode Rumah :’);
writeln(’1.tipe 21, Harga 55 juta’);
writeln(’2.Tipe 27, Harga 87 juta’);
writeln(’3.Tipe 36, Harga 126,5 juta’);
writeln(’4.Tipe 45, Harga 1,5 Miliar’);
write(‘Pilihan Anda : ‘);
readln(tipe);
case tipe of
1:
begin
kode:=21;
harga:=55000000;
uangmuka:=(20/100)*harga;
sisa:=harga-uangmuka;
end;
2:
begin
kode:=27;
harga:=87000000;
uangmuka:=(20/100)*harga;
sisa:=harga-uangmuka;
end;
3:
begin
kode:=36;
harga:=126500000;
uangmuka:=(20/100)*harga;
sisa:=harga-uangmuka;
end;
4:
begin
kode:=45;
harga:=1500000000;
uangmuka:=(20/100)*harga;
sisa:=harga-uangmuka;
end;
else
begin
writeln(‘Masukkan pilihan anda (1-4) !!!’);
end;
//end;
end;
writeln(‘Kode : ‘,kode);
writeln(‘harga : ‘,harga:0:3);
writeln(‘Uang Muka : ‘,uangmuka:0:3);
writeln(‘Sisa : ‘,sisa:0:3);
end;
//program utamanya
begin
clrscr;
writeln(‘——————Program penjualan Rumah——————’);
writeln(‘———————————————————–’);
input;
readkey;
end.
mas mau, tanya bagaimana cara mengerjakan program pascal jika outputnya(hasilnya)
seperti ini :
masukkan jumlah bilangan : 4
———————————————————————————————————————–
bilangan prima bilangan non prima
————————————————————————————————————————
2 4
3 6
——————————————————————————————————————–
jumlah bilangan prima : 2
jumlah bilangan non prima : 2
terima kasih
mas mau, tanya bagaimana cara mengerjakan program pascal jika outputnya(hasilnya)
seperti ini :
masukkan jumlah bilangan : 4
———————————————————————————————————————–
bilangan prima bilangan non prima
————————————————————————————————————————
2 4
3 6
——————————————————————————————————————–
jumlah bilangan prima : 2
jumlah bilangan non prima : 2
terima kasih dan tolong dibalas secepatnya
mas bagaimana kok belum di jawab saya minta tolong banget mas
bos!!! mantap…sering di apdet dong biar tugas ane sejaterah..eheheh o ya b d way napa tp.win 1.5 kagak bisa di ubah color nya( bukan kolor celana dalem) ahahah tp thema en colour textnya pdhal w dha buat sesuai perinth loh..mmhmm
bro, giman kalo mau mau input waktu di program parkir, trus pake tipe data apa?
ajrin dulu contoh program parkir , bro….
mas bisa mta tlong gx bikinin program pascal ttg penjualan
dgan penjualan ditentukan dosen,dan mendapat potongan dari diler danpengecer
dgan potongan 10%
berapa keseluruhan autputy dr input yang diinsert mksh mas
kk Bisa bantu aku ga??aku aada tugas dari dosen nih>,< aku d suru buat program apa aja tapi harus yang menunjukkan perpaduan STRUKTUR dan ARRAY.. thx kk.. kalo bisa tolong d taro d email aku yah.. pls bnget minggu depan d kumpul nih.. thx kk.. heheheh
Email aku Agustt_rahhel@yahoo.co.id ..Thx
@duble… : pake gabungan procedure ama case of aja .
kk bikin program array 2 dimensi gmn ?
kasih contoh programnnya dunk…
kak sya mnta tlong, tlong kasih contoh program structure dalam pascal gmna ya?
ada gak tuh, paling tidak y sejenis dengan itu..
mkasih ^_^
Mas2 dan mbak2 mau tanya, gmn yaa caranya ngebuat program pascal dengan keluaran seperti
ini….
Stok perangko :
5000 : 10 lembar
1000 : 10 lembar
500 : 10 lembar
Masukkan uang : 55000 ==> total yg bisa di beli hanya 65000
Perangko anda : 10 lembar 5rb, 10 lembar 1000 dan 10 lembar500
5000 : 10 lembar
1000 : 5 lembar
500 : 0 lembar
Kembalian : 0
Sisa stok :
5000 : 0 lembar
1000 : 5 lembar
500 : 10 lembar
dengan jumlah perangko yang tersedia pada mesin terbatas : 10 lembar 5000, 10 lembar 1000,
dan 10 lembar 500. jadi kalo kita inputkan angka seperti di atas maka yg 5rb an gk bisa
lebih dari jumlah stoknya yaitu 10 lembar, begitu pula yg 1000 dan 500. jadiTampilkan stok
perangko sebelum dan sesudah transaksi.
@dina
Tolong di bales secepatnya yaa…
@dina
dikirim ke emailQ
alpha_omega20@rocketmail.com
mas , , ,
tolongin saya bikin program yang pke prulangan dan percabangan donk ……
klo bisa prulangan dan prcabangan ny dgbung ……
e-mail saya sok_blagu2@yahoo.co.id
thanks
C++ y mas
kk’ tolong dong buatkan flowchart n listing untuk mencari nilai terbesar dari 4 bilangan . . .
Kak bisa minta tolong ga bikinin aku program Algoritma(Buble Sort) yang mencakup tambah data, edit data, hapus data, dan yang terakhir dta tersebut tersusun berdasarkan abjad, misalkan
1. nama budi
alamat ……
no tlp…….
2. nama andi
alamat ……
no tlp…….
tapi ketika pilih menu tampilkan andi menjadi urutan pertama.
terimakasih kak sebelumnya, kalau kakak tidak keberatan membuatnya boleh email ke aku di (iyar_za@yahoo.com)..