FOLLOW TWITTER

WELCOME TO MY BLOG,HOPE YOU ENJOY THE PRESENTATION OF ARTICLES AND INFORMATION AVAILABLE,IF YOU WOULD LIKE TO COPY THIS BLOG ARTICLE SPECIFY THE SOURCE,FOLLOW TWITTER @diazkp & @ChitUM_UG,THANK YOU.

Minggu, 06 Maret 2011

Pascal Looping Perulangan Menggunakan Fungsi For

uses wincrt;
var
kata: string;
i,j,pjg : byte;
begin
write(‘Masukkan Kata:’);readln(kata);
pjg:= length(kata);
for i:=1 to pjg do
begin
for j:=1 to i do
write(kata[j]);
writeln;
end;
for i:=1 to pjg do
begin
for j:=1 to pjg-i+1 do
write(kata[j]);
writeln;
end;
end.

Tidak ada komentar:

Poskan Komentar