«аочное дистанционное образование с получением государственного диплома через Internet










ѕолучить информацию о поступлении
 
√лавна€ Ќовости  арта сайта ‘отоальбом √остева€ книга  онтакты

{LTS}

 

”пражнение 3 (—имвольные переменные и строки)

ƒана строка символов до точки. √руппы символов в ней между группами пробелов считаютс€ словами. ѕосчитать, сколько слов содержит данна€ строка.

PROGRAM PRG3_3;

VAR S1 : STRING;

J,  , I : INTEGER;

BEGIN

WRITELN('BBEƒ»TE “≈ —“ ƒќ “ќ„ »');

READLN(S1);

J := POS('.Т, S1);

IF S1[J-1] = " THEN

K:=-1

ELSE

  := 0;

S1 :=COPY(S1, 1, J-1);

REPEAT

I := POS(С. ', S1);

DELETE(S1, 1, I);

IF K>1 THEN

K:=K+1;

UNTIL I = 0;

WRITELN('KќЋ»„≈—“¬ќ —Ћќ¬   = ',  )

END.

ƒл€ решени€ задачи:

- формируем тело программы и описываем переменные;

- вводим строку S1;

- определ€ем местоположение первой точки в тексте; если точка есть, то отрезаем от S1 текст начина€ с нее;

- организуем поиск в строке пробелов до тех пор, пока они там встречаютс€;

- найд€ пробел, отрезаем очередное слово и следующий за ним пробел;

- если в найденном слове есть хот€ бы одна буква, то увеличиваем счетчик слов;

- выводим результат на экран.

ѕеременные:

I - вспомогательна€ переменна€;

J - местоположение первой точки;

S1 - строка текста;

  - счетчик слов.


”знать как сэкономить в кризис моно на сайте ekonom-it.ru

”пражнение 3 (ќбработка числовых последовательностей) ”пражнение 4 (ќбработка числовых последовательностей) «адачи на тему "—имвольные переменные и строки" ”пражнение 1 (—имвольные переменные и строки) ”пражнение 2 (—имвольные переменные и строки) ”пражнение 4 (—имвольные переменные и строки) «адачи на тему "ќдномерные массивы" ”пражнение 1 (ќдномерные массивы) ”пражнение 2 (ќдномерные массивы) ”пражнение 3 (ќдномерные массивы) 


 
     
   
 


ѕриглашаем прин€ть участие в круглом столе!
подробнее   >>>
 

»нститут ћенеджмента, Ёкономики и »нноваций начинает набор на курсы повышени€ квалификации!
подробнее   >>>
 

”важемые студенты јЌќ ¬ѕќ »ћЁи»!
подробнее   >>>
 

Ќачинаетс€ набор на курсы повышени€ квалификации!
подробнее   >>>
 

ѕриглашаем прин€ть участие в конференци€х!
подробнее   >>>
 


все новости...

 


–ассылки Subscribe.Ru
—овременное образование
ѕодписатьс€ письмом