Pointer di C++

#include <iostream> /*header c++ yang wajib di isi dalam bahasa c++*/
using namespace std; /*menggunakan namespace std yang terdapat di c++*/
void a1(); /*mendeklarasikan fungsi dengan nama a1 yang tidak memiliki nilai balik*/
namespace evan /*berfungsi untuk mendeklarasikan namespace dengan nama evan*/
{ /*berfungsi sebagai awal dari badan structure*/
struct org /*berfungsi untuk mendeklarasikan nama org sebagai nama dari structure*/
{ /*sebagai awal dari badan char*/
char nama[50]; /*berfungsi untuk menampilkan variabel nama dengan array 50*/
char alamat[60]; /*berfungsi untuk menampilkan variabel alamat dengan array 60*/
int a; /*variabel a memiliki tipe data int*/
}orgh[10]; /*membuat variabel orgh dengan tipe data org dari data structure dengan array 10*/
} /*berfungsi sebagai akhir dari badan structure*/
int main() /*fungsi minimum yang harus ada di program c++*/
{ /*sebagai awal dari main*/
using namespace evan; /*menggunakan namespace yang bernama evan*/
char *p[100]; /*p merupakan pointer ke char yang memiliki array 100*/
p[0]= "=================Pembelian Mobil=============\n"; /*mendeklarasikan p urutan ke 0 "=================Pembelian Mobil============= dan disertai new line*/
p[1]= "===================================\n"; /*mendeklarasikan p urutan ke 1 "============================================= dan disertai new line*/
cout <<p[0];/*menampilkan p urutan ke 0*/

cout << "Daftar Mobil\n"; /*menampilkan tulisan daftar mobil*/
cout << "1.Toyota Avanza\n"; /*menampilkan tulisan 1.Toyota Avanza*/
cout << "2.Daihatsu Zenia\n"; /*menampilkan tulisan 2.Daihatsu Xenia*/
cout << "3.Nissan Grand Livina\n"; /*menampilkan tulisan 3.Nissan Grand Livina*/
cout << "\n"; /*menampilkan spasi*/
awal:
cout << "Masukkan Pilihan Anda: "; /*menampilkan tulisan Masukkan Pilihan Anda*/
cin >> orgh[0].a; /*menempatkan masukan "<<"Masukkan Pilihan Anda: " dan menempatkan variabel orgh.a dengan array 0*/
cin.get(); /*membaca new line dari masukan sebelumnya*/
cout << "\n"; /*menampilkan spasi*/
cout << " Masukan Nama Anda : "; /*menampilkan tulisan "Masukan Nama Anda*/
cin.getline(orgh[0].nama,50); /*membaca masukan "masukan nama anda" dan menempatkan variabel orgh array 0 dan variabel nama dengan array 50*/

cout <<" Masukkan Alamat Anda : "; /*menampilkan tulisan "Masukkan Alamat Anda*/
cin.getline(orgh[0].alamat,60); /*membaca masukan "masukan nama anda" dan menempatkan variabel orgh array 0 dan variabel alamat dengan array 60*/          

int kode ; /*variabel kode memiliki tipe int*/
if(orgh[0].a==1) /*menyatakan kondisi jika variabel orgh.a  dengan array 0 sama dengan 1*/ 
kode=1; /*menyatakan kondisi sebelum a=1*/
else if (orgh[0].a==2) /*menyatakan kondisi jika variabel orgh.a  dengan array 0 sama dengan 2*/
kode=2; /*menyatakan kondisi sebelum a=2*/

switch (kode) /*mendeklarasikan switch dengan tipe data kode*/
{

case 1: /*menyatakan kasus 1*/
cout <<" "<< "\n";/*menampilkan spasi*/
cout <<" "<< orgh[0].nama <<"\n";/*menampilkan nama dengan bantuan variabel orgh*/
cout <<" "<< orgh[0].alamat<< "\n";/*menampilkan alamat dengan bantuan variabel orgh*/
cout <<" "<< "Anda Memilih Mobil : \n";/*menampilkan tulisan  Anda Memilih Mobil*/
cout <<" "<< "Toyota Avanza \n";/*menampilkan tulisan  Toyota Avanza*/
cout <<" "<< "\n";/*menampilkan spasi*/
cout <<" "<< "Memiliki Fitur : \n";/*menampilkan tulisan Memiliki Fitur*/
cout <<" "<< "fuel engine VVT-I \n";/*menampilkan tulisan fuel engine VVT-I*/
cout <<" "<< "700 horse power \n";/*menampilkan tulisan 700 horse power*/
cout <<" "<< "Dynamic Body Design \n";/*menampilkan tulisan Dynamic Body Design*/
cout <<" "<< "Harga : 150.000.000,00 \n";/*menampilkan tulisan Harga : 150.000.000,00*/
a1();/*menampilkan fungsi dari a1*/
break;/*menghentikan proses switch*/
case 2:/*menyatakan kasus 2*/
cout <<" "<< "\n";/*menampilkan spasi*/
cout <<" "<< orgh[0].nama <<"\n";/*menampilkan nama dengan bantuan variabel orgh*/
cout <<" "<< orgh[0].alamat <<"\n";/*menampilkan alamat dengan bantuan variabel orgh*/
cout <<" "<< "Anda Memilih Mobil : \n";/*menampilkan tulisan Anda Memilih Mobil*/
cout <<" "<< "Daihatsu Xenia \n";/*menampilkan tulisan Daihatsu Xenia*/
cout <<" "<< "\n";/*menampilkan spasi*/
cout <<" "<< "Memiliki Fitur : \n";/*menampilkan tulisan Memiliki Fitur*/
cout <<" "<< "Fuel engine VVT-I \n";/*menampilkan tulisan Fuel engine VVT-I*/
cout <<" "<< "500 horse power \n";/*menampilkan tulisan 500 horse power*/
cout <<" "<< "Dynamic Body Design \n";/*menampilkan tulisan Dynamic Body Design*/
cout <<" "<< "Harga : 100.000.000,00 \n";/*menampilkan tulisan Harga : 100.000.000,00*/
a1();/*menampilkan fungsi dari a1*/
break;/*menghentikan proses switch*/
default :/*pilihan yang tidak ada di switch*/
cout <<" "<< "\n";/*menampilkan spasi*/
cout <<" "<< orgh[0].nama <<"\n";/*menampilkan nama dengan bantuan variabel orgh*/
cout <<" "<< orgh[0].alamat <<"\n";/*menampilkan alamat dengan bantuan variabel orgh*/
cout <<" "<< "Anda Memilih Mobil : \n";/*menampilkan tulisan Anda Memilih Mobil*/
cout <<" "<< "Nissan Grand Livina \n";/*menampilkan tulisan Nissan Grand Livina*/
cout <<" "<< "\n";/*menampilkan spasi*/
cout <<" "<< "Memiliki Fitur : \n";/*menampilkan tulisan Memiliki Fitur*/
cout <<" "<< "600 horse power \n";/*menampilkan tulisan 600 horse power*/
cout <<" "<< "Fuel Engine VVT-I \n";/*menampilkan tulisan Fuel Engine VVT-I*/
cout <<" "<< "Dynamic Body Design \n";/*menampilkan tulisan Dynamic Body Design*/
cout <<" "<< "Harga : 125.000.000 \n";/*menampilkan tulisan Harga : 125.000.000*/
a1();/*menampilkan fungsi dari a1*/
break;/*menghentikan proses switch*/
}/*mendeklarasikan akhir dari case*/

cout << p[1];/*menampilkan p urutan ke 1*/

char pilih; /*mendeklarasikan pilih dengan tipe char*/
cout << "apakah anda yakin untuk memilih mobil ini? (y/n)"; /*menampilkan tulisan "apakah anda yakin untuk memilih mobil ini? (y/n)"*/
cin >> pilih; /*memasukkan input ke variabel pilih*/
if (pilih=='n'||pilih=='N') /*menyatakan kondisi jika variabel pilih==n*/
{
goto awal; /*berfungsi untuk loncat ke variabel awal*/
}
cout << "TERIMA KASIH";/*menampilkan tulisan "TERIMA KASIH"*/
return 0;/*menghentikan fungsi main*/

}/*sebagai akhir dari main*/
void a1()/*mendeklarasikan fungsi dengan nama a1 yang tidak memiliki nilai balik*/
{/*mendeklarasikan awal dari void*/
cout <<" "<<"Velg racing type ZZ-79 \n";/*menampilkan tulisan Velg racing type ZZ-79*/
cout <<" "<<"GPS System \n";/*menampilkan tulisan GPS System*/
}/*mendeklarasikan akhir dari void*/

output :

Pointer Di Pascal

uses crt;
type
ptrdata = ^segitiga;
segitiga = record
alas, tinggi : integer;
next : ptrdata;
end;

var
awal, akhir : ptrdata;

procedure tambah (a,t : integer);
var
baru : ptrdata;
begin
new(baru);
baru^.alas:=a; baru^.tinggi:=t;
if awal=nil then
awal := baru
else
akhir^.next:=baru;
akhir:=baru;
akhir^.next:=nil;
end;
procedure tampil;
begin
akhir:=awal;
while akhir <> nil do
begin
writeln('alas = ',akhir^.alas,' , ','tinggi = ',akhir^.tinggi,' ',
'luas = ',0.5*(akhir^.alas*akhir^.tinggi):0:2);writeln;
akhir := akhir^.next;
end; end;

begin
clrscr;
awal := nil;
akhir := nil;
writeln;
tambah (5,7);
tambah (4,8);
tambah (2,9);
tampil;
readln;
end.

output :