Procedure & Function (Bentuk Sederhana)

Procedure & Function (Bentuk Sederhana)

      Sudah di jelaskan di posting kemarin tentang Procedure & Function, disini kita mempuat sebuah progam dari Procedure & Function dalam bentuk sederhana. dan langsung saja liat gambar dibawah ini.

seperti itulah contoh dari Procedure & Function dalam bentuk sederhana, dan sekarang saya akan menulis script untuk membuat sebuah progam itu.

script :

program PF_sederhana;

{$APPTYPE CONSOLE}

uses

  SysUtils;

procedure jumlah;

  var

    A,B,C:integer;

  begin

  writeln;

  writeln('Nama : Maisirotul Rizka');

  writeln('Nim  : 114224022');

  writeln('--------------------------');;

  writeln;

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

    writeln ('CONTOH PENULISAN PROCEDURE & FUNCTION');

    writeln ('          BENTUK SEDERHANA           ');

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

    writeln ('');

    write('Masukkan Nilai A = '); readln (A);

    write('Masukkan Nilai B = '); readln (B);

    C:= A+B ;

    write('A + B = ',C);

  end;

begin

  jumlah;

  readln;

end.

Sekian .. selamat mencoba ^^