Немного доделать программу

@BasiG · Регистрация: 19.10.2013

Author24 — интернет-сервис помощи студентам

Есть программа, которая ищет слова в строке, начинающиеся с заданной буквы.

Pascal

var
 st: string;
 i,count: integer;
 a: char;
begin
 readln(a);
 readln(st);
  for i:=1 to length(st) do
    if (st[i]=a) and (st[i-1]=' ') or (st[i]=a) then
     inc(count);
 writeln(count);
end.

Но, к сожалению, переменная а не может учитывать строчные и БОЛЬШИЕ буквы одновременно. Как это исправить?

@rangerx · 14.11.2013, 22:50

Сообщение от BasiG

Как это исправить?

Привести сравниваемые символы к общему регистру.

@APALoff · 15.11.2013, 10:02

UpCase (функция)
Преобразовывает символ из нижнего в верхний регистр.

Объявление:
Function UpCase(Ch : Char) : Char;

Замечания:
Ch - выражение типа Char. Результат типа Char, преобразованный из нижнего в
верхний регистр. Символьные значения, не находящиеся в диапазоне ['a' ..
'z'], остаются неизменными.

@rangerx 2022 / 1621 / 489 Регистрация: 31.05.2009 Сообщений: 3,005
	14.11.2013, 22:50	2
	Сообщение от BasiG Как это исправить? Привести сравниваемые символы к общему регистру. 0

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	15.11.2013, 10:02	3
	UpCase (функция) Преобразовывает символ из нижнего в верхний регистр. Объявление: Function UpCase(Ch : Char) : Char; Замечания: Ch - выражение типа Char. Результат типа Char, преобразованный из нижнего в верхний регистр. Символьные значения, не находящиеся в диапазоне ['a' .. 'z'], остаются неизменными. 0