BLOG - Rico -

Blog - Rico -

Rabu, 11 Mei 2011

PROGRAM PASCAL

Di Blog ini saya akan berbagi beberapa contoh program pascal beserta logikanya
Mudah"an bisa membantu bagi yang kesulitan / sedang mempelajari program pascal

PROGRAM BIODATA

TAMPILAN INPUT 


 TAMPILAN OUTPUT



LOGIKA PROGRAM

uses crt;
jika statement ini di tulis, programmer bisa menggunakan perintah clrscr;
var
nma,npm,kls:string;
pendeklarasian variabel nma,npm,kls dengan tipe data string
begin
awal program yang akan dijalankan
clrscr;
hapus layar
write('Masukan Nama  : ');
readln(nma);
write('Masukan NPM   : ');
readln(npm);
write('Masukan Kelas : ');
readln(kls);
write berguna untuk output yang di tampilkan pada layar dan readln berguna untuk menyimpan data (Input) pada suatu variabel dan membuat garis baru, karena diakhiri dengan tulisan ‘ln’
writeln;
membuat garis baru
writeln('Nama Anda  : ',nma);
writeln('NPM Anda   : ',npm);
writeln('Kelas Anda : ',kls);
menampilkan kalimat yan di dalam tanda kutip (‘) dan variabel
readln;
untuk menampilkan variabel yang berada pada writeln di atas, jika tidak memakai readln output tidak akan keluar
end.
Untuk mengakhiri program


PROGRAM LUAS SEGITIGA

TAMPILAN INPUT


TAMPILAN OUTPUT


LOGIKA PROGRAM

Program Luas_Segitiga;
Judul yang di berikan oleh programmer
uses crt;
jika statement ini di tulis, programmer bisa menggunakan perintah clrscr;
var alas, tinggi : integer;
    luas : real;
pendeklarasian variabel alas dan tinggi dengan tipe data integer dan variabel luas dengan tipe data real
begin
awal program yang akan dijalankan
clrscr;
hapus layar
write('Masukan Nilai Alas   : ');
readln(alas);
write('Masukan Nilai Tinggi : ');
readln(tinggi);
sama seperti logika program 1
luas:=0.5*alas*tinggi;
proses perhitungan
writeln;
membuat garis baru
write('Luas Segitiga        : ',luas);
menampilkan kalimat yang di dalam tanda kutip (‘) dan variabel
readln;
untuk menampilkan variabel yang berada pada writeln di atas
end.
Untuk mengakhiri program

PROGRAM PERULANGAN SEGITIGA (for) 

TAMPILAN INPUT



TAMPILAN OUTPUT



LOGIKA PROGRAM
uses crt;
var a,b,c:integer;
begin
awal program yang akan dijalankan
clrscr;
write('Masukan Nilai : ');
readln(a);
for b:=1 to a do
pengulangan sebanyak hasil input dari variabel a
begin
begin disini untuk mengawali statement yang akan di ulang
for c:=1 to b do
pengulangan sebanyak variabel b
begin
begin disini untuk mengawali statement yang akan di ulang
write(c);
end;
mengakhiri pengulangan for b:=1 to a do
writeln;
end;
mengakhiri pengulangan for c:=1 to b do
readln;
end.
Akhir dari suatu program

Nb : ada beberapa yang tidak di jelaskan pada logika di karenakan sudah dijelaskan oleh program sebelumnya

Share this post
  • Share to Facebook
  • Share to Twitter
  • Share to Google+
  • Share to Stumble Upon
  • Share to Evernote
  • Share to Blogger
  • Share to Email
  • Share to Yahoo Messenger
  • More...

0 comments

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

 
Posts RSSComments RSSBack to top
© 2011 BLOG - Rico - ∙ Designed by BlogThietKe
Released under Creative Commons 3.0 CC BY-NC 3.0