Procedure In Pascal

Here's a code on how write a procedure in Pascal:

Without Parameters

Program UsingProc;

uses wincrt;

procedure hello;

var

    name : string;

begin

    name := 'lady gaga';

    writeln(name);

end;

begin

    hello;

end.

With Parameters:

Program UsingProcParam;

uses wincrt;

procedure hello(name : integer);

begin

    writeln(name);

end;

begin

    hello('lady gaga');

end.

          

Procedure In Pascal

Looping In Pascal

Here's a code on how to loop over a number of times;

For Loop:

Program forLoop;

uses wincrt;

var

    i : integer;
    c : char;

begin

    

    for i := 0 to 100 do

    begin

        writeln(i,'. Holla World');

    end;

    writeln('==========================');

    for i := 100 downto 10 do

    begin

        writeln(i,'. Holla World Again');

    end;

    writeln('===========================');

    for c := 'a' to 'z' do
    begin
        writeln(c,'. characters');
    end;

end.

While Loop:

Program whileLoop; 

uses wincrt;

var

    i : integer;

begin

    i := 0;

    while i<100 do

    begin

        writeln(i,'. Less than 100');

        i := i+1;

    end;

end.

Repeat Until

Program untilLoop;

uses wincrt;

var 

    i : integer;

begin   

    i := 1;

    Repeat

        writeln(i,'. Holla World');

        writeln('This holla comes from turbo pascal');

        i := i + 1;

    until i = 100;

end.

         

Looping In Pascal

If Else In Pascal

Here's a code on how to write a decision programs.

Program Sleeping;

uses wincrt;

var

    sleep : boolean;

begin

    sleep := true;

    if (not sleep) then

    begin

        writeln('Lady gaga still sleep');

        writeln('So please keep silent');

    end

    else

    begin

        writeln('You can do what you want');

        writeln('And this is a free area');

    end;

end.

If Else In Pascal

Variable In Pascal

Program Lady;

uses wincrt;

var

    name   : string;

    female : boolean;

    age    : integer;

    weight : real;

begin

    name := 'Lady Gaga';

    female := true;

    age := 23;

    weight := 49.89

    writeln('Personal Data');

    writeln('Name: ',name);

    writeln('Female: ',female);

    writeln('Age: ',age);

    writeln('Weight: ',weight);

end.

To create an array variable, use:
var
    i : Array[0..9] of Integer;
    names : Array[0..4] of string;
    names : Array['A'..'F'] of string;
          

Variable In Pascal

Hello Pascal

This code is ran under Turbo Pascal platform:
The complete structure of the program is:

program   ...;

uses      ...;

label     ...;

const     ...;

type      ...;

procedure ...;

function  ...;

begin

    statement;

end.

Example:

program Hello;

uses wincrt;

begin

    writeln('Hello, Pascal');

end.

Hello Pascal