Source Code Program Operasi String Pascal

Source Code Program Operasi String Pascal - Operasi String menggunakan kompiler Dev-Pascal, berikut ini Source Code Program yang bisa langsung diterapkan ke dalam kompiler Dev-Pascal.

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.

Sekian program tentang Source Code Program Operasi String Pascal, semoga bermanfaat.