0 / 0 / 0
Регистрация: 16.10.2012
Сообщений: 64
1

Напечатать предложение, удалив из него повторное вхождение слова

18.11.2012, 09:43. Показов 1411. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
1.Напечетать предложение,удалив из него повторное вхождение слова.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.11.2012, 09:43
Ответы с готовыми решениями:

Напечатать эту же последовательность слов, но удалив из нее повторное вхождение слов
Дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 прописных...

Напечатать заданный текст из 100 литер, удалив из него повторные вхождение каждой литеры
(1). Напечатать заданный текст из 100 литер, удалив из него повторные вхождение каждой литеры. ...

Напечатать строку, предварительно удалив первое вхождение ‘w’,
1)Дана строка латинских символов. Напечатать эту строку, предварительно удалив первое вхождение...

Напечатать все слова, отличные от последнего слова, предварительно удалив из каждого слова последнюю букву
1) Программа. Дан текстиз строчных русских букв, закоторым следует точка. Напечатать этот текст...

3
Фрилансер
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,598
Записей в блоге: 1
18.11.2012, 10:05 2
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
Const m=[' ','.','!','?'];
Var s,s1,s2:string;
    A:array[1..30] of string;
    i,k:byte;
Function Proverka(s:string;k:byte):boolean;
Var i:byte;
    b:boolean;
Begin
    b:=true;
    For i:=1 to k do
     if A[i]=s then b:=false;
    Proverka:=b;
End;
Begin
    write('Введите предложение: ');readln(s);
    k:=0;s:=s+' ';s1:='';s2:='';
    For i:=1 to Length(s) do
     if not(s[i] in m) then s1:=s1+s[i]
      else
      Begin
        if Proverka(s1,k) then
        Begin
          s2:=s2+s1+s[i];
          inc(k);
          A[k]:=s1;
        End;
        s1:='';
      End;
    writeln(s2);
    readln;
End.
1
0 / 0 / 0
Регистрация: 16.10.2012
Сообщений: 64
20.11.2012, 12:31  [ТС] 3
boolean, Length. А можно это заменить? просто это еще не изучали
0
Фрилансер
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,598
Записей в блоге: 1
20.11.2012, 12:51 4
Цитата Сообщение от Луч света Посмотреть сообщение
boolean, Length. А можно это заменить? просто это еще не изучали
Ну вот без boolean, а на счёт Length - это кол-во символов строки (длина строки).если вы проходите строки то вы это должны были пройти!
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
Const m=[' ','.','!','?'];
Var s,s1,s2:string;
    A:array[1..30] of string;
    i,k:byte;
Function Proverka(s:string;k:byte):byte;
Var i,j:byte;
Begin
    j:=1;
    For i:=1 to k do
     if A[i]=s then j:=0;
    Proverka:=j;
End;
Begin
    write('Введите предложение: ');readln(s);
    k:=0;s:=s+' ';s1:='';s2:='';
    For i:=1 to Length(s) do
     if not(s[i] in m) then s1:=s1+s[i]
      else
      Begin
        if Proverka(s1,k)=1 then
        Begin
          s2:=s2+s1+s[i];
          inc(k);
          A[k]:=s1;
        End;
        s1:='';
      End;
    writeln(s2);
    readln;
End.
0
20.11.2012, 12:51
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.11.2012, 12:51
Помогаю со студенческими работами здесь

Напечатать заданный текст из 100 литер, удалив из его повторные вхождение каждой литеры
Напечатать заданный текст из 100 литер, удалив из его повторные вхождение каждой литеры.

Напечатать заданный текст, удалив из него лишние пробелы
Только начали проходить, ещё ниче не понимаю... 1. Дана последовательность слов. Напечатать те...

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

Напечатать все слова последовательности, удалив из каждого слова нечётные буквы, если слово имеет нечётное количество символов
Напечатать все слова последовательности, удалив из каждого слова нечётные буквы, если слово ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru