PROGAM STRING PASCAL DAN C++

CONTOH PROGRAM STRING PASCAL 
program npmdanjurusan;
uses crt;

var
npm,jurusan1,jurusan2,angkatan1,angkatan2: string;
y,z : integer;

begin
clrscr;
write ('Masukkan NPM anda : ');
readln (npm);

(*gunadarma didirikan pada tahun 1981
kode jurusan :
1= strata 1 ; sistem informasi
2= diploma 3 ; manajemen informatika
3= strata 1 ; manajemen komputer dan akuntansi dan seterusnya sesuai database*)

jurusan1:=copy(npm,1,1);
if jurusan1= '1' then jurusan2:='Strata 1 - SISTEM INFORMASI '
else
if jurusan1= '2' then jurusan2:='Diploma3 - MENEJEMEN INFORMATIKA '
else
if jurusan1= '3' then jurusan2:='STRATA 1 - TEKHNIK INFORMATIKA '
else
if jurusan1= '4' then jurusan2:='STRATA 1 - SASTRA INGGRIS '
else
if jurusan1= '5' then jurusan2:='STRATA 1 - MENEJEMEN AKUNTANSI '
else
if jurusan1= '6' then jurusan2:='STRATA 1 - TEKHNIK INDUSTRI '
(*database bisa di update dan di masukkan lebih banyak lagi dg menggunakan fungsi IF*)
else
jurusan2:=' MAAF ANDA TIDAK TERDAFTAR SEBAGAI MAHASISWA UNIVERSITAS GUNADARMA ';
writeln;
writeln('Jurusan anda adalah : ',jurusan2);
writeln;

angkatan1:=copy (npm,4,2);
(*untuk mengambil string angka ke 4 sebanyak 2 karakter*)
val(angkatan1,y,z);
if y>81 then
writeln('Anda adalah mahasisa Universitas Gundarma angkatan 19',y)
else
if y<10 then
begin
str(y:1,angkatan2);
insert('0',angkatan2,1);
writeln('Anda adalah mahasiswa Universitas Gunadarma angkatan 20',angkatan2);
end;
readln;
end.



program String dari C++

#include
#include
using namespace std;

int main ()
{
char *line = “NAMA MAHASISWA”;

// with no arguments
string s1;
s1 = (line);
cout << "s1 adalah: " << s1 << endl;

// copy constructor
string s2 = "WAHYUDIN";
cout << "s2 adalah: " << s2 << endl;

// one argumen
string s3 = "FAHMI";
cout << "s3 adalah: " << s3 << endl;

string s4 = "RASYID";
cout << "s4 adalah: " << s4 << endl;

string s5 = "RAHMAT";
cout << "s5 adalah: " << s5 << endl;

string s6 = "MUKLIS";
cout << "s6 adalah: " << s6 << endl;

string s7 = "ADIT";
cout << "s7 adalah: " << s7 << endl;

string s8 = "BAGUS";
cout << "s8 adalah: " << s8 << endl;

string s9 = "IPANK";
cout << "s9 adalah: " << s9 << endl;

string s10 = "YUSUF";
cout << "s10 adalah: " << s10 <<endl;

system("pause");
return 0;
}