Uppercase Program in Turbo Pascal

Here is a very simple program that I wrote in Turbo Pascal for Windows that will ask the user to give a word or a string in all lower case letters and then it will convert it into upper case format.

I am currently accepting programming work, it project, school programming projects , thesis and capstone projects, IT consulting work and web development work kindly contact me in the following email address for further details.  If you want to advertise in my website kindly contact me also in my email address also. Thank you.

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

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is  +63 (034) 4335675.

Sample Program Output

Program Listing

uppercase.pas

(* Written By: Mr. Jake R. Pomperada *)

(* May 22, 2018                      *)

Program UpperCasePascal;

Uses WinCrt;

Type

  MaxStr = String[255];

Var

  s : MaxStr;

Function UpCaseStr(s : MaxStr) : MaxStr;

Var

 i,j : Integer;

Begin

 j := ord(s[0]);

 For i := 1 to j Do

   s[i] := Upcase(s[i]);

 UpCaseStr :=s;

End;

Begin

  Write('Uppercase Program in Turbo Pascal');

  Writeln;

  Writeln;

  Write('Written By Mr. Jake R. Pomperada, MAED-IT');

  Writeln;

  Writeln;

  Write('Give a String : ');

  Readln(s);

  Writeln;

  Writeln;

  Write('The uppecase equivalent is ' ,UpcaseStr(s),'.');

  Writeln;

  Writeln;

  Writeln('End of Program');

  Writeln;

  Readln;

End.