String case: Difference between revisions
Content added Content deleted
Line 14: | Line 14: | ||
Put_Line(To_Lower(S)); |
Put_Line(To_Lower(S)); |
||
end Upper_Case_String; |
end Upper_Case_String; |
||
==[[Forth]]== |
|||
[[Category:Forth]] |
|||
create s ," abc123" |
|||
s count type \ shows: abc123 |
|||
s count 2dup upper type \ shows: ABC123 |
|||
s count 2dup lower type \ shows: abc123 |
|||
==[[JavaScript]]== |
==[[JavaScript]]== |
Revision as of 19:03, 12 February 2007
![Task](http://static.miraheze.org/rosettacodewiki/thumb/b/ba/Rcode-button-task-crushed.png/64px-Rcode-button-task-crushed.png)
You are encouraged to solve this task according to the task description, using any language you may know.
Demonstrates how to convert a string to UPPER CASE.
Ada
with Ada.Characters.Handling; use Ada.Characters.Handling; with Ada.Text_Io; use Ada.Text_Io; procedure Upper_Case_String is S : String := "alphaBETA"; begin Put_Line(To_Upper(S)); Put_Line(To_Lower(S)); end Upper_Case_String;
Forth
create s ," abc123" s count type \ shows: abc123 s count 2dup upper type \ shows: ABC123 s count 2dup lower type \ shows: abc123
JavaScript
var s = "1234.56"; var UPS = s.toUpperCase(); //or .toLowerCase() alert(UPS); //Or, to test in web browser URL: javascript:s="alphaBETA";alert(s.toUpperCase())
Perl
Interpreter: Perl v5.x
my $string = uc('string to uppercase');
Python
s = "alphaBETA" print s.upper() #or s.lower()
SQL
--tested in Microsoft SQL 2005 declare @s varchar(10) set @s = 'alphaBETA' print upper(@s) print lower(@s)