Program Pascal Kata / Kalimat Dibalik
Wednesday, April 24, 2019
Edit
Program Pascal Kata / Kalimat Dibalik
uses crt ;
var
kata, kt,tx :string;
pj, i :integer;
ul :char;
begin
ul:='Y';
while upcase(ul)='Y' do
begin
clrscr;
write ('input kata/kalimat :'); readln(kata);
pj:=length(kata);
kt:=''; tx:='' ;
for i:=pj downto 1 do
begin
tx:=copy(kata,i,1);
kt:=kt+tx;
end;
writeln (' Hasil : ', kt);
write('Coba Lagi y/t ? :');readln(ul);
end;
end.