Главное меню  

   

Авторизация  

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


50.6%Russian Federation Russian Federation
22.9%Ukraine Ukraine
15%United States United States
2%Belarus Belarus
1.5%Czech Republic Czech Republic
1.2%Romania Romania
0.9%Kazakhstan Kazakhstan
0.9%France France
0.8%Kuwait Kuwait
0.6%United Kingdom United Kingdom

Сегодня: 11
Вчера: 197
На этой неделе: 1532
На прошлой неделе: 2191
В этом месяце: 7029
В прошлом месяце: 7374
Всего: 24838


   

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

Записи

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

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

Добавлено : Дата: в разделе: 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 # Leanne 23.11.2017 01:01
Hello! I just wanted to ask if you ever have any problems with hackers?
My last blog (wordpress) was hacked and I ended up losing a few months of hard work due to no data backup.
Do you have any methods to prevent hackers?

Have a look at my weblog - пантогор бубновский сергей михайлович: https://grantleeper81.wordpress.com
Ответить
 
 
0 # Chau 04.12.2017 19:32
The CBOE gives two binary choices for trade.

Also visit my blog post ... binary
options trading platforms review: https://www.docspal.com/viewer?id=dqluttdb-13120256
Ответить
 
 
0 # Hellen 17.12.2017 22:01
All the Mylab Box check kits are FDA accredited.

Look at my web blog; mylab box coupon: http://bmgt3123.com/wiki/User:VedaDelany19664
Ответить
 
 
0 # Leslee 30.12.2017 07:07
payday loans no credit check
online loans direct lenders: http://loansmart24.com/
payday loans bad credit
payday loans bad credit: http://loansmart24.com/
Ответить
 
 
0 # Hermelinda 30.12.2017 14:37
Hey there, You have done an excellent job. I'll definitely
digg it and personally suggest to my friends. I'm sure
they'll be benefited from this site.

Have a look at my page ... http: https://cullenburrow46.wordpress.com
Ответить
 
 
0 # Ashleigh 02.01.2018 15:37
payday loans online no credit check
payday loans online bad credit: http://loansmart24.com/
loans online bad credit
payday loans online bad credit: http://loansmart24.com/
Ответить
 
 
0 # Kelsey 08.01.2018 00:06
WHY CHOOSE REASONABLY PRICED SAFETY GUARDS, INC.

my blog security guard services in delhi: https://www.wiziq.com/tutorial/1553811-do-you-need-security-guard-services
Ответить
 
 
0 # Elias 09.01.2018 04:18
Shorter time period loans have even greater
APRs.

my web-site - cash loans australia: http://ge.tt/7JOnG1o2
Ответить
 
 
0 # Christina 09.01.2018 08:12
Anyway, below is our summary overview for EcoSlim.


Here is my web-site ... gym training: http://ge.tt/1UeRC1o2
Ответить
 
 
0 # Christina 12.01.2018 04:47
casino games free online
online casino real money: http://slotsmegacasino.com/
casino games roulette
casino games free: http://slotsmegacasino.com/
Ответить
 
 
0 # Efrain 18.01.2018 01:43
online loans
payday loans online legit: http://loansmart24.com/
online payday loans tx
payday loans bad credit: http://loansmart24.com/
Ответить
 
 
0 # Francesco 18.01.2018 19:59
real money casino online
us online casinos: http://bablcasinogames.com/
casinos in us
casinos in us: http://bablcasinogames.com/
us online casinos
Ответить
 
 
0 # Forest 19.01.2018 07:12
play slots for real money
list of all harrah's casinos: http://bablcasinogames.com/
online casinos for us players
online casino bovada: http://bablcasinogames.com/
online casinos real money
Ответить
 
 
0 # Joshua 04.02.2018 04:03
diet pills prescription
weight loss programs: http://topbestdietsusa.com/
weight loss pills
weight loss pills for men: http://topbestdietsusa.com/
Ответить
 
 
0 # Mellissa 04.02.2018 18:34
best diet pills for men
best diet pills 2018: http://topbestdietsusa.com/
weight loss pills for women
weight loss supplements: http://topbestdietsusa.com/
Ответить
 
 
0 # Ara 05.02.2018 02:28
You may as well go to us for std testing similar-day outcomes.



Also visit my page STD Testing Near Me: http://andersonrfsf58136.blogzag.com/2530142/master-the-art-of-std-testing-near-me-with-these-7-tips
Ответить
 

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


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

   
© 2012 fordus.