String

Program Membalik Kalimat Dengan Pascal

Posted on Updated on


di kesempatan kali in saya akan sharing sedikit tentang program yang saya buat dalam rangka latihan menuju tes <SENSOR>,,hehee…

program yang akan dibuat adalah program untuk membalik kata – kata dalam kalimat yang diinput , langsung aja cek listingnya..

Listing program:

uses crt;

var

s,t,u,v,w,x,y,z:string;

p,q,i,j,k:integer;

begin

clrscr;

writeln(‘masukan kalimat yang akan dibalik: ‘);

readln(s);

p:=length(s);

i:=1;

for q:=p downto 1 do

begin

insert(s[q],t,i);

inc(i);

end;

writeln(t);

readln();

end.

Output:
perlu diperhatikan bahwa dengan listing program diatas program akan membalik huruf-huruf pada kalimat yang diinput dan juga membalik kata – katanya,, kata pertama akan menjadi kata terakhir dalam output program, demikian juga sebaliknya.
saya juga membuat program untuk membalik klaimat tetapi dengan posisi kata dalam kalimatnya tidak ikut terbalik, demikian listingnya:
uses crt;
var
s,t,u,v,w,x,y,z:string;
p,q,i,j,k:integer;
pos : array[1..100] of integer;
begin
clrscr;
writeln(‘masukan kalimat yang akan dibalik: ‘);
readln(s);
p:=length(s);
i:=1;
for j:=1 to p do
begin
if s[j]=’ ‘ then
begin
pos[i] := j;
inc(i);
end;
end;
pos[i]:=p+1;
k:=1;
for p:=1 to i do
begin
if p = 1 then
begin
for q:= pos[p]-1 downto 1 do
begin
insert(s[q],t,k);
inc(k);
end;
end
else
begin
for q:=pos[p]-1 downto pos[p-1]+1 do
begin
insert(s[q],t,k);
inc(k);
end;
end;
insert(‘ ‘,t,k);
inc(k);
end;
writeln(t);
readln();
end.
output:
nah,, keliatan kan bedanya?? demikian artikel pemrograman saya semoga bermanfaat..^_^



Web development jakarta

Iklan