Дана фраза, в которой слова разделены одним пробелом, а сама фраза заканчивается точкой

@Сергей_freeze · Регистрация: 24.12.2011

Author24 — интернет-сервис помощи студентам

Дана фраза, в которой слова разделены одним пробелом, а сама фраза заканчивается точкой.Требуется: Найти количество слов, начинающихся на букву «а».

@CodeR · 21.10.2012, 14:44

Pascal

Var s,s1:string;
    k:byte;
Begin
    write('Введите фразу: ');readln(s);
    s:=s+' ';k:=0;
    While Pos(' ',s)>0 do
    Begin
      s1:=Copy(s,1,Pos(' ',s)-1);
      Delete(s,1,Pos(' ',s));
      if s1[1]='а' then inc(k);
    End;
    writeln('Слов начинающиеся на букву "а": ',k);
    readln;
End.

@Сергей_freeze · 21.10.2012, 15:00 **[ТС]**

оооо,так быстро.. круто.. спасибо большое...!!!

Добавлено через 10 минут
а алгоритм можете сделать???

@CodeR · 21.10.2012, 15:07

Сообщение от Сергей_freeze

а алгоритм можете сделать???

Добавляем к строке пробел чтобы последнее слово тоже проверить
Потом пока есть пробелы в строке выполняем
в буферную строку заносим слово(т.е все символы до первого попавшегося пробела минус сам пробел)
затем проверяем у буферной строки 1 символ и если он равен "а" то к увеличиваем счетчик кол-ва таких слов

@Сергей_freeze · 21.10.2012, 15:12 **[ТС]**

нет.алгоритм через блок-схемы как сделать??

@CodeR · 21.10.2012, 15:13

Сообщение от Сергей_freeze

нет.алгоритм через блок-схемы как сделать??

брр сразу надо говорить...гугл вам в помощь...

@Сергей_freeze · 21.10.2012, 15:15 **[ТС]**

ладно,все равно спасибо..

@КонецСвета · 21.10.2012, 21:22

блок-схема как-то так

@Сергей_freeze 6 / 6 / 1 Регистрация: 24.12.2011 Сообщений: 352
		1
	Дана фраза, в которой слова разделены одним пробелом, а сама фраза заканчивается точкой 21.10.2012, 14:37. Показов 2091. Ответов 7 Метки нет (Все метки) Дана фраза, в которой слова разделены одним пробелом, а сама фраза заканчивается точкой.Требуется: Найти количество слов, начинающихся на букву «а». 0

@Сергей_freeze 6 / 6 / 1 Регистрация: 24.12.2011 Сообщений: 352
	21.10.2012, 15:00 [ТС]	3
	оооо,так быстро.. круто.. спасибо большое...!!! Добавлено через 10 минут а алгоритм можете сделать??? 0

@CodeR Фрилансер 3418 / 2815 / 3000 Регистрация: 08.02.2012 Сообщений: 8,600 Записей в блоге: 1
	21.10.2012, 15:07	4
	Сообщение от Сергей_freeze а алгоритм можете сделать??? Добавляем к строке пробел чтобы последнее слово тоже проверить Потом пока есть пробелы в строке выполняем в буферную строку заносим слово(т.е все символы до первого попавшегося пробела минус сам пробел) затем проверяем у буферной строки 1 символ и если он равен "а" то к увеличиваем счетчик кол-ва таких слов 0

@Сергей_freeze 6 / 6 / 1 Регистрация: 24.12.2011 Сообщений: 352
	21.10.2012, 15:12 [ТС]	5
	нет.алгоритм через блок-схемы как сделать?? 0

@CodeR Фрилансер 3418 / 2815 / 3000 Регистрация: 08.02.2012 Сообщений: 8,600 Записей в блоге: 1
	21.10.2012, 15:13	6
	Сообщение от Сергей_freeze нет.алгоритм через блок-схемы как сделать?? брр сразу надо говорить...гугл вам в помощь... 0

@Сергей_freeze 6 / 6 / 1 Регистрация: 24.12.2011 Сообщений: 352
	21.10.2012, 15:15 [ТС]	7
	ладно,все равно спасибо.. 0

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	21.10.2012, 21:22	8
	блок-схема как-то так Миниатюры 0

Опции темы