Home   Easy-Code    Forum  Updater 
Twitter Facebook



Program to insert blank spaces between letters using pascal

Critics Rating:

Users Rating:

(*PROGRAM TO INSERT BLANK SPACES BETWEEN LETTERS*)

program insert;

uses crt;

var

i,j:integer;

A,B:Array[1..100]of char;

begin

clrscr;

writeln("ENTER ANY SENTENCE ");

i:= 0;

repeat

i:=i+1;

read(A[i]);

until A[i] = ".";

i:=0;

j:=1;

repeat

i:=i+1;

B[j]:=A[i];

j:=j+1;

B[j]:=" ";

j:=j+1;

until A[i]=".";

j:=1;

repeat

write(B[j]);

j:=j+1;

until (B[j]=".");

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.