| Program Menghitung Jumlah Bilangan Perulangan FOR Dengan Nilai Statis | |
| Skrip Program Pascal | Output Program |
program jum_bil;
uses wincrt;
var
i, jum,bil: integer;
begin
jum:=0; {inisialisasi}
for i:=1 to 5 do
begin
write('Masukkan Bilangan = ');readln(bil);
jum:=jum+bil;
end;
writeln('Jumlah Bilangan = ',jum);
end.
|
Masukkan Bilangan = 12
Masukkan Bilangan = 12 Masukkan Bilangan = 12 Masukkan Bilangan = 12 Masukkan Bilangan = 12 Jumlah Bilangan = 60 |
| Program Menghitung Jumlah Bilangan Perulangan FOR Dengan Nilai Dinamis | |
| Skrip Program Pascal | Output Program |
program jum_bil2;
uses wincrt;
var
i, n: integer;
jum, bil: real;
begin
write(‘Banyak bilangan : ');read(n);
jum := 0;
For i:= 1 to n do
begin
write('Masukkan Bilangan ',i, '=');read(bil);
jum := jum+bil;
end;
writeln('Jum = ',jum:0:2);
end.
|
Banyak bilangan : 3
Masukkan Bilangan 1 = 12 Masukkan Bilangan 2 = 13 Masukkan Bilangan 3 = 14 Jum = 39.00 |
| Program Menghitung Jumlah dan Mean Bilangan Perulangan FOR Dengan Nilai Dinamis | |
| Skrip Program Pascal | Output Program |
program contoh_3;
uses wincrt;
var
n, i : integer;
rata : real;
jum, bil : integer;
begin
Write('Masukkan nilai N = ');readln(n);
writeln ('Nilai N adalah= ',n);writeln;
for i := 1 to n do
begin
write('Masukkan bilangan : ');read(bil);
jum := jum+bil;
end;
rata := jum/n;writeln;
writeln('Jumlahnya adalah : ',jum);
writeln('Nilai rata-ratanya :', rata:0:2);
end.
|
Masukkan nilai N = 3
Nilai N adalah= 3 Masukkan bilangan: 1 Masukkan bilangan: 2 Masukkan bilangan: 3 Jumlahnya adalah : 6 Nilai rata-ratanya : 2.00 |
| Program Menghitung Jumlah dan Banyaknya Data | |
| Script Program Pascal | Output Program Pascal |
program contoh4;
uses wincrt;
var
n, i,byk,jum, bil : integer;
begin
Write('Masukkan nilai perulangan : ');readln(n);
Writeln;
for i := 1 to n do
begin
write('Bilangan ',i,' = ');read(bil);
if bil >= 10 then
begin
byk := byk+1;
jum := jum+bil ;
end;
end;
writeln;
writeln('banyak bilangan yang >= 10 : ',byk);
writeln('jumlah bilangan yang >= 10 : ',jum);
end.
|
Masukkan nilai perulangan: 3
Bilangan 1 = 10 Bilangan 2 = 3 Bilangan 3 = 25 Banyak bilangan yang >= 10 : 2 Jumlah bilangan yang >= 10 : 35 |
jika tulisan ini kurang jelas, silakan ditanyakan atau kitabisa diskusikan bersama. Ada yang kurang? Ada yang ingin ditambahkan? sampaikan aspirasi Anda. hhe… ^^
rickyi
19 January 2010 at 08:43
thanx y bro..berkat penjelasan scriptnya,,
berhubung ni jg ad tgas ttg pascal, Program Nilai
retnodn
20 January 2010 at 03:14
jangan panggil “bro”. panggil “sist” aja. hahaha….
hardiyanto
1 February 2010 at 09:31
hai boleh minta nomor hp nya g’ tuk jadi sahabat ,.,.,balas . . .! ! ! ! !
retnodn
7 February 2010 at 03:46
wah… boleh boleh… buat teman diskusi ya?
ke facebook saya aja: retz_andromeda@yahoo.co.id ditunggu ^^
ima
5 May 2011 at 17:43
sist kalau bkin program tulisan berjalan dari kiri ke kanan tu gimana..ane dpat tgas ne..
sandra sankara
17 March 2010 at 03:43
alhamdulilah…dapat juga prog sederhana..kebetulan sy mengajar prog pascal..ingin mencari prog sederhana yang kira2 dipahami siswa
retnodn
17 March 2010 at 05:08
alhamdulillah ….
terimakasih sudah mampir, bu ^^
ila
18 May 2010 at 08:01
Ty. . .
Bisa buad ngejain tugaz .. . . ^_^v
iponk
18 June 2010 at 09:17
tau gag pascalnya buble sort ascending?????tolongin dong….
retnodn
18 June 2010 at 18:54
ini ada contoh program buble sort: (lupa sumbernya dari mana)
program penggunaan_array_untuk_sortir_buble_sort;
uses crt;
var
nil1 : array[1..100] of integer;
n,i,j,dum : integer;
begin
clrscr;
write(‘mau isi berapa data acak (integer) =’); readln(n);
for i := 1 to n do
begin
Write(‘Data Ke ‘,i,’:');readln(nil1[i]);
end;
{* penyapuan proses}
for i:= 1 to n-1 do
begin
for j:= i to n do
begin
if nil1[j]<nil1[i] then
begin
dum:=nil1[j];
nil1[j]:=nil1[i];
nil1[i]:=dum;
end;
end;
end;
writeln;
writeln('Hasil Sortir');
for i := 1 to n do
write(nil1[i]:3);
readln;
end.
semoga bermanfaat ^^
riezal
22 June 2010 at 22:11
kak klo contoh program pascal pake iterasi gimana????
retnodn
22 June 2010 at 22:21
silakan klik :
http://www.i-garden.org/archive/v2/docu/cecs/pas05.pdf
ima
5 May 2011 at 17:51
sist kalau buat tulisan berjalan tu gmna…
galuh
8 July 2010 at 12:09
Assalamualaikum,mba boleh tanya ga?mba alumni budut bukan?
retnodn
10 July 2010 at 10:11
bukan.
lutfy
30 July 2010 at 16:20
tx yha sharenya .
saya juga ada nie link download contoh pascal :
http://belajar-pemrograman2.blogspot.com/2010/07/contoh-program-pascal.html
tx
fandi
6 August 2010 at 18:28
bisa bantu nda untuk tugasku tentang simulasi montecarlo menggunakan pascal:
Buat simulasi montecarlo (kasus tentukan sendiri)simulasikan sebanyak 30 kali.
listing dan output dicetak pakai pascal.
kalo bisa bantu kirim ke email .thanks ya
अहमद Iswandy ADjalil
15 October 2010 at 01:25
——————-
txs for info pacalnya…
zulk_jokam
21 December 2010 at 06:54
klw contoh selction sort ada ngga’..!!!
zulkarnain
21 December 2010 at 06:55
thank’s sblmx.. mw nanya ne.. klw selection sort ada ngga contohx..??
zulkarnain
21 December 2010 at 06:56
thank’s sblmx.. klw contoh selection sort ada ngga.??
Rahmi Ramadhani
25 December 2010 at 11:08
assalamu’alaikum
mbak, ada soal program pascal nih, tapi bingun ngebuatnya..
Diterima input dari keyboard sebanyak 3 buah bilangan pecahan ( boleh negatif atau positif).
Jika bilangan pertama adalah positif, maka bilangan tsb dikurangi dengan bilangan prima
diantara yang terdekat dengan bilang kedua tersebut.
Jika bilangan kedua adalah negatif, maka bilangan tsb ditambahkan dengan nilai
hasil sisa bagi 3 bilangan tersebut.
Tentukan mana bilangan terbesar dan terkecil dari ke tiga bilangan tadi.
Kemudian jumlahkan ketiga bilangan tsb, dan hasilnya ditampilkan.
bisa tolong di bantu untuk ngejawabnya gak mbak..
retnodn
26 December 2010 at 17:55
waelikumsalam…
coba pakai array biar lebih mudah.
isi dulu array-nya. itu range nilainya dari berapa sampe berapa?
kemudian baru bikin fungsi mencari bilangan prima.
ambil yang paling mendekati antara kedua bilangan itu.
jika bilangan kedua negatif, berarti buat fungsi lagi yang menghitung mod ketiga bilangan itu.
setelah itu baru deh buat fungsi maximum dan minimum dari ketiga bilangan tadi. jumlahkan dan tampilkan.
rahmi ramadhani
27 December 2010 at 10:48
masih lum paham kak..
bisa di beri contoh yang mendekati kasus rahmi yang menggunakan array itu kak?
rahmi ramadhani
27 December 2010 at 11:01
bagaimana program mencari bilangan prima dari dua bilangan pecahan yang terdekat mbak?
karna yang diinputkan bilangannya pecahan (real)..
mhon bantuannya mbak..
dian
11 January 2011 at 07:07
kk,,
bisa gak bantu buat contoh pascal kelas 10 sma?
tolong…
unganx
11 January 2011 at 15:46
aku mw x_oba program_x km
mw d bkn refrensi
liefa el_rozy
18 January 2011 at 21:58
gmn ya …
aq krng ge bxk tugas ne….
liefa el_rozy
18 January 2011 at 22:02
pengen pulang cz bxk tugas yg lom clcai…
bantuin donx,….
retnodn
18 January 2011 at 22:51
ya dikerjainlah. hehe….
cemploon
9 February 2011 at 15:46
salam kenal….
visit my blog sista
adhy
24 February 2011 at 22:10
thanks nah program …… masalahnya ini program sangant aku butuhkan untuk membuat tugasku dikampus . . ..
putra
27 February 2011 at 10:41
ass,,,,,,,
kk q mo ikut olimpiade tik tentang pascal nichhh,,,,
tapi q lom tau tentang pascal ni,,,,
bisa kirimin contohh untuk anak sma kls 2 ga kk,,,
contoh yang sederhana kk,,,, ^_^
elcy
27 February 2011 at 10:45
assallam..
saya elcy,mau tanya nech…
program pascal n VB.net to win.7 ada gk?
klau ada mnta linknya n cra instalnya..
tq…
retnodn
30 September 2011 at 08:22
untuk program turbo pascal TPW bisa jalan di win7 kok. kalo VB.Net aku biasa pake visual studio 2008. bisa jalan di win7 juga…
anis
21 April 2011 at 17:56
cara buat program p[ascal pembanding daerah waktu gimana?
yude
27 April 2011 at 14:52
kakak ada dak program yng panjang tolong kakak><
yude
27 April 2011 at 15:38
kakak ada dak program yng panjang tolong kakak><
sekitar 200 baris
fendri
28 April 2011 at 12:40
Pada contoh postingan diatas, tidak perlu comment readkey atau read ln sebelum ‘end.’ ya? apakah saat porgram dijalankan, nilai output akan tampil dilayar?
Taufik
1 May 2011 at 13:38
asalamualaikum.
mau tnya cntoh program pencarian yg buat pascal ada gk ya. trim’s
lisman
3 May 2011 at 09:12
gue,,,, dapat belajar pascal dengan mudah dan asyik, yang sangat susah banget bagi saya pribadi.
ocha
15 June 2011 at 10:36
kak, bingung neh ma tugas yang dalam 1 program terdapat grafik, animasi, file text, record, fungsi dan prosedur….
bantuin dunk kk…
uul
9 July 2011 at 14:27
mb’ kl0 mnta tolong buatin program yg berkaitan dg masalah di skitar kita tapi pakai record dan pakai menu jg. . .ntar mw tak plajarin script’ny., , ,
hafidz
16 July 2011 at 08:45
ada flowchartnya gak?
retnodn
25 July 2011 at 11:02
ok makasih masukannya. menyusul ya
Mukhtar Haris
30 July 2011 at 16:57
terima kasih mba…
semoga dengan contoh ini saya dapat belajar bnyk
^_^
Rahman
24 September 2011 at 09:00
sist ko facebook nya gaada ya?
retnodn
27 September 2011 at 21:01
iya, sedang ada masalah. kirim request aja ke YM retz_andromeda@yahoo.co.id nanti saya add facebooknya
Rahman
27 September 2011 at 23:07
oke..
retnodn
30 September 2011 at 08:20
nama facebook kamu apa?
Rahman
4 November 2011 at 09:48
thanxs.rahman@gmail.com
kevin
30 September 2011 at 19:42
mbak aq ad message d fbx , kok gak d bales ?? ;(
retnodn
30 September 2011 at 19:56
eeh… emang iya ya? kayaknya nggak ada deh
Tina
14 October 2011 at 22:08
Mas, bisa gak tolongin saya buatkan program Penyewaan dan Penjualan VCD dengan Pascal?
Tina
14 October 2011 at 22:12
Sorry, sala manggil, mbak.. Hope for your quickly reply, cause this is urgently need for Sunday Test.
anvite
24 October 2011 at 15:23
bisa tolong kasih contoh yang pengulangan bersarang (for,while,repeat,until) ga ?
retnodn
30 October 2011 at 15:48
http://retnodn.co.cc
Rahman
4 November 2011 at 10:06
mba email saya sudah sampai?
mohon bantuannya ya ^_^
saya kirimkan ke email mba yang retz_andromeda@yahoo.co.id
urie
10 November 2011 at 18:09
kk punya program sederhana tentang invers matriks pada pascal ga? saya lagi ada tugas tapi kebingungan..
makasih
syatilla
8 December 2011 at 12:39
mba sis , saya mahasiswa ipb teknik komputer , mau tanya bikin program pascall yang menentukkan nilai inputnya integer atau bkn integer gimana yah ??jadi nanti outputnya integer atau bukan integer . repp
makasih sblmnya
taufik
19 December 2011 at 12:33
cara buat angkar berurutan
12345
678910 dst gmn ya buk??? mohon bantuan nya makasih ^^
retnodn
13 January 2012 at 10:16
oh itu tinggal pakai looping saja. setiap looping ditambah satu. loopingnya <11.
Sutriznatedzha Abbas
14 February 2012 at 22:38
mba makasih a,program menghitung sales bisa ga mba?
retnodn
19 February 2012 at 09:49
maksudnya menghitung sales gimana ya?
Jojor R Manurung
20 March 2012 at 19:35
mba saya mau nanya
klo ingin membuat suatu program, tanpa menginput nilai nya lagi
ato bila di runningkan hasilnya udh lgsg jalan
gmn cara buatnya ya?
statement n variabel nya gmn ya?
boleh minta penjelasannya
retnodn
27 March 2012 at 10:25
maksudnya yang dinamis? Maaf saya nulis codingnya agak ribet di sini, gak pake plugin wordpress soalnya. hhehe… ^_^V
coba lihat di sini (klik).
ilham
10 July 2012 at 20:32
mba.. Sy mw tnya klo bkin program text berjalan ke kanan dan kekiri pake for to do gmn ya cra’a?..
reza
25 March 2012 at 13:04
assalamu’ailaikum,, minta tolong kasih contoh program pascal array statis 2D dong mbak, yang sederhana aja.. terima kasih. . . .
Fareza Indra
25 March 2012 at 13:08
tolong kasih contoh program pascal array statis 2D dong mbak,, yang sederhana aja.. ditunggu balasannya ya mbak, terima kasih.
pandi
13 May 2012 at 20:35
thanks for ilmunya..
Sartika Sitinjak
12 June 2012 at 11:13
tlong buatkan contoh2 program pascal yang lain donk..
q tunggu blz an na
Dwi Retno
15 September 2012 at 22:04
Makasih atas contohnya
chaterina dewi
8 October 2012 at 11:31
sist,buatin programnya donk kalo outputnya gini,,
*
**
***
maksih,,Bls ya,,
retno
5 January 2013 at 12:00
hm…. ok. tunggu postingan selanjutnya ya
Even
31 October 2012 at 16:35
Msh bgung dinda
retno
5 January 2013 at 11:57
sorrii… codingnya belom diformat, jadi berantakan… bingung bacanya ya? -__-”
Rahma
30 November 2012 at 21:05
sist mnta tlng donk, bantuin krja tgasku, masii bingung ama pascal..
tgasx disuruh buat program pascal animasi bergerak 2D yg simple2 ajja krna mau dijelasin dpan dosen…
tapi tman2 dah bxk yg pake kotak dan bulat…
Milanistizero
23 December 2012 at 14:19
Assalam….
Mbak… tlong Bantuin sya donk,, ngebuat program pascal menghitung nilai akhir mahasiswa dengan menggunakan type Array.. dengan penilaian sbb; Nilai Tugas 30%, Nilai Mid 30%, Nilai Final 40%,, buat agar Program Menginput bebrapa data mahasiswa minimal 3 orang data mahsiswa….??????????
Wassslam..
retno
5 January 2013 at 11:43
hm… gampang itu.. pasti kamu bisa! Itu untuk mengasah logika kamu. Semangat yaaa!! ^_^