Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
Витек))
1 / 1 / 0
Регистрация: 13.09.2012
Сообщений: 19
1

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

11.02.2013, 20:32. Просмотров 1041. Ответов 2
Метки нет (Все метки)

Дана строка, состоящая из слов, разделенных пробелом. Определить количество слов, в которых есть хотя бы одна буква "а", или "А". если можно пожалуйста в Delphi
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.02.2013, 20:32
Ответы с готовыми решениями:

Дана строка, состоящая из слов. Удалить из строки все слова, в которых хотя бы одна буква встречается дважды
Delphi 6. Нужно с визуализацией, вывод результата в форму.

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

Из слов "Работа", "крест", "тон" составить фразу "Кто не работает, тот не ест" и определить ее длину
Из слова "Работа","крест","тон" составить фразу:"Кто не работает, тот не ест" и определить ее длину.

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

Найти самое длинное слово среди слов, вторая буква которых есть "е"
Дан символьный файл f. Найти самое длинное слово (см. предыдущую задачу) среди слов, вторая буква...

2
vampire6666
142 / 142 / 39
Регистрация: 17.08.2012
Сообщений: 411
11.02.2013, 22:22 2
Лучший ответ Сообщение было отмечено Витек)) как решение

Решение

Витек)), вот...
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
VAR i, z : Integer;
    S : String;
    Flag : Boolean;
 
 
begin
Readln(s);
s:=s+' '; z := 0; Flag := False;
For i := 1 To Length(S) Do
  Begin
   If S[i] = 'a' Then Flag := True;
   If (S[i] = ' ') And (Flag = True) Then Begin
    Flag := False;
    z := z + 1; End;
  End;
Writeln(inttostr(z));
Readln;
end.
0
HanDi
11.02.2013, 22:26     Дана строка, состоящая из слов, разделенных пробелом. Определить количество слов, в которых есть хотя бы одна буква "а", или "А"
  #3

Не по теме:

vampire6666, молодец, умеешь гуглом пользоваться :D

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.02.2013, 22:26
Привет! Вот еще темы с ответами:

Дана строка символов, состоящая из букв, цифр, запятых, точек, знаков "+" и "-". Выделить подстроку, соответст
Программу сделал, но как-то работает неправильно.Вот код: unit Unit1; interface uses ...

Дана строка, состоящая из букв, цифр, запятых, точек, знаков "+" и "-". Выделить подстроку, которая соответствует записи целого числа (т.е. начинаетс
Дана строка, состоящая из букв, цифр, запятых, точек, знаков "+" и "-". Выделить подстроку,...

Дана строка символов, среди которых есть двоеточие(":"). Определить, сколько символов ему сопутствуют
Есть такая задача: Дана строка символов,среди которых есть двоеточие(":").Определьть,сколько...


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

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

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