Tutorial Belajar Pemrograman, membuat game, membuat aplikasi, membuat program, android, game maker, yii, php, CSS, HTML, java, javascript, codeigniter, jquery, Pascal, c++

Tuesday, November 29, 2011

Contoh Pemrograman Pascal Paling Sederhana - Disini saya akan menunjukan beberapa program yang sangat mudah dan sederhana dalam bahasa pascal, program ini sangat mudah dan simple sekali untuk di mengerti jadi anda tidak perlu takut dan ragu untuk belajar karna program ini sangatlah mudah dan sederhana.

1. Program Menghitung Jumlah Bilangan Perulangan FOR Dengan Nilai Statis

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.

2. Program Menghitung Jumlah Bilangan Perulangan FOR Dengan Nilai Dinamis

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.

3. Program Menghitung Jumlah dan Mean Bilangan Perulangan FOR Dengan Nilai Dinamis

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.

4. Program Menghitung Jumlah dan Banyaknya Data


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.

Baca juga : Membuat Game Sulap Menggunakan Pascal

Pemrograman Pascal Paling Sederhana anda sekarang sudah selesai, baca juga tutorial program pascal lainnya.

Terima Kasih Telah Mengunjungi Blog Sederhana Ini.

Di Mohon Apabila Anda Ingin Mengcopas Artikel Pada Blog ini Cantumkan URL Sumber.

Sebagai Pengunjung Yang Baik Anda Dapat Meninggalkan Komentar di Blog Sederhana Ini.

Share this post

2 komentar

:) :) :-) :-) :)) :)) =)) =)) :( :( :-( :-( :(( :(( :d :d :-d :-d @-) @-) :p :p :o :o :>) :>) (o) (o) [-( [-( :-? :-? (p) (p) :-s :-s (m) (m) 8-) 8-) :-t :-t :-b :-b b-( b-( :-# :-# =p~ =p~ :-$ :-$ (b) (b) (f) (f) x-) x-) (k) (k) (h) (h) (c) (c) cheer cheer

 
© Jin Toples Programming
Designed by BlogThietKe Cooperated with Duy Pham
Released under Creative Commons 3.0 CC BY-NC 3.0