strupper.pas

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

Код примера
 {StrUpper.PAS}
 
 { Пример программы для функции StrUpper }
 
 Uses Strings, WinCrt;
 
 Var S : Array [0..79] Of Char;
 Begin
  ReadLn(S);
  WriteLn(StrUpper(S));
  WriteLn(StrLower(S));
 End.

Скачать strupper.pas