Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Forward52
1

Распечатать все слова, в состав которых входят буквы "a", "o" или "и"

04.05.2013, 22:21. Показов 995. Ответов 2
Метки нет (Все метки)

Дана строка символов. Группу символов, разделенную с одной или обеих сторон одним или несколькими пробелами и содержащую пробелов внутри, назовем словом. Распечатать все слова, в состав которых входят буквы "a". "o" или "и". Если таких нет слов, выдать соответствующее текстовое сообщение
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.05.2013, 22:21
Ответы с готовыми решениями:

В текстовом файле удалить все символы "+" и "-", а так же все буквы "б" перед которыми находится буква "с".
Дан текстовый файл. В нем удалить все символы "+" и "-", а так же все буквы "б" перед которыми...

Ввести строку. Заменить все буквы "е" и "а" в тексте на "8" , "4" и "6". Вывести на экран модифицированную строку
Ввести строку. Заменить все буквы "е" и "а" в тексте на "8" , "4" и "6". Вывести на...

Удалить из строки все буквы"а" и"о". символ "*" заменить"-".
дана строка из 40 символов . удалить из неё все буквы"а" и"о". символ "*" заменить"-". решите...

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

2
3020 / 1908 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
04.05.2013, 23:17 2
Лучший ответ Сообщение было отмечено как решение

Решение

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
Var
  s,s1: String;
  k: Byte;
BEGIN
Writeln('Введите строку: ');
Readln(s);
While s[1]=' ' do      {удаляем ведущие пробелы}
Delete(s,1,1);
While Pos('  ',s)>0 do     {удаляем лишние пробелы между словами}
Delete(s,Pos('  ',s),1);
While s[Length(s)]=' ' do   {удаляем конечные пробелы}
Delete(s,Length(s),1);
s:=s+' ';
k:=0;
Repeat
 s1:=Copy(s,1,Pos(' ',s));
 If (Pos('а',s1)<>0) or (Pos('о',s1)<>0) or (Pos('и',s1)<>0) Then
 begin
   Writeln(s1);
   Inc(k);
 end;
 Delete(s,1,Pos(' ',s));
until Length(s)=0;
If k=0 Then Writeln('Таких слов нет');
Readln
END.
0
142 / 148 / 116
Регистрация: 15.11.2012
Сообщений: 535
Записей в блоге: 2
05.05.2013, 00:12 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
24
Var
   s,st:String;
   i:Integer;
   set1:Set of char;
   f:Boolean;
BEGIN
set1:=[]; st:='';
Writeln('vvedite stroku:'); Readln(s); Writeln;
set1:=['а','о','и'];
While s<>'' Do Begin
      i:=1; f:=False;
      If s[i]=' ' Then While s[i]=' ' Do Delete(s,i,1);
      While s[i]<>' ' Do Begin
            If s[i] in set1 Then f:=True;
            Inc(i);
      End;
      If f Then Begin
         st:=Copy(s,1,i);
         Writeln(st);
      End;
      Delete(s,1,i);
End;
If st='' then Writeln('takih slov net');
Readln END.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.05.2013, 00:12

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Проверить слово "Дом" и содержит ли оно буквы: "а" , "б" ,"о","д"
программа должна проверить слово &quot;Дом&quot; и содержит ли оно буквы: &quot;а&quot; , &quot;б&quot;...

Из слова "клоун" путем вырезок и склеек его букв получить слова "уклон", "кулон" и "колун".
Из слова &quot;клоун&quot; путем вырезок и склеек его букв получить слова &quot;уклон&quot;, &quot;кулон&quot; и &quot;колун&quot;.

Составить фразу "программное обеспечение" из слов "программист", "оборот", "анчоус", "измерение"
Составить фразу &quot;программное обеспечение&quot; из слов &quot;программист&quot;, &quot;оборот&quot;, &quot;анчоус&quot;,...

Составить фразу "письменный стол" из слов "тесненный", "полка", "речь", "миф".
1) Составить фразу &quot;письменный стол&quot; из слов &quot;тесненный&quot;, &quot;полка&quot;, &quot;речь&quot;, &quot;миф&quot;. 2) Вывести...


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

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

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