Посчитать количество вхождений буквы "о" в строке

@Wespe · Регистрация: 02.04.2016

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

Добрые люди, помогите! Сын балбес пропустил в школе тему по этому грешному Паскалю АВС, сам никак не может разобраться, я пытался помочь, та же ерунда, не моё это совсем. Полгугла перерыл, что-то не выходит каменный цветок... А нужно уже "вчера"...
Задача:
Посчитать количество вхождения буквы "о" в строке. (строка - яблоко, как ни задаю в ответе не количество букв "о" выходит,0 а тупо слово "яблоко"..
P.S.
Чтоб два раза не вставать, со следующими заданиями такая же фиговина:
3. Определи количество слов в предложении "Решение задач со строковыми величинами!" и определи количество букв в первом слове предложения.
4. Поменяй местами первое слово с последним во введенной строке.
5. Определить является ли введенное с клавиаруты слово палиндромом и сколько в нем гласных букв.

@bormant · 12.12.2022, 11:42

Pascal
1
2
3
4
5
6
var s: String; i, k: Integer;
begin
  Write('Строка: '); ReadLn(s); {k:=0;}
  for i:=1 to Length(s) do if s[i]='о' then Inc(k);  { 'о' -- русская }
  WriteLn('Количество "о": ', k);
end.

Добавлено через 1 минуту

Сообщение от Wespe

Чтоб два раза не вставать

Комментарий модератора

Вы, регистрируясь на форуме, пообещали следовать его правилам.
Дабы помочь в исполнении этого обещания, обращаю внимание, что правилами запрещается объединение нескольких вопросов в одной теме, создание тем с бессмысленными названиями, дублирование тем в рамках раздела или подразделов.

Ссылка на правила приложена, изучаем, впредь держим свое обещание.
Правила форума: http://www.cyberforum.ru/announcement.php?a=3

Для прочих вопросов создайте отдельные темы.

@Wespe · 12.12.2022, 11:58 **[ТС]**

Пишнет ошибку...

@bormant · 12.12.2022, 12:28

Рано вам буковки в яблоках считать...
Во-первых,
начните с подсчета количества буковок в (1) и (2):
1) PascalABC
2) PascalABC.NET

Во-вторых,

Сообщение от Wespe

Пишнет ошибку

не ошибку, а предупреждение (работе программы не мешает).

Добавлено через 1 минуту
PascalABC никаких предупреждений в этом коде не пишет.

Добавлено через 4 минуты
Важное уточнение: если изучаете "обычный" диалект Паскаля, но в качестве IDE вам рекомендовали использовать PascalABC.NET, продолжайте создавать темы в этом разделе или в общем разделе Pascal, рекомендую дополнительно указывать на использование IDE PascalABC.NET.
Если зададите вопрос в разделе PascalABC.NET, то с вероятностью 99,9% получите код на собственном диалекте PascalABC.NET, не похожем и не совместимом с "обычными" Паскалями.

@bormant · 12.12.2022, 12:35

Что касается предупреждения "Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла", речь о таком синтаксисе:
http://pascalabc.net/downloads... s/for.html

Pascal
1
for var i:=1 to Length(s) do ...

Такой синтаксис, кроме PascalABC.NET поддерживает с недавних пор Delphi и ... и собственно всё. Другие трансляторы языка (Turbo Pascal, PascalABC, Free Pascal, Virtual Pascal, ...) обошла чаша сия.

@Wespe · 12.12.2022, 13:01 **[ТС]**

Сообщение от bormant

Рано вам буковки в яблоках считать...
Во-первых,
начните с подсчета количества буковок в (1) и (2):
1) PascalABC
2) PascalABC.NET

А, блин. Понял. Спасибо!

@Alvico · 01.01.2023, 15:58

Сообщение от bormant

Другие трансляторы языка (Turbo Pascal, PascalABC

Нет и никогда не было языка PascalАВС. Интерпретатор языка Turbo Pascal под Windows, написанный на Delphi, назывался Pascal АВС (точно так, через пробел) и благополучно умер в 2007 году.

Новые блоги и статьи Все статьи Все блоги /
Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .
Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью в КА2. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа в КА2. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию. . .

@Wespe 2 / 2 / 0 Регистрация: 02.04.2016 Сообщений: 42

	Посчитать количество вхождений буквы "о" в строке 12.12.2022, 10:00. Показов 577. Ответов 6 Метки нет (Все метки) Добрые люди, помогите! Сын балбес пропустил в школе тему по этому грешному Паскалю АВС, сам никак не может разобраться, я пытался помочь, та же ерунда, не моё это совсем. Полгугла перерыл, что-то не выходит каменный цветок... А нужно уже "вчера"... Задача: Посчитать количество вхождения буквы "о" в строке. (строка - яблоко, как ни задаю в ответе не количество букв "о" выходит,0 а тупо слово "яблоко".. P.S. Чтоб два раза не вставать, со следующими заданиями такая же фиговина: 3. Определи количество слов в предложении "Решение задач со строковыми величинами!" и определи количество букв в первом слове предложения. 4. Поменяй местами первое слово с последним во введенной строке. 5. Определить является ли введенное с клавиаруты слово палиндромом и сколько в нем гласных букв. 0

@Wespe 2 / 2 / 0 Регистрация: 02.04.2016 Сообщений: 42
	12.12.2022, 11:58 [ТС]
	Пишнет ошибку... Миниатюры 0