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

Дано предложение, где два слова различны. Найти эти слова

16.12.2014, 02:41. Показов 868. Ответов 3
Метки нет (Все метки)

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 mas:array[1..10]of string;
    i,j,k:integer; w,s:string;
begin
writeln('Введите строку');
readln(s);
k:=0; s:=s+' ';
for i:=1 to length(s) do
if s[i]<>' ' then w:=w+s[i] else
begin
  inc(k); mas[k]:=w; w:='';
end;
for i:=1 to k do
begin
  for j:=1 to k do
  if (i<>j)and(mas[i]=mas[j]) then
  begin
    writeln('Повторяющееся слово: ',mas[i]);
    s:='1';
    break;
  end;
  if s='1' then break;
end;
end.
помогите пожалуйста.

Добавлено через 5 часов 23 минуты
Помогите найти ошибку пожалуйста, при выводе на экран выдает первое слово
C++
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
#include <cstring>
#include <iostream>
#include <cstdlib>
 
int main()
{
    using namespace std;
 
    char str[256]="";
    cin.getline(str, sizeof(str));
 
    const char* delim = " ,.:;?!\t";
    char* token[256];
    int len,i,j,k;
    char s;
 
    len=strlen(str);
 
    for (i=1; i<=len; i++)
    {
        token[i]=strtok(str, delim);
    }
 
    for (i=1; i<=len; i++)
    {
        k=1;
        for (j=1; j<=len; j++)
        {
            if (i!=j && strcmp(token[i], token[j])==0)
                {
                    cout<<token[i]<<endl;
                    s='1';
                    break;
                }
        }
        if (s='1') break;
    }
 
    system("pause");
    return(0);
}
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.12.2014, 02:41
Ответы с готовыми решениями:

Дано предложение. В нем только два слова одинаковые. Найти эти слова
Дано предложение. В нем только два слова одинаковые. Найти эти слова. Заранее спасибо

Дано предложение. В нем только два слова одинаковые. Найти эти слова
Дано предложение. В нем только два слова одинаковые. Найти эти слова. Если слов одинаковых нет, то...

Дано предложение. В нем только два слова одинаковые. Найти их
Дано предложение. В нем только два слова одинаковые. Найти их. Что-то не получается. program...

Дано предложение. В нем только два слова одинаковые
Дано предложение. В нем только два слова одинаковые. Найти эти слова.

3
7166 / 6141 / 2802
Регистрация: 14.04.2014
Сообщений: 26,462
16.12.2014, 11:12 2
C++
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
#include <cstring>
#include <iostream>
#include <cstdlib>
 
using std::cout;
using std::cin;
 
int main()
{
    const char delim[] = " ,.:;?!\t";
 
    char str[256], w[256][256], *p;
    int count = 0;
    
    cin.getline(str, sizeof(str));
 
    p = strtok(str, delim);
    while (p != NULL)
    {
        strcpy(w[count], p);
        ++count;
        p = strtok(NULL, delim); 
    }
 
    for (int i = 0; i < count; ++i)
        for (int j = 0; j < count; ++j)
            if (i != j)
                if (strcmp(w[i], w[j]) == 0)
                    cout << "Повторяющееся слово: " << w[i] << std::endl;
 
    system("pause");
    return(0);
}
1
Заблокирован
16.12.2014, 15:49 3
через strcmp не пробовали?
2
0 / 0 / 1
Регистрация: 05.06.2014
Сообщений: 9
16.12.2014, 18:06  [ТС] 4
Спасибо большое.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.12.2014, 18:06
Помогаю со студенческими работами здесь

Дано предложение, слова разделены пробелами, переставить слова в алфавитном порядке
Задача Pascal. Предложение вводится с клавиатуры, слова разделены пробелами, переставить слова в...

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

Дано предложение. Определить все слова, которые начинаются с заданной буквы. Слова в предложении разделены пробелами
Дано предложение. Определить все слова, которые начинаются с заданной буквы. Слова в предложении...

Дано предложение, слова в нем разделены пробелом, поменять местами четные и нечетные по порядку следования слова
Пожалуйста помогите решить задачу по Java до четверга (12.11.2010) Дано предложение, слова в...


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

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

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