Teknik Informatika: 12/27/12

Program String Pascal dan Turbo C++

Listing Program Pascal

program cobastring;

uses crt;

var

pil,hasil:integer;

s,s1,s2,hasilconcat,x1,x2:string;

a,x:integer;

jawab:char;

begin

clrscr;

repeat;

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

writeln('');

writeln('1.Mencari Panjang Dari Sebuah Data');

writeln('2.Menggabungkan Isi Dari 2 Buah Data');

writeln('3.Menyisipkian Isi Dari Sebuah Data');

writeln;

write('Masukkan nomor sesuai menu yang anda pilih : '); readln(pil);

case pil of

1:begin

writeln;

write('Masukkan Sebuah Data : '); readln(s);

a:=length(s);

writeln('panjang Data : ',a);

readln;

end;

2:begin

writeln;

write('Masukkan Data 1 : '); readln(s1);

writeln;

write('Masukkan Data 2 : '); readln(s2);

hasilconcat:=concat(s1,s2);

writeln;

writeln('Data baru : ',hasilconcat);

readln;

end;

3:begin

writeln;

write('masukkan Data 1 : '); readln(x1);

writeln;

write('masukkan Data 2 : '); readln(x2);

writeln;

write('pada posisi keberapa Data 1 akan disisipkan ke Data 2 : '); readln(x);

insert(x1,x2,x);

writeln;

writeln('Data baru : ',x2);

readln;

end;

clrscr;

writeln('apakah anda ingin kembali ke menu ? (Y/T)'); readln(jawab);

until(jawab='t');

end.

Input dan Output

Listing Program C++

#include<stdio.h>

#include<conio.h>

#include<string.h>

main()

{

char Data1[20],Data2[20];

int hasil;

clrscr();

printf("=====Membandingkan Data=====");

printf("\n");

printf("Data Pertama : ");gets(Data1);

printf("Data Kedua : ");gets(Data2);

printf("_____________________________");

hasil = strcmp(Data1,Data2);

if (hasil > 0) printf("\n\nData1 > Data2...");

else

if (!hasil) printf("\n\nSama...");

else printf("\n\nData1 < Data2...");

getch();

}