1 / 1 / 0
Регистрация: 07.11.2009
Сообщений: 49
1

необходимо подсчитать кол-во цифр в строке

04.02.2010, 13:48. Показов 1608. Ответов 2
Метки нет (Все метки)

необходимо подсчитать кол-во цифр в строке, не пойму где ошибка(( помогите, плиз...
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
s:string;
i,k:integer;
 begin
 k:=0;
 writeln('vvedite predlogenie');
 readln(s);
 for i:= 1 to length(s) do begin   
 if (s[i]=1) or (s[i]=2) or (s[i]=3) or (s[i]=4) or (s[i]=5) or (s[i]=6)
 or (s[i]=7)  or (s[i]=8) or (s[i]=9) then
 k:=k+1;                                
 end;
   write (k);
   readln;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.02.2010, 13:48
Ответы с готовыми решениями:

Подсчитать кол-во слов в строке (работает)
{ Подсчет кол-ва слов в текстовом файле } function CountWord(fn: string): Integer; var f:...

Как подсчитать кол-во нулей и единиц в строке?
Здравствуйте, Требуется подсчитать кол-во нулей и единичек в строке. Как это сделать если...

Подсчитать количество цифр в строке
Помогите пожалуйста. Нужен алгоритм подщета количества цыфр в строке.

Определить частоту символов в строке. Подсчитать кол-во символов повторяемых
Определить частоту символов в строке. Подсчитать кол-во символов повторяемых.

2
Добрый самаритянин
1107 / 622 / 139
Регистрация: 31.03.2009
Сообщений: 2,567
04.02.2010, 14:14 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
s:string;
i,k:integer;
 begin
 k:=0;
 writeln('vvedite predlogenie');
 readln(s);
 for i:= 1 to length(s) do begin
if s[i] in ['0'..'9'] then
 k:=k+1;
 end;
   write (k);
   readln;
end.
Добавлено через 1 минуту
лично в твоем коде вот:
Pascal
1
2
if (s[i]='1') or (s[i]='2') or (s[i]='3') or (s[i]='4') or (s[i]='5') or (s[i]='6')
 or (s[i]='7')  or (s[i]='8') or (s[i]='9') then
1
1 / 1 / 0
Регистрация: 07.11.2009
Сообщений: 49
04.02.2010, 14:25  [ТС] 3
точно!!!! мелочь забыл, совсем голова уже не варит(((
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.02.2010, 14:25
Помогаю со студенческими работами здесь

Подсчитать и напечатать отдельно, сколько в каждой строке матрицы содержится больших латинских букв и цифр
Заданная символьная матрица А (n, n), n>= 100 Разработать программу, которая подсчитывает и...

Excel. В строке необходимо подсчитать кол-во заданных символов
В ячейке (допустим 'C5') имеется строка с символами от а до г (без пробелов), как можно подсчитать...

Во введенной строке символов подсчитать кол-во цифр, слов. Считать, что предложения разделены точками.
Во введенной строке символов подсчитать кол-во цифр, слов. Считать, что предложения разделены...

Строки. Подсчитать кол-во четных цифр
11.Дана строка символов, содержащая не более 255 цифр. Необходимо подсчитать количество чётных цифр


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru