Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Molder
0 / 0 / 0
Регистрация: 18.03.2012
Сообщений: 23
1

Строки. Подсчитать количество букв "р" в первых трех словах данного текста

16.04.2012, 15:49. Просмотров 770. Ответов 4
Метки нет (Все метки)

дан текст. создать программу показывающую количество буквы "р" в первых трех словах данного текста.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.04.2012, 15:49
Ответы с готовыми решениями:

Определить,в скольких словах данного текста встречается группа букв "qu"
Дана строка символов(текст).Определить,в скольких словах данного текста встречается группа букв...

Заменить букву "А" на "КО" и подсчитать общее количество букв "Ф" и "В"
Заменить букву "А" на "КО" и подсчитать общее кол-во букв "Ф" и "В" . и Последнее...

В тех словах, которые оканчиваются сочетанием букв "ing", заменить это окончание на "ed"
SOS!!! Чесно, не могу понять как это сделать, потому что ни когда не сталкивалась со строками и...

После каждого символа "О" вставлять пробел и подсчитывать количество букв "А" стоящих между буквами "К" и "Л"
После каждого символа "О" вставлять пробел и подсчитывать количество букв "А" стоящих между буквами...

Строки. Выписать из предложения все слова из трех букв, начинающиеся с буквы "а"
помогите плиз дописать процедуру под мою прогу... Выписать из предложения все слова из трех...

4
klast
тыдыщ
205 / 188 / 166
Регистрация: 19.01.2011
Сообщений: 476
16.04.2012, 16:18 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  s, a: string;
  i, f, j, k: integer;
 
begin
  readln(s);
  for i := 1 to length(s) do
    if s[i] <> ' ' then a := a + s[i]
    else
    begin
      inc(k);
      if k < 4 then for j := 1 to length(a) do if a[j] = 'р' then inc(f);
      a := '';
    end;
  writeln(f);
end.
1
Molder
0 / 0 / 0
Регистрация: 18.03.2012
Сообщений: 23
16.04.2012, 19:24  [ТС] 3
есть еще варианты?
0
klast
тыдыщ
205 / 188 / 166
Регистрация: 19.01.2011
Сообщений: 476
16.04.2012, 19:26 4
Molder, может быть что-нибудь переделать?(
что конкретно не понравлось в коде?
0
КонецСвета
Почетный модератор
7944 / 3915 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
16.04.2012, 22:09 5
klast, может быть, разделение на слова не устраивает...

Не по теме:

(но это не повод быть неблагодарным...)


можно рассматривать слова как совокупность символов, разделенных пробелом и прекращать подсчет после второго пробела...
предполагаю, что слова разделены одним пробелом
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var s: string;
    i,k,kp: byte;
begin
write('s='); readln(s);
i:=1;
while (i<=length(s)) and (kp<3) do
      begin
      if s[i]='p' then inc(k);
      if s[i]=' ' then inc(kp);
      inc(i);
      end;
write(k);
end.
0
16.04.2012, 22:09
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.04.2012, 22:09

Подсчитать количество букв "о" в строке, введенной с клавиатуры
подсчитать количество букв &quot;о&quot; в строке введеной с клавиатуры и удалить их из этой строки

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

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


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

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

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