Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 11.12.2009
Сообщений: 6
1

Определить количество слов, содержащих введенный символ.

02.01.2010, 22:19. Показов 1242. Ответов 1
Метки нет (Все метки)

1. Составить главную программу и функцию. В функции для двух век-торов А(N) и В(М), состоящих из целых чисел, найти самое большое простое число, которое имеется в обоих векторах.
2. Вводится строка и символ. Определить количество слов, содержа-щих введенный символ.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.01.2010, 22:19
Ответы с готовыми решениями:

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

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

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

Определить количество слов, содержащих не менее двух букв "А".
1)Переписать массив А(10) в массив В(10) так, чтобы последний элемент стал первым, предпоследний -...

1
4339 / 1471 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
02.01.2010, 22:26 2
Лучший ответ Сообщение было отмечено asya92 как решение

Решение

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
27
uses crt;
var st,buf:string;
    ch:char;
    k:integer;
begin
 k:=0;
 clrscr;
 write('Строка -> ');
 readln(st);
 write('Символ ->');
 readln(ch);
 repeat
  if (st[1]=' ') or (length(st)=1) then while st[1]=' ' do delete(st,1,1)
  else
  begin
   while (st[1]<>' ') and (length(st)>1) do
   begin
    buf:=buf+st[1];
    delete(st,1,1);
   end;
  f pos(ch,st)>0 then inc(k);
  buf:='';
  end;
 until (length(st)=1) and (length(buf)=0);
 writeln(k);
 readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.01.2010, 22:26

Найти количество слов в строке содержащих определенную букву
Найти количество слов в строке Т, где есть буква «а»?

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

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

Работа с текстовыми файлами: подсчитать количество слов, содержащих пары соседних одинаковых букв
Заданная строка, состоящая из слов, разделенным одним или несколькими пробелами. Подсчитать...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru