LAPORAN 11
String Pascal
uses crt;
var
pil,hasil:integer;
s,s1,s2:string;
a,x:integer;
begin
clrscr;
textcolor(14);
writeln('=================================================');
textcolor(10);
writeln('PROGRAM
MENENTUKAN BANYAKNYA HURUF YANG DIGUNAKAN');
textcolor(128);
writeln('=================================================');
textcolor(15);
write('Masukkan kata Pertama : ');readln(s1);
write('Masukkan Kata Kedua : ');readln(s2);
textcolor(12);
s:=concat(s1,s2);
writeln('Berikut gabungan k2 kata tersebut : ',s);
a:=length(s);
write('Panjang Kata di atas adalah ',a);write(' huruf');
readln;
end.
Listing pascal string :
Output :
Sring
C++
#include <iostream.h>
#include <conio.h>
#include <string.h>
int main()
{
char nama_1[20];
char nama_2[20];
char nama_3[20];
//input string
cout<<"Program Penghitung Jumlah
Huruf Dalam Suatu Nama"<<endl;
cout<<"================================================"<<endl;
cout<<"Masukan nama pertama :
";cin.getline(nama_1,sizeof(nama_1));
cout<<"Masukan nama kedua :
";cin.getline(nama_2,sizeof(nama_2));
cout<<"Masukan nama ketiga :
";cin.getline(nama_3,sizeof(nama_3));
cout<<"================================================"<<endl;
cout<<"Nama pertama terdiri dari
"<<strlen(nama_1)<<" Huruf"<<endl;
cout<<"Nama kedua terdiri dari
"<<strlen(nama_2)<<" Huruf"<<endl;
cout<<"Nama ketiga terdiri
dari
"<<strlen(nama_3)<<"
Huruf"<<endl<<endl;
getch ();
}
Listing String C++ :
output