Wednesday, April 26, 2017

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.




No comments:

Post a Comment