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

Вывести слова данного предложения, которые отличны от последнего слова

20.01.2013, 21:19. Просмотров 1481. Ответов 1
Метки нет (Все метки)

Помогите с программой и блок схемой
Используя строки и функции

Вывести слова данного предложения, которые отличны от последнего слова.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.01.2013, 21:19
Ответы с готовыми решениями:

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

Вывести те слова текста, которые отличны от последнего слова
Создать текст. Вывести те слова текста, которые отличны от последнего слова и удовлетворяют...

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

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

1
34 / 34 / 22
Регистрация: 19.04.2012
Сообщений: 61
21.01.2013, 11:04 2
Лучший ответ Сообщение было отмечено hronoo как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var s,s1,s2:string;
    p:integer;
begin
write('');
readln(s);
s1:=s;
p:=pos(' ',s1);
  while p<>0 do
    begin
      delete(s1,1,p);
      p:=pos(' ',s1);
    end;
writeln('Последнее слово: ',s1);
write('Слова отличные от последнего: ');
p:=pos(' ',s);
  while p<>0 do
    begin
      s2:=copy(s,1,p-1);
      if s2<>s1 then write(s2,' ');
      delete(s,1,p);
      p:=pos(' ',s);
    end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.01.2013, 11:04

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

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

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

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

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


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

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

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