Navigace: Hlavní stránka -> PASCAL -> 10 Znaky, texty ->10.05 Převod textu na velká písmena

MENU

10.05 Převod textu na velká písmena

Zadání:
Sestavte program, který převede text na velká písmena.
Řešení:
Program prochází pomocí cyklu FOR zadaný text a jednotlivé znaky převádí pomocí funkce upcase. 
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var s:string;
    i:integer;

begin

   write('Zadejte text: ');
   readln(s);

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

   writeln('Upraveny retezec: ',s);

   readln;

end.
program ke stažení