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

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

11.11.2013, 19:51. Просмотров 1896. Ответов 2
Метки нет (Все метки)


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

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

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

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

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

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

__________________
Помогаю в написании курсовых работ и дипломов здесь.
2
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
28023 / 15750 / 972
Регистрация: 15.09.2009
Сообщений: 67,776
Записей в блоге: 78
11.11.2013, 20:21 2
Цитата Сообщение от Валерия0102 Посмотреть сообщение
прога вроде есть...но ответ не выдает...
покажите программу и Вам помогут.
0
0 / 0 / 1
Регистрация: 22.09.2013
Сообщений: 4
11.11.2013, 21:14  [ТС] 3
Лучший ответ Сообщение было отмечено Валерия0102 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
uses crt;
const ds=['a'..'z',' ','.'];
function Bukva2(x:string):boolean;
var i,j,k,p:byte;
begin
Bukva2:=true;
for i:=1 to length(x) do
  begin
   k:=0;
   for j:=1 to length(x) do
   if x[i]=x[j] then k:=k+1;
   if k=1 then
     begin
      Bukva2:=false;
      break;
     end;
  end;
end;
var s,s1,s2:string;
    sm,k,t,l,ml,i:byte;
begin
clrscr;
repeat
writeln('s:');readln(s);
sm:=0;
for i:=1 to length(s) do
if not (s[i] in ds) then
  begin
   writeln('Введены недопустимые символы!. Повторите ввод.');
   sm:=1;
   break;
  end;
if pos('.',s)=0 then
writeln('В последовательности нет точки. Повторите ввод.')
else
 begin
   delete(s,pos('.',s)+1,length(s)-pos('.',s));
   insert(' ',s,pos('.',s));
   while pos('  ',s)>0 do
   delete(s,pos('  ',s),1);
   k:=0;
   for i:=1 to length(s) do
   if s[i]=' 'then inc(k);
   if k=1 then writeln('В последовательности менее 2 слов. Повторите ввод.')
   else if k>50 then writeln('В последовательности более 50 слов. Повторите ввод.')
   else
     begin
      s2:=s;
      l:=8;ml:=0;
      while pos(' ',s2)>0 do
        begin
          if length(copy(s2,1,pos(' ',s2)-1))>l then
            begin
             ml:=1;
             writeln('В последовательности есть слова > 8 символов. Повторите ввод.');
             break;
             end;
          delete(s2,1,pos(' ',s2));
        end;
     end;
  end;
until (sm=0)and(k>1)and(k<=20)and(ml=0);
for i:=pos('.',s)-2 downto 1 do
if s[i]=' 'then
   begin
     k:=i;
     break;
   end;
s1:=copy(s,k+1,pos('.',s)-k-2);
while pos(' ',s)>0 do
  begin
   if (copy(s,1,pos(' ',s)-1)<>s1)and Bukva2(copy(s,1,pos(' ',s)-1)) then
 
   write(copy(s,1,pos(' ',s)-1),' ')
   else
   delete(s,1,pos(' ',s));
  end;
read
end.

вот прога

Добавлено через 27 минут
что делать тут - не знаю...помогите...и если можно без типа болеан?

Добавлено через 1 минуту
что делать тут - не знаю....помогите, пожалуйста...и если можно, то без типа болеан?

Добавлено через 1 минуту
что делать тут - не знаю....помогите, пожалуйста...и если можно, то без типа болеан?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.11.2013, 21:14

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

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

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

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

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

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

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


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

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

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