Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 30.05.2012
Сообщений: 6
1

Напечатать те слова последовательности, которые отличны от последнего слова

22.06.2012, 18:13. Просмотров 1526. Ответов 1
Метки нет (Все метки)


Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать те слова последовательности, которые отличны от последнего слова и удовлетворяют следующему свойству: длина слова минимальна

Добавлено через 6 минут
пожалуйста помогите обыскал все форумы не нашёл
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.06.2012, 18:13
Ответы с готовыми решениями:

Напечатать те слова последовательности которые отличны от последнего слова и длина слова максимальна
Дана последовательность, содержащая от 2 до 20 слов, в каждом из которых от 1 до 8 строчных...

Дан текст.Напечатать те слова последовательности ,которые симметричны и отличны от последнего слова
Дан текст.Напечатать те слова последовательности ,которые симметричны и отличны от последнего слова

Напечатать те слова последовательности, которые отличны от последнего слова и удовлетворяют следующему свойству
Дана последовательность слов. Напечатать те слова последовательности, которые отличны от последнего...

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

1
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 8,000
Записей в блоге: 1
23.06.2012, 09:23 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Var s,s1,t,p:string;
    min:byte;
Begin
    write('Введите строку: ');readln(s);
    Delete(s,Pos('.',s),1);min:=255;t:=s+' ';p:='';
    While Pos(' ',t)<>0 do {Определяем min слово}
     Begin 
      s1:=Copy(t,1,Pos(' ',t)-1); {Копируем слово до пробела в s1}
      Delete(t,1,Pos(' ',t)); {Удаляем из строки t скопированное слово}
      if (Length(s1)<min)and(s1<>'') then {Если длина слова s1 меньше чем min}
       min:=Length(s1);{в min запоминаем длину слова}
     End;
    p:=s1;{Запонинаем последнее слово в переменной p}
    Delete(s,Length(s)-Length(p),Length(p));{Удаляем из строки s последнее слово}
    s:=s+' ';{Добавляем пробел}
    While Pos(' ',s)<>0 do {пока есть пробелы выполняем}
     Begin 
      s1:=Copy(s,1,Pos(' ',s)-1);{Копироуем слово из строки s в строку s1}
      Delete(s,1,Pos(' ',s));{Удаляем скопированное слово}
      if (Length(s1)=min)and(s1<>p) then write(s1+' ');{Если длина = min и само слово не равно последнему выводим это слово}
     End;
End.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.06.2012, 09:23

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Напечатать те слова последовательности, которые отличны от последнего слова
Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных...

Напечатать те слова, которые отличны от последнего и симметричны / буквы слова расположены по алфавиту
Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных...

Дана последовательность слов. Вывести на экран те слова последовательности, которые отличны от последнего слова
Не работает программа по условию: Дана последовательность слов. Вывести на экран те слова...

Напечатать те слова последовательности, которые отличны от первого слова и удовлетворяют заданному свойству
Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.