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










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

 

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

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

PROGRAM PRG3_4;

VAR SI : STRING;

MAX, MIN, I, J : INTEGER;

BEGIN

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

READLN(SI);

J := POS('.', SI);

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

MAX := 0;

MIN := 256;

REPEAT

I := POS(' ', S1);

DELETE(S1, 1, I);

IF M>MAX THEN

MAX := I-1;

IF (M<MIN)AND(I>1) THEN

MIN := I-1;

UNTIL I = 0;

WRITELN('CAMOE ƒЋ»ЌЌќ≈ —Ћќ¬ќ MAX = ', MAX);

WRITELN('CAMOE  ќ–ќ“ ќ≈ —Ћќ¬ќ MIN = ', MIN)

END.

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

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

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

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

- устанавливаем начальные значени€ ћј’ и MIN;

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

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

- в случае необходимости переустанавливаем значени€ ћј’ и MIN;

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

ѕеременные:

I - номер позиции, котора€ соответствует пробелу;

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

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

ћј’ - длина наибольшего слова;

MIN - длина наименьшего слова.


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

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


 
     
   
 


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

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

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

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

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


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

 


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