Pascal: Converting to Upper Case

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var a,b:string;
i,p:integer;
begin
 writeln('Enter a string');
 readln(a);
 b:='';
 for i:= 1 to length(a) do
  b:=b+upcase(a[i]);
 writeln (b);
 readln;
end.

Here is the code to convert from upper case to lower case:

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var a,b,c:string;
i,p:integer;

function lowcase(s:string):string;
var
i:integer; t:string;

begin
t:='';
for i:= 1 to length(s) do
if s[i] in ['A'..'Z'] then t:=t+ chr(ord(s[i])+32)
else
begin
t:=t+s[i];
writeln ('cannot convert ', chr(ord(s[i])), ' to lower case');
end;
lowcase := t;
end;

begin
writeln('Enter a string in lower case');
readln(a);
b:='';
for i:= 1 to length(a) do
b:=b+upcase(a[i]);
writeln (b);
writeln('Enter a string in upper case');
readln(c);
writeln(lowcase(c));
readln();
end.

Back to questions