Program Membalik Kalimat Dengan Pascal
13/01/2011 17:00di 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..^_^
Tags:
———
Back