Posted by Materi Teknik Informatika • Informasi Teknologi Informasi • Digital Marketing on 9/20/2014
program operasi_string_menghitung_dan_menampilkan_jumlah_kata;uses crt;
var jumkata,total,posisi: integer;
kal,kata1,kata2: string;
PROCEDURE jumlah(kata: string; var JK: integer);
var x: integer;
begin
if (kata[1]=' ') then JK:=0
else JK:=1;
for x:=1 to length(kata) do
begin if (kata[x]=' ') and (kata[x+1]<>' ') and (kata[x+2]<>' ') then inc(JK)
else if (kata[x]='_') and (kata[x-1]<>' ') and (kata[x+1]<>' ') then inc(JK);
end;
end;
begin
writeln('=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-');
writeln('*Program Menghitung Jumlah Kata Dalam Kalimat*');
writeln('=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-');
writeln('');
write('Masukan Kalimat : '); readln(kal);
jumlah(kal,jumkata);
writeln('=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-');
writeln('Jumlah Kata dalam Kalimat di atas Sebanyak : ',jumkata,' buah');
writeln;
total:=length(kal);
posisi:=pos(' ',kal);
kata1:=copy(kal,1,posisi);
kata2:=copy(kal,posisi+1,total);
writeln('Hasil Kata dari Kalimat di Atas adalah');
writeln('==============================================');
writeln('Kata Pertama : ',kata1);
writeln('Kata Kedua & Seterusnya : ',kata2);
readln;
end.
