Home   Easy-Code    Forum  Updater 
Twitter Facebook



Program to print string triangle using pascal

Critics Rating:

Users Rating:

(*PROGRAM TO PRINT STRING TRIANGLE*)

program tri_str;

uses crt;

var

s:string;

c,l,i,j:integer;

begin

clrscr;

writeln("ENTER A STRING ");

read(s);

l:=length(s);

c:=1;

for i:=1 to l do

begin

for j:=c to c+i-1 do

if j<=l then

write(s[j]);

writeln;

end;

end.



Courtesy, Source, References & Regards: Kishore AVGK

While using this site, you agree to have read and accepted our terms of use and privacy policy.
Copyright@2009-2011 by KuGuNi.com. All Rights Reserved.