Upper Case String Converter in Turbo Pascal

Here is a sample program that I wrote using Turbo Pascal 6 For DOS to ask the users name and then our program will convert the given users name into upper case letters. The code is very easy to understand and use. Thank you.

My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Sample Program Output

Program Listing

Program Upper_Case_Convert;

Uses Crt;

Var User_Name,Result : String;

Function StringUpper(s:String):String; 

var 

i:byte; 

begin 

  for i:=1 to length(s) do s[i]:=Upcase(s[i]); 

  StringUpper := s; 

end; 

Begin

  Clrscr;

  Writeln;

  textcolor(White);

  Write('Upper Case Converter in Turbo Pascal');

  Writeln;

  Writeln;

  Write('Enter you Name : ');

  Readln(User_Name);

  Result := StringUpper(User_Name);

  Writeln;

  Writeln;

  Write(' Hello ' ,Result,'.');

  Writeln;

  Writeln;

  Write('End of Program');

  Writeln;

  Readln;

End.