Program Pada Pascal

* Bagaimana MENCARI PANJANG DARI SEBUAH STRING PADA PASCAL

* Bagaimana MENGGABUNGKAN ISI DARI 2 BUAH STRING PADA PASCAL

* Bagaimana MENYISIPKAN ISI DARI SEBUAH STRING KEDALAM STRING LAIN PADA PASCAL

* PROGRAM BERBENTUK PILIHAN MENU

INI ADALAH CODING NYA :

program menustring;
uses crt;
var

pil,hasil:integer;
s,s1,s2,hasilconcat,x1,x2:string;

a,x:integer;
jawab: char;

begin
clrscr;
repeat

writeln('----------------MENU-----------------');
writeln('1. Mencari panjang dari sebuah string');
writeln('2. Menggabungkan isi dari 2 buah string');
writeln('3. Menyisipkan isi dari sebuah string kedalam string lain');
writeln;
writeln;
write('masukkan nomer menu yang anda pilih : ');readln(pil);

case pil of

1: begin
writeln;
write('masukkan sebuah string:  ');readln(s);
a:=length(s);

writeln('Panjang string : ',a);
readln;
end;

2: begin
writeln;
write('masukkan string 1 : ');readln(s1);
writeln;
write('masukkan string 2 : ');readln(s2);
hasilconcat:=concat(s1,s2);

writeln;
writeln('string baru : ',hasilconcat);
readln;
end;

3:begin
writeln;
write('masukkan string 1 : ');readln(x1);
writeln;
write('masukkan string 2 : ');readln(x2);
writeln;
write('pada posisi ke berapa string 1 akan di sisipkan ke string 2 : ');readln(x);
insert(x1,x2,x);

writeln;
writeln('string baru : ',x2);
readln;
end;
end;
clrscr;
writeln('apakah anda ingin kembali ke menu ? (y/t)');readln(jawab);
until (jawab= 't');
end. 

OUTPUT PROGRAM :

Menu 1.

Menu 2.

Menu 3.

*PROGRAM UNTUK MENAMPILKAN JURUSAN DAN ANGKATAN SEORANG MAHASISWA DI UNIVERSITAS GUNADARMA BERDASARKAN NPM.

INI ADALAH CODING NYA :

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.

OUTPUT PROGRAM :