Главное меню  

   

Авторизация  

   
   
Хостинг в Украине
   


49.9%Russian Federation Russian Federation
24.5%Ukraine Ukraine
14.6%United States United States
1.9%Belarus Belarus
1.1%Romania Romania
0.8%Kazakhstan Kazakhstan
0.8%Czech Republic Czech Republic
0.7%United Kingdom United Kingdom
0.6%Republic Of Moldova Republic Of Moldova
0.6%Kuwait Kuwait

Сегодня: 46
Вчера: 315
На этой неделе: 1912
На прошлой неделе: 2232
В этом месяце: 6384
В прошлом месяце: 6131
Всего: 19365


   

Учитель информатики Бамбуркин С.П.

Записи

  • Главная
    Главная Страница отображения всех блогов сайта
  • Категории
    Категории Страница отображения списка категорий системы блогов сайта.

Программирование обработки строк символов

Добавлено : Дата: в разделе: 10 класс

1. Дана строка, заканчивающаяся точкой. Подсчитать, сколько слов в строке.

var s:string;
c,k:byte;
begin
c:=0;
{Пока у вводимой строке нет точки, продолжаем вводить}
repeat
if c<>0 then writeln('Нет точки или в строке одна точка. Введите строку с точкой и длиной больше 1 символа');
writeln('Введите несколько слов заканчивающихся точкой:');
readln(s);
inc(c)
until s[length(s)]='.';
{Во избежание того, что бы не посчитать слово между двумя пробелами, ведь если просто
считать пробелы в строке, то отправив строку с одими пробелами можно получить неожиданый результат, удаляем места, где есть два пробела и оставляем один}
c:=pos('__',s); {тут __=два пробела}
while c<>0 do
begin
delete(s,c+1,1);
c:=pos('__',s) {тут __=два пробела}
end;
{На всякий случай удаляем пробелы (если они есть) с начала строки и перед точкой}
if s[1]=' ' then delete(s,1,1);
if s[length(s)-1]=' ' then delete(s,length(s)-1,1);
{Проводим сам подсчет}
c:=1;
k:=pos(' ',s);
while k<>0 do
begin
delete(s,k,1);
inc(c);
k:=pos(' ',s);
end;
writeln('Слов:',c);
writeln('Конец');
end.

Редактировалось Дата:

Комментарии   

 
0 # Marshall 04.10.2017 04:33
paydayloans
personal loans online: https://getloansusapersonal.com/
payday express
personal loans online: https://getloansusapersonal.com/
Ответить
 

Добавить комментарий


Защитный код
Обновить

   
© 2012 fordus.