upcase.pas

Пример программы для функции UpCase.

Код примера
{UpCase.PAS}
 
{ Пример программы для функции UpCase}
 
Uses WinCrt;
 
Var S : String;
    I : Integer;
 
Begin
 Write('Введите строку: ');
 ReadLn(S);
 For I:=1 To Length(S) Do S[I]:=UpCase(S[I]);
 WriteLn('Строка заглавными буквами: ', S);
End.
 

Скачать upcase.pas