Procedure dalam Pascal

- Prosedur merupakan sub program yang tidak mengembalikan nilai secara langsung
- Semua deklarasi di dalam prosedur bersifat lokal sehingga hanya bisa digunakan oleh prosedur itu      saja, sedangkan deklarasi di dalam program utama bersifat global sehingga dapat dikenali di                seluruh program utama
- procedure selalu diakhiri dengan end;

contoh program procedure

uses crt;
var
a: real;

procedure Tanya_Hitung;
var
b: real;
begin
write('Nilai b = ');
readln(b);
a := b*b;
end;

begin
clrscr;
Tanya_Hitung;
writeln('Nilai a = ', a:0:0);
readkey();
end.

Contoh Program Angka Kelipatan dalam Pascal

Saya akan membagikan program untuk membuat angka kelipatan dengan proteksi

Uses crt;

var
x,y,z,a,b:longint;

begin
    clrscr;
    writeln('MENU 1 - Perhitungan Angka');
    writeln('--------------------------');
    write('batas bawah : ');
    readln(a);
    write('batas atas  : ');
    readln(b);
    write('masukan angka : '); // angka yang akan jadi kelipatan
    readln(z) ;
    writeln();
    writeln('Hasil :');
    for x:=1 to 1000 do
        begin
             y :=z*x;
         if (y>=a) then
         if (y<=b) then
         begin
         writeln(y);
         end;
        end;
        readkey;
end.

Sekuensial dalam Pascal

Apa itu Sekuens?? Sekuens adalah urut - urutan dalam menjalankan instruksi secara logika agar maksud yang dikandung dapat tercapai.
Sekuensial dalam Pascal ada 3 jenis instruksi:
1. —P*  : digunakan untuk mencetak * dan membuat kursor maju selangkah
2. —Pb  : digunakan untuk mencetak satu space kosong (spasi)
3. BB  : digunakan untuk return ke baris berikutnya (Enter)

Contoh program sekuens
Mencetak ***
Solusi
intruksi = P*;P*;P* 
dalam pascal = write('*'); write('*'); write('*');

program nya

uses crt;
begin
write('*'); write('*'); write('*');
readkey;
end.

contoh 2
membuat           ***
                          ***
                          ***

intruksi = BB; P*; P*; P*;
                 BB; P*; P*; P*;
                 BB; P*; P*; P*;

program nya

uses crt;
begin
write('*'); write('*'); write('*'); writeln();
write('*'); write('*'); write('*'); writeln();
write('*'); write('*'); write('*');
ens.

Cara Membuat Segitiga Sama Sisi Terbalik di Pascal

Halo selamat malam, hari ini saya akan membagikan cara membuat segitiga sama sisi tapi terbalik
silahkan dilihat dan dipelajari

uses crt;
var a, b, tinggi :integer;
begin
clrscr;
write('Masukkan Tinggi : '); readln(tinggi);
for a:= tinggi downto 1 do
begin
        for b:= tinggi downto a+1 do
        begin
        write(' ');
        end;
        for b:= 1 to (2*a)-1 do
        begin
        write('*');
        end;
        writeln();
        end;
readkey;
end.

Cara Membuat Belah Ketupat di Pascal

Haloo kawan - kawan, hari ini saya akan membagikan cara membuat belah ketupat di pascal
silahkan dilihat

uses crt;
var a, b, input :integer;
begin
clrscr;
for a:= 1 to 5 do
begin
for b:= 1 to 5-a do
begin
write(' ');
end;
for b:= 1 to 2*a-1 do
begin
write('*');

end;
writeln;
end;

for a:= 3 downto 0 do
begin
for b:= 3 downto a do
begin
write(' ');
end;
for b:= 1 to 2*a+1 do
begin
write('*');
end;
writeln();
end;
readkey
end.

Cara Mengecek Bilangan Prima di Pascal

Halo kawan - kawan, hari ini saya akan membagikan cara mengecek suatu bilangan prima atau tidak di Pascal, semoga bermanfaat ^^

ini source code nya

uses crt;

var a, b, p : integer;

ulang : char;

begin

clrscr;

p := 0;

write('Masukkan Bilangan : '); readln(b);

for a := 1 to b do

begin

 if b mod a = 0 then

   p := p+1;

end;

writeln();

if p = 2 then

    write(b,' Merupakan bilangan prima')

else

    write(b,' Bukan bilangan prima');

writeln();

readkey;

end.