Попробуй убрать из тела программы этот тип, тем-более, что он уже описан у тебя в интерфейсе модуля.
Turbo Pascal
- Автор теми NebsteR
- Дата створення
B
bllem
Guest
length();
HED
New Member
а у тебя как, строка символов(типа буквы, цыфры и знаки препиная) и нада посчитать буквы?
1)если просто строка с буквами, то достаточно просто length() - в скобках переменная, обозначающая твою строку, тогда эта функция просто возвращает длину строкиж
2) если у тебя в строке разные символы, то тут уже веселей немного. нада писать как с массивом
............
var s:string; {твоя строка}
i:integer; {указатель на элемент строки}
k:integer; {количество букв}
begin
...........
k := 0;
for i := 1 to length(s) do
if ((s >= 'a') and (s <= 'z')) or ((s >= 'A') and (s <= 'Z')) {можеш есче для руских букв дописать}then
k := k + 1;
writeln(k);
........
ну от у тебя должно біть шото типа этого во втором случае.
Sunsay
Member
Я уже написал как ты предлагаешь во втором случае,но только написал ему от A до z и он вроде бы то прохавал эту тему.А чтобы для русских писать так надо кейрус а нету его у мну. 
И ещё,он вот этот символ как букву распознаёт ^. Это часом не результат того, что я сразу указал с А до z?
Спасибо за то что откликнулись.
И ещё,он вот этот символ как букву распознаёт ^. Это часом не результат того, что я сразу указал с А до z?Спасибо за то что откликнулись.
