Строки, Подсчитать.... Опции

[Malice]

ой...А он мне и большие буквы считывает как за отдельные символы.Как сделать,чтобы и большая и маленькая буква были одинаковы???

Надо приводить все буквы к одному регистру, например с помощью такой функции:

Function UpCase(Ch: Char): Char;
begin
case Ch of
'a'..'z': UpCase := Chr(ord('A')+ord(Ch)-ord('a'));
'a'..'n': UpCase := Chr(ord('A')+ord(Ch)-ord('a')); 
'p'..'я': UpCase := Chr(ord('P')+ord(Ch)-ord('p'));
else
UpCase:= Ch 
end 
end;

да,ещё вопрос.ЧТо значит fillchar (b,sizeof (b),0); ???

Обнуление массива b.

[Rom1k]

а как потом эту функцию использовать в программе и как она работает скажи пожалуйста?!

[Rom1k]

я её вызываю после ввода строки
UpCase(с);

Только ничего почему-то не происходит(

Сообщение отредактировано: Rom1k - 6.05.2007 23:48

[Артемий]

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

и по старому далее

Добавлено через 3 мин.
В s теперь новая строка,с ней работай..

[Rom1k]

ты имеешь ввиду в конце на выходе? что-то ничего не просходит(

[мисс_граффити]

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

[Rom1k]

Вот код программы...Почему-то не учитывается большая или маленькая буква.Выводит всё также,хотя вроде бы и все правильно сделал!

Program kur_3;
uses crt;
var
 al:set of char;
 i: integer;
 st:string;
 c:char;
 b:array [char] of byte;

function UpCase(Ch:Char):Char;
begin
 case Ch of
  'а'..'п':UpCase:=Chr(ord('А')+ord(Ch)-ord('а'));
  'р'..'я':UpCase:=Chr(ord('Р')+ord(Ch)-ord('р'));
  'А'..'Я':UpCase:=Chr(ord('А')+ord(Ch)-ord('а'));
 else
  UpCase:=Ch;
 end;
end;

Begin
 fillchar (b,sizeof (b),0);
 WriteLn('Введите строку слов,признак окончания-точка.');
  ReadLn(st);
 i:=1;
 al:=['а' .. 'п', 'р' .. 'я', 'А' .. 'Я'];
 repeat
   if (st[i] in al) then
    inc(b[st[i]]);
    inc(i);
    st[i]:=UpCase(st[i]);
 until(i>length(st)) or (st[i]='.');
 for c:=#0 to #255 do
  if b[c]>0 then
   writeln (c,'-',b[c]);
End.

[Rom1k]

я наверное что-то неправильно в процедуре написал.Или не правильно её использовал(

[Malice]

я наверное что-то неправильно в процедуре написал.Или не правильно её использовал(

Наверное ты ее скопировал неправильно.. Да и st[i]:=UpCase(st[i]); лучше после repeat поставить.

[Rom1k]

Вот прикрепил программу.Я там все,что можно пытался переделать.Но ничего не помогает.Несколько раз перепроверял,всё равно Буквы большие и маленькие считает за разные.Помогите пожалуйста переделать?!

[Артемий]

Знаешь,если как я смотреть без компилятора,то вроде должно работать..

Добавлено через 3 мин.
И может

al:=['А'..'Я'];

?

[Malice]

Проверь, не поставил ли ты в функции UpCase неправильно буквы диапазона, т.е.:
'а'..'п':UpCase:=Chr(ord('А')+ord(Ch)-ord('а'));
'р'..'я':UpCase:=Chr(ord('Р')+ord(Ch)-ord('р'));
'А'..'Я':UpCase:=Chr(ord('А')+ord(Ch)-ord('а'));
все веделенные буквы должны быть русскими.

[Rom1k]

всё ... UpCase мне не надо.А терь можете исправит,если что не правильно

var
 al:set of char;{???}
 i: integer; {позиция буквы в строке}
 st:string;{строка ввода}
 c:char; {???}
 b:array [char] of byte;{Сохраняет символ массива,кот попался}

и вот сюды нужны комменты(((

WriteLn('Введите строку слов,признак окончания-точка.');
  ReadLn(st);
 i:=1;
 al:=['а' .. 'п', 'р' .. 'я', 'А' .. 'Я']; {буквы русского алфавита}
 repeat
   if (st[i] in al) then {Если в строке есть символ сассива}
    inc(b[st[i]]); 
    inc(i);
 until(i>length(st)) or (st[i]='.');
 for c:=#0 to #100 do
  if b[c]>0 then
   writeln (c,'-',b[c]);

Сообщение отредактировано: Rom1k - 9.05.2007 14:45

[Rom1k]

никто не может помочь?

[Malice]

никто не может помочь?

Чем ?
Объясни, прога работает ? Какие строки вызывают у тебя затруднение ?

[Rom1k]

мне нужны комменты к этой проге.я просто не оч понимаю,как,что работает.смотрел отладчиком,вроде бы понимаю все,а когда пишу комментарии не оч красиво получается(

[Rom1k]

кто-нить может помочь?