n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/UpLowCase.pas

24 строки423 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// ������� UpCase LowCase UpperCase LowerCase
var
  c: char;
  s: string;
begin
  cls;
  for c:='a' to 'z' do
    write(UpCase(c));
  writeln;
  for c:='A' to 'Z' do
    write(LowCase(c));
  writeln;
  for c:='�' to '�' do
    write(UpCase(c));
  writeln;
  for c:='�' to '�' do
    write(LowCase(c));
  writeln;
  s:='���� � ���� ���� � ����������';
  s:=UpperCase(s);
  writeln(s);
  s:=LowerCase(s);
  writeln(s);
end.