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