Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Диана666
0 / 0 / 0
Регистрация: 30.06.2011
Сообщений: 15
1

Напечатать те слова последовательности, в которых первая буква входит в него еще раз

30.06.2011, 10:42. Просмотров 869. Ответов 1
Метки нет (Все метки)

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

Помогите решить!
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.06.2011, 10:42
Ответы с готовыми решениями:

Организовать вывод слов, первая буква которых встречается в них хотя бы еще раз
С клавиатуры через пробел вводится несколько английских слов. Организовать...

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

Напечатать те слова из текста, у которых первая буква входит в него еще раз.
7. Написать программу для решения задачи. Слова в тексте могут быть...

Напечатать те слова последовательности, в которых первая буква слова входит в него ещё раз
Дана последовательность, состоящая из 10 слов. Напечатать те слова...

Напечатать все слова, у которых первая буква входит в слово еще раз
ЛАБОРАТОРНАЯ РАБОТА №10 Тема :обработка данных литерного типа. ...

1
Daemon025
380 / 328 / 159
Регистрация: 06.12.2010
Сообщений: 894
30.06.2011, 11:08 2
Лучший ответ Сообщение было отмечено Диана666 как решение

Решение

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
32
33
34
35
36
37
38
39
40
41
42
43
     uses crt;
     const rz=[' ',',','.',';',':','?','!'];//Г°Г*çäåëèòåëè ñëîâ
     type str=array[1..30] of string;
 
Procedure Split(var s:string; var output:str; var index:integer);
    var i:integer;
Begin
    index:=1;
 
    For i:=length(s) downto 2 do
        if ((s[i] in rz) and (s[i-1] in rz)) then delete(s,i,1);
 
    For i:=1 to length(s) do
        if (s[i] in rz) then
        begin
            inc(index);
            output[index]:='';
        end
            else output[index]:=output[index]+s[i];
 
End;
//------------------------------------------------------------------------------
    var i,size,k:integer;
        A:str;
        sr:real;
        s:string;
begin
  Write('String: ');
  ReadLn(s);
 
  Split(s,A,size);
 
  Write('String: ');
  for i:=1 to size do
     for k:=2 to length(A[i]) do
        if (A[i][1] = A[i][k]) then
        Begin
            Write(A[i],' ');
            break;
        End;
 
  Readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.06.2011, 11:08

Напечатать слова последовательности слов, в которых 1-я буква входит в слово еще раз. Использовать массив
Дана последовательность, состоящая из 10 слов. Напечатать те слова...

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

Вывести слова, в которых первая буква входит в них один раз
Пожалуйста помогите разобраться в задаче на pascale!!! Буду очень признателен!...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru