Перейти к содержанию

Помогите с программой. На языке паскаль. [Спасибо! тема закрыта]


Рекомендуемые сообщения

Вот эта программа.

" Среди заданных слов (слова сам задаешь) найти слова с двойными буквами (аа, вв, мм, и т.д ) и вывести их в порядке возростания их длин ."

Вроде не сложная, но понять не могу как найти двойную букву.

Ссылка на комментарий

k:=0;
for i:=1 to n do //n - количество слов
for j:=1 to length(a[i])-1 do //a - массив слов
if a[i][j]=a[i][j+1] then begin
inc(k); //k - индекс в массиве со словами с двойными букафками
b[k]:=a[i]; //b - сам массив
end;

кратко так.

Ссылка на комментарий

Lakers, тоже верно, надо бряк вставить =)

Добавлено спустя 1 минуту 9 секунд:

k:=0;
for i:=1 to n do //n - количество слов
for j:=1 to length(a[i])-1 do //a - массив слов
if a[i][j]=a[i][j+1] then begin
inc(k); //k - индекс в массиве со словами с двойными букафками
b[k]:=a[i]; //b - сам массив
break; //переход на следующее слово
end;

Добавлено спустя 1 минуту 11 секунд:

rodya, возьми процедуру сортировки любую и сортируй по length(a);

Ссылка на комментарий

Пожалуйста, войдите, чтобы комментировать

Вы сможете оставить комментарий после входа в



Войти
  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...