diskriminant
1

Найти все слова, содержащие три одинаковые буквы

17.11.2008, 18:59. Показов 3074. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Задачка из контрольной: В тексте слова отделены пробелами. Найти все слова, содержащие три одинаковые буквы (необязат. стоящие рядом). Я написал. Сначала разбил строку на слова (в массив)..Затем по каждому слову прошелся..Вроде все правильно, но в результате, программа неправильно фильтрует слова..Помогите разобраться?!..

Код
program kontr2_3;
uses crt;

type
  twords = array[1 .. 30] of string[10];
var st:string;
    d,e,f,k,m,n:integer;
    a,b:twords;
Procedure GetWords(s: string; var arr: TWords; var num:integer);
var
  i, p: integer;
begin
  while pos('  ', s) <> 0 do
    delete(s, pos('  ', s), 1);

  if s[1] = ' ' then delete(s, 1, 1);
  if s[length(s)] = ' ' then delete(s, length(s), 1);

  i := 1;
  repeat
    p := Pos(' ', s); inc(i);
    if p > 0 then begin
      arr[i] := copy(s, 1, pred(p)); delete(s, 1, p)
    end
    else arr[i] := s
  until p = 0;
  num:=i;
end;
begin
writeln('Vvedite tekst:');
readln(st);
getwords(st,a,n);
e:=0;
for k:=1 to n do begin
  for m:=1 to length(a[k]) do
    f:=0;
    for d:=1 to length(a[k]) do if a[k][m]=a[k][d] then inc(f);
    if f>=3 then begin
                  inc(e);
                  b[e]:=a[k];
                  end; end;
writeln;
writeln('Otobrannie slova:');
for k:=1 to e do writeln(b[k]);
readln;
end.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.11.2008, 18:59
Ответы с готовыми решениями:

Вывести на экран слова,содержащие три буквы
1.дана символьная строка ,содержащая текст,заканчивающийся точкой. Вывести на экран...

Вывести на экран слова, содержащие три буквы
1. дана символьная строка ,содерщая текст, заканчиваюшияся точкой. Вывести на экран слова,...

Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы.
Обработка числовых массивов 1.Дан массив X(N). Переписать в массив Y подряд положительные и в...

Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы
Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы.

3
11 / 11 / 3
Регистрация: 26.09.2008
Сообщений: 77
17.11.2008, 22:06 2
Опиши когда работает не правильно.
Заметил, что слова длиннее 10 символов обрезаешь. Это не по-русски как то. У нас 24 буквы и больше бывает.
0
diskriminant
17.11.2008, 23:56 3
Нашел ошибку..
Код
for k:=1 to n do begin
 f:=0;{Обнулять f надо здесь, а не там, где было!}
 for m:=1 to length(a[k]) do begin
    for d:=1 to length(a[k]) do if a[k][m]=a[k][d] then inc(f); end;
    if f>=3 then begin
                  inc(e);
                  b[e]:=a[k];
                 end; end;
aleksandr21_06
30.04.2009, 07:50 4
как найти в духмерном массиве есть ли в строке одинаковые числа
30.04.2009, 07:50
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.04.2009, 07:50
Помогаю со студенческими работами здесь

Дан массив символов, содержащий текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы
Дан массив символов, содержащий текст, заканчивающийся точкой. Вывести на экран слова, содержащие...

Выделить из предложения слова, содержащие две или более одинаковые буквы
Строки (string) и использование библиотечных функций для их преобразования. Процедуры и функции...

Вывести на экран слова, содержащие три буквы
Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы.

Вывести на экран слова, содержащие три буквы
Дана строка, содержащая текст, заканчивающийся точкой.Вывести на экран слова, содержащие три буквы.


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

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

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