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
0 comments