Используя типизированную константу множество преоброзовать все маленькие русские буквы в верхний регистр

[VITIY]

Он повторяет строку и всё в таком же виде

[alex_fcsm]

Могу посоветовать может пригодиться в будущем:

Поробуй F7
Debug->Watch->add s,s[i] и тп

и пошагово(нажимая F7) отслеживай как работает программа

[VITIY]

да вот тока серавно не понятнол

[puporev]

Upcase вообще работает только с латинскими буквами, в Help загляните.
А русские бувы надо через их символы в таблице ANSII переводить, причем учесть, что для букв а..п одно значение для перевода, для р..я другое, и ё - третье. Задача примитивнейшая.

[VITIY]

да а где мне такую тоблицу взять

[VITIY]

а всё всё нашол

[VITIY]

а как их туда записать

[alex_fcsm]

Попробуй это(для остальных букв подбери формулу сам)

program bykvu;
uses crt;
type
M=set of byte;
const
smallLetters:M=[160,165,168,174];{а е,и, о}
var s:string;
    i:integer;
begin
clrscr;
readln(s);
for i:=1 to Length (s) do
  if ord(s[i]) in smallLetters then s[i]:=chr(ord(s[i])-32);
readln;
writeln(s);
end.

[VITIY]

спасибо alex_fcsm всё работает тока программа имеет вид:

program bykvu;
uses crt;
type
M=set of byte;
const
smallLetters:M=[160..239];
var s:string;
i:integer;
begin
clrscr;
readln(s);
for i:=1 to Length (s) do
if ord(s[i]) in smallLetters then s[i]:=chr(ord(s[i])-32);
readln;
writeln(s);
end.


а так всё робит

эшо раз спасибо тем кто помог да пусть ваша жизь сплошная белая полоса

[puporev]

Да не будет так нормально работать, так маленькие русские буквы идут в таблице с разрывом, писал же.

uses crt;
const mb1=['а'..'п'];
      mb2=['р'..'я'];
var s:string;
    i:integer;
begin
clrscr;
write('s: ');readln(s);
for i:=1 to length(s) do
if s[i] in mb1 then s[i]:=chr(ord(s[i])-32)
else if s[i] in mb2 then s[i]:=chr(ord(s[i])-80)
else if s[i]='ё'then s[i]:='Ё';
write(s);
readln
end.