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

Посчитать количество символов, не являющихся пробелами

07.10.2015, 19:09. Показов 4197. Ответов 2
Метки нет (Все метки)

Будьте добры.Помогите с программой.
Вводится последовательность символов. Признак конца ввода – точка. Посчитать количество символов не являющихся пробелами.
Написать нужно через цикл While.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.10.2015, 19:09
Ответы с готовыми решениями:

Посчитать в последовательности количество символов, не являющихся пробелами
Вводится последовательность символов. Признак конца ввода – точка. Посчитать количество символов не...

Посчитать количество символов не являющихся пробелами
Вводится последовательность символов. Признак конца ввода – точка. Посчитать количество символов не...

Посчитать количество символов, не являющихся пробелами
Задачу реализуйте двумя способами, используя операторы do…while. Задание: Вводится...

Вводится последовательность символов. Признак конца ввода – точка. Посчитать количество символов не являющихся пробелами
Порядок выполнения работы 1.Изучите теоретическое обоснование и проанализируйте приведенные выше...

2
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7519 / 4383 / 2781
Регистрация: 22.11.2013
Сообщений: 12,543
Записей в блоге: 1
07.10.2015, 19:56 2
Pascal
1
2
3
4
5
6
7
8
9
10
var
  s: String;
  i, n: Integer;
begin
  Write('Введите строку: '); ReadLn(s);
  n:=0; i:=1;
  while (i<=Length(s)) and (s[i]<>'.') do
    if s[i]<>' ' then Inc(n);
  WriteLn('Не пробелов до ".": ',n);
end.
1
Почетный модератор
64275 / 47574 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
07.10.2015, 20:05 3
Лучший ответ Сообщение было отмечено hardiking как решение

Решение

Так вроде ближе к заданию.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var c:char;
    k:integer;
begin
clrscr;
writeln('Введите строку, окончание ввода точка');
k:=0;
repeat
c:=readkey;
write(c);
if c<>' ' then inc(k);
if c='.' then writeln;
until c='.';
write('Не пробелов=',k);{точка тоже не пробел, иначе k-1}
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.10.2015, 20:05
Помогаю со студенческими работами здесь

Дана строка символов. Группа символов между пробелами считается словом. Определить количество слов, являющихся палиндромом.
Дана строка состоящая из слов разделенных пробелом определить номера слов. Название темы изменено,...

Ввести строку символов, посчитать количество символов, не являющихся буквами английского алфавита
Ввести строку символов, если ее длина &gt;6, то посчитать количество символов, не являющихся буквами...

Посчитать количество символов, не являющихся цифрами, в строке
эээ...ну собственно в теме всё написано))) как строка будет заданна без разницы,можно и...

Удаление лишних символов (не являющихся буквами и пробелами) из строки при помощи регулярных выражений
Добрый день. Пытаюсь удалить лишние символы из строки (все, что не является буквами и пробелами)...

Дана строка символов, разделённых пробелами. Вывести i-e слово и количество символов в нём
Добрый день Нужна помощь с заданием вот само задание Дана строка символов, разделённых...

Посчитать количество строк с пробелами
В ричтекстбоксе 2 -3 5 0 1 -2 3


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

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

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