Home   Easy-Code    Forum  Updater 
Twitter Facebook



Program to change low case to up case after a blank space using pascal

Critics Rating:

Users Rating:

(*PROGRAM TO CHANGE LOW CASE TO UP CASE AFTER A BLANK SPACE*)

Program upper;

uses crt;

var

a:array[1..100] of char;

i: integer;

begin

clrscr;

writeln("ENTER ANY SENTENCE IN LOWER CASE ");

i:=0;

repeat

i:=i+1;

read(a[i]);

until a[i]=".";

i:=0;

repeat

if (i=0) or (a[i]=" ") then

a[i+1]:=chr(ord(a[i+1])-32);

i:=i+1;

until a[i]=".";

i:=1;

repeat

write(a[i]);

i:=i+1;

until a[i]=".";

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.