Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Двумерный массив https://www.cyberforum.ru/ turbo-pascal/ thread139701.html
Измените исходный массив, чтобы в каждой строке сменился знак максимального по модулю элемента на противоположный. Использовать подпрограммы.
Turbo Pascal Repeat: вычислять произведение двух чисел и спрашивать "завершать работу или нет"
Составить программу используя оператор Repeat Программа должна вычислять произведение двух чисел и спрашивать "завершать работу или нет", если нет, то продолжить запрашивать данные вычислять...
Turbo Pascal Блок-схема вычисления интеграла зарание благодорю 1. задача label m; var v : text; S1,s2,x,h,y2,y1,a,b:real; i,n:integer; function f(x:real):real; begin f:=1/(9+sqr(x)); https://www.cyberforum.ru/ turbo-pascal/ thread139698.html Turbo Pascal Найти max элемент и его индексы среди значений, лежащих на главной диагонали матрицы и выше нее (процедура) https://www.cyberforum.ru/ turbo-pascal/ thread139697.html
нужно сделать через процедуру)... в благодарность 50 р на мобилку или уа деньги... 1.Даны натуральное число n и квадратная матрица порядка n целочисленных элементов, где n≤12. Найти...
«Обработка иерархических записей. Оператор присоединения» Turbo Pascal
Составьте список учебной группы, включающей N человек. Для каждого учащегося укажите фамилию, имя, отчество, дату рождения, год поступления в ВУЗ, факультет, отделение, курс, группу. Информацию о...
Turbo Pascal Файлы записей: Анализ работы электронных средств массовой информации https://www.cyberforum.ru/ turbo-pascal/ thread139673.html
{Вариант 9 Тема: <Анализ работы электронных средств массовой информации> Разработать ПС, позволяющее проводить анализ работы электронных средств массовой информации (ЭСМИ). Вид ЭСМИ: радио,...
Turbo Pascal Подсчитать количество символов до точки с запятой и после нее https://www.cyberforum.ru/ turbo-pascal/ thread139671.html
в строке имеется точка с запятой (;). Подсчитать количество символов до точки с запятой и после нее. срочно надо, заранее спасибо))
Преобразовывать строку, удалив каждый символ * и повторив каждый символ, отличный от * Turbo Pascal
помогите пожалуйста!!! 1.дана строка. преобразовывать её, удалив каждый символ * и повторив каждый символ, отличный от *.
Turbo Pascal Блок-схема нужна какаята подпрограмма https://www.cyberforum.ru/ turbo-pascal/ thread139655.html
label m; var v : text; S1,s2,x,h,y2,y1,a,b:real; i,n:integer; function f(x:real):real; begin f:=1/(9+sqr(x)); end; procedure integral;
Turbo Pascal Шашки (помогите проверить код) Добрый день. В интернете нашел код программы по созданию шашечной доски, но почему-то при открытии, выдает ошибку: Процессор NTVDM обнаружил недопустимую инструкцию. Можете подсказать в чём... https://www.cyberforum.ru/ turbo-pascal/ thread139624.html
Turbo Pascal Записи: сколько учеников могут заниматься в баскетбольной секции
помогите пожалуйста((( в таблице хранятся следующие данные об учениках:фамилия, имя, отчество, рост, масса. сколько учеников могут заниматься в баскетбольной секции, если рост баскетболиста должен...
Turbo Pascal файловый тип данных https://www.cyberforum.ru/ turbo-pascal/ thread139615.html
PLEASE HELP ME((( записать в файл последовательного доступа N действительных чисел. найти разность первого и последнего компонентов файла
162 / 162 / 42
Регистрация: 29.05.2010
Сообщений: 435
02.06.2010, 16:06 0

Подсчитать сколько раз встречается буква "а" и буква "с" в строке и сделать вывод. - Turbo Pascal - Ответ 773841

02.06.2010, 16:06. Показов 3366. Ответов 2
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
 s:string;
 i,a,c:byte;
begin
 Writeln('Vvedite stroku');
 readln(s);
 a:=0;
 c:=0;
for i:=1 to length(s) do
  if copy(s,i,1)='a' then inc(a)
                     else if copy(s,i,1)='c' then inc(c);
if a>c then writeln('True') else Writeln('False');
readln;
end.


Вернуться к обсуждению:
Подсчитать сколько раз встречается буква "а" и буква "с" в строке и сделать вывод. Turbo Pascal
2
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.06.2010, 16:06
Готовые ответы и решения:

Подсчитать сколько раз в слове встречается буква "а" за которой следует буква "б"
подсчитать сколько раз в слове встречается буква &quot;а&quot; за которой следует буква &quot;б&quot;

Найти, в каком месте предложения впервые встречается буква "f" и сколько раз встречается всего
Дано предложение. Найти: -в каком месте впервые встречается буква &quot;f&quot;; -сколько раз &quot;f&quot;...

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

Прочитать файл TWO определить, сколько раз в нем встречается буква "a"
Прочитать файл TWO определить, сколько раз в нем встречается буква &lt;&lt;a&gt;&gt; Составить блок-схему...

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

Сколько раз в файле встречается буква "a"
Прочитать файл TWO определить, сколько раз в нем встречается буква &lt;&lt;a&gt;&gt; Составить блок-схему...

Написать программу,которая подсчитывает,сколько раз среди символов заданной строки встречается буква "К"
Написать программу,которая подсчитывает,сколько раз среди символов заданной строки встречается...

Запишите условие истинное, если в записи фамилии "Соколенко" встречается буква "я"
запишите условие истинное,если в записи фамилии &quot;Соколенко&quot; встречается буква &quot;я&quot;

Если в обеих строках чаще всего встречается одна и та же буква, то вывести на экран сообщение "да", иначе – "нет"
Даны две строки символов, состоящие из строчных английских букв, не содержащие пробелов. Если и в...

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