Дан массив из слов Z(m). Найти все слова, в которых есть две подряд идущие одинаковые буквы - Turbo Pascal
Формулировка задачи:
Уважаемые программисты Я уверена,что вы мне поможете)Пожалуйста!
Задание:
Дан массив из слов Z(m). Найти все слова, в которых есть две подряд идущие одинаковые буквы.
Решение задачи: «Дан массив из слов Z(m). Найти все слова, в которых есть две подряд идущие одинаковые буквы»
textual
Листинг программы
uses crt; const nmax=20; var z:array[1..nmax] of string[20]; n,i,j,k:integer; f:boolean; begin clrscr; repeat write('Размер массива до ',nmax,' n='); readln(n); until n in [1..nmax]; writeln('Введите ',n,' слов, в том числе со сдвоенными буквами'); for i:=1 to n do begin write('слово ',i,': '); readln(z[i]); end; writeln; k:=0; writeln('Слова со сдвоенными буквами'); for i:=1 to n do begin f:=false; j:=1; while(j<length(z[i]))and not f do if z[i][j]=z[i][j+1] then f:=true else j:=j+1; if f then begin k:=1; writeln(z[i]); end; end; if k=0 then write('Нет слов со сдвоенными буквами'); readln end.
Объяснение кода листинга программы
Этот код написан на Turbo Pascal и выполняет следующую задачу:
- Запрашивает у пользователя размер массива
z
и количество слов, которые он хочет ввести. - Создает массив
z
с указанным размером и заполняет его строками, которые пользователь вводит. - Затем код проверяет каждое слово в массиве
z
на наличие двух подряд идущих одинаковых букв. - Если в слове есть такие буквы, то код выделяет его и выводит на экран.
- В конце кода выводится сообщение, указывающее, есть ли в массиве
z
слова со сдвоенными буквами. Пример: Размер массива до 20 n=5 Введите 5 слов, в том числе со сдвоенными буквами слово 1: abcd слово 2: efghi слово 3: jklm слово 4: nopq слово 5: rstu Слова со сдвоенными буквами: abcd, efghi Нет слов со сдвоенными буквами
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д