Работа со строками

@paradoxonix · Регистрация: 01.10.2009

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

Разработать схему алгоритма и программу, которая подсчитает количество больших букв в тексте.

@кот Бегемот · 22.11.2009, 22:57

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

Разработать схему алгоритма и программу, которая подсчитает количество больших букв в тексте.

Pascal

var
a:string;
i,n,kol:integer;
begin
readln(a);
for i:=1 to length(a) do
 if (ord(a[i])>=65)and(ord(a[i])<=90)or(ord(a[i])>=128)and(ord(a[i])<=159)then inc(kol);
 writeln(kol);
 end.

@paradoxonix · 23.11.2009, 22:26 **[ТС]**

Вопрос что делает функция ord и inc? И можно ли эту задачку реализовать с помощью функции Post

@yanyk1n · 23.11.2009, 22:29

ord возвращает номер символа по таблице ASCII
inc(p) - p:=p+1

@paradoxonix 0 / 0 / 0 Регистрация: 01.10.2009 Сообщений: 31
		1
	Работа со строками 22.11.2009, 22:19. Показов 640. Ответов 3 Метки нет (Все метки) Разработать схему алгоритма и программу, которая подсчитает количество больших букв в тексте. 0

@paradoxonix 0 / 0 / 0 Регистрация: 01.10.2009 Сообщений: 31
	23.11.2009, 22:26 [ТС]	3
	Вопрос что делает функция ord и inc? И можно ли эту задачку реализовать с помощью функции Post 0

@yanyk1n 4342 / 1474 / 680 Регистрация: 12.03.2009 Сообщений: 5,310
	23.11.2009, 22:29	4
	ord возвращает номер символа по таблице ASCII inc(p) - p:=p+1 0