Laporan Akhir Praktikum

Mata praktikum         : Pemograman Pascal dan C++

Semester                      : 1 (satu)

Praktikum ke              : 12 (Duabelas)

Tanggal                        : 06 januari 2013

Materi                          : Membuat Program String Pascal &

C++

NIM                              : A 1312022

Nama                            : Iriani

Nama Dosen                : Hendrik Setyo Utomo ST

Nama Asisten

Paraf  Dosen               :

Jumlah lembar            :   Lembar

Laboratorium Informatika

POLITEKNIK TANAH LAUT

2012

Program Pointer Pada Pascal

Listing Program

uses crt;

type ptr =^data;

data = record

isi : string;

pre,

next : ptr;

end;

var baru,posisi,awal,akhir : ptr;

procedure tambah_belakang (elemen : string);

begin

new (baru);

baru^.isi :=elemen;

baru^.pre :=nil;

baru^.next :=nil;

if awal = nil then awal :=baru

else

begin

akhir^.next :=baru;

baru^.pre := akhir;

end;

akhir := baru;

akhir^.next :=nil;

end;

procedure baca_depan;

begin

posisi :=awal;

repeat

write (posisi^.isi);

posisi := posisi^.next;

until posisi = nil;

end;

procedure baca_belakang;

begin

posisi :=akhir;

repeat

write (posisi^.isi);

posisi :=posisi^.pre;

until posisi = nil;

end;

begin

clrscr;

tambah_belakang ('Aku ');

tambah_belakang ('Cinta ');

tambah_belakang ('Kamu ');

textcolor(128);

writeln ('Ungkapan Pertama');

textcolor(12);

writeln(' .   .');

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

writeln(' *****');

writeln('  ***');

writeln('   *');

textcolor(14);

baca_depan;

readln;

Textcolor(Blink);

writeln ('kemudian Jika di Balik');

textcolor(12);

writeln(' .   .');

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

writeln(' *****');

writeln('  ***');

writeln('   *');

baca_belakang;

readln;

end.

Output Program

 

 

Program Pointer Pada C++

Listing Program

#include <iostream.h>

#include <conio.h>

#include <stdio.h>

  void program_pointer()

  {

     char kata[100];

     char *balik;

     int i,jumlah;

     jumlah=0;

     balik=kata;

     char x;

      do

      {

cout<<"\t CONTOH PROGRAM PENGGUNAAN POINTER\n";

cout<<"\t ______________________________________\n\n";

cout<<"\t#######################################\n";

cout <<"\t Silahkan Anda Masukkan Sebuah Kalimat : ";gets(kata);

cout<<"\t^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^\n";

                                                             for(i=0;kata[i]!='\0';i++)

{jumlah ++;}

cout<<"\n\t~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n";

cout<<"\n -----------------------POINTER---------------------\n";

cout << "Setelah Ditekan Enter Maka Kalimat di Atas Akan dibalik Menjadi Berikut :";

                                                             for(i=jumlah-1;i>=0;i--)

{

cout << *(balik + i);}

cout<<"\n\n\t ===---------------**--------------=== \n\n";

cout<<"\n\t Tekan y untuk mengulang = ";cin>>x;

}

while ((x=='y') || (x=='Y'));

getch();

}

void main()

{

program_pointer();

}

Output Program