Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Подпрограммы https://www.cyberforum.ru/ pascalabc/ thread809137.html
Даны две целые квадратные матрицы С и Т порядка n. Найти n –количество четных чисел на главной и побочной диагонали матрицы T и m- количество аналогичных чисел для матрицы С. Если n<m, найти...
строки1 Сортировка матрицы Pascal ABC
Дана целая матрица размера (nxm), n,m 10. В каждой строке матрицы переставить элементы так, чтобы в начале были все отрицательные элементы, а затем все положительные элементы строки и число 0...
Pascal ABC Текстовый файл ABC Имеется текстовый файл, в котором записана одна строка «Здравствуйте, дорогие ребята». Приписать в конце строки восклицательный знак. https://www.cyberforum.ru/ pascalabc/ thread809122.html Pascal ABC Типизированный файл ABC Имеется типизированный файл, в котором записаны 18 целых чисел. Переписать все положительные числа файла в массив в том же порядке. https://www.cyberforum.ru/ pascalabc/ thread809120.html
Строки ABC Pascal ABC
Дан текст. Проверить, что в данное слово заданный символ входит не менее 2 раз
Pascal ABC Заполнение двумерных массивов разными способами 1.Заполнить массив следующими способами: 1) При помощи типизированных констант; 2) При помощи присваивания. 3) Случайными числами; 1 1 1 1 1 1 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0... https://www.cyberforum.ru/ pascalabc/ thread809114.html
Pascal ABC Найти сумму всех двузначных чисел из строки Помогите пожалуйста! Дана строка, состоящая из слов и чисел, разделенных пробелами. Найти сумму всех двузначных чисел из этой строки. https://www.cyberforum.ru/ pascalabc/ thread809110.html Pascal ABC шашки на двумерный массив
Дано игровое поле для шашек размером 8х8. На шашечное доске находятся белые и черные шашки. Белые обозначим - 1, черные – 2, а пустая клетка 0. Определить количество черных и белых шашек.
Pascal ABC Написать программу по записям ! https://www.cyberforum.ru/ pascalabc/ thread808941.html
Рассортировать корреспонденцию, поступившую в почтовое отделение: 1. Иногородние 2. Внутри города по улицам Вывести на экран заданную группу.
Pascal ABC Нарисовать повторяющиеся контуры https://www.cyberforum.ru/ pascalabc/ thread808935.html
Цвета в первой и второй рандомно.
Построить и напечатать множество Pascal ABC
Дана не пустая последовательность символов. Требуется построить и напечатать множество, элементами которого являются встречающиеся в последовательности буквы от ‘G’ до ‘N’и цифры от ‘0’ до ‘9’.
Pascal ABC Заполнить массив несколькими способами 1. Заполнить массив следующими способами: 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 1 0 0 1 1 1 1 1 1 1 0 0 1 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 https://www.cyberforum.ru/ pascalabc/ thread808930.html
12 / 12 / 14
Регистрация: 18.02.2012
Сообщений: 46
15.03.2013, 09:19 0

Строка: Найти все слова, которые содержат символ «t» и встречаются в тексте не менее 2 раз. - Pascal ABC - Ответ 4257663

15.03.2013, 09:19. Показов 3673. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено Yastreb1114 как решение

Решение

5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program predl;
uses crt;
var s,sm,sn:string; i,pm,pn:byte; c:char;
begin
s:='Манка скамейка носорог носки';
for i:=1 to length(s) do   begin
if lowcase(s[i])='м' then   inc(pm);
if lowcase(s[i])='н' then   inc(pn);
end;
if pm=pn then begin writeln('Кол-во букв в предложении равно'); exit; end; if pm>pn then c:='м' else c:='н';
writeln('Буква "',c,'" встречается чаще');
for i:=1 to length(s) do
if lowcase(s[i])=c then begin  s[i]:=upcase(c); insert('(',s,i); inc(i);  insert(')',s,i+1);  end;
write(s);
end.
4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program slovo;
uses crt;
var s:string; i,k:byte;
begin
s:='Слово';
k:=0;
for i:=1 to 4 do  begin
if k=0 then begin s:=s+'-'; k:=1; end;
insert('-',s,length(s));
insert('+',s,1);     end;
write(s);
end.


Вернуться к обсуждению:
Строка: Найти все слова, которые содержат символ «t» и встречаются в тексте не менее 2 раз. Pascal ABC
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.03.2013, 09:19
Готовые ответы и решения:

Множества. Вывести те, которые встречаются в тексте не менее 2-х раз
. Дан текст, состоящий из строчных латинских букв. Вывести те, которые встречаются в тексте не...

Удалить из массива все элементы которые встречаются менее двух раз.
Дан целочисленный массив ,состоящий из n элементов. Удалить из массива все элементы которые...

Напечатать те слова, которые встречаются в тексте один раз
дано предложение.напечатать те слова которые встречаются в нем один раз. Добавлено через 12...

Дан текстовый файл, содержащий строки. Вывести все слова в строке, которые содержат менее 4-х символов
Дан текстовый файл, содержащий строки. Вывести все слова в строке, которые содержат менее 4-х...

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.03.2013, 09:19
Помогаю со студенческими работами здесь

Вывести на экран все слова, которые встречаются в последовательности только один раз
У тексті поміж словами розташована кома, за останнім словом - крапка. Вивести на екран усі слова,...

Дана строка; найти в ней те слова, которые содержат хотя бы одну букву к
Данна строка. Найти в ней те слова, которые содержат хотя бы одну букву к.

Дана строка, найти в ней те слова, которые содержат хотя бы одну букву k
Помогите решить. 4. Дана строка. Найти в ней те слова, которые содержат хотя бы одну букву k. ...

Найти все слова, в которые заданный символ входит не менее двух раз
Написать 2 программы 1) 2) Для каждой программы написать 2 варианта: 1 вариант - работа со...

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