Проверьте(!) текст программы и ответьте(!!) на лёгкие(!!!) вопросы...

@Imp7_13 · Регистрация: 22.12.2010

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

Проверьте текст программы, правильна ли, и помогите, ответив на вопросы...

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program str;
 uses crt;
var
 s:string;
 i,k:integer;
 b:char;
begin
writeln('Введите текст');
Readln(S);
Writeln('Введите букву, которой должно заканчиваться слово');
readln(b);
 if  b=s[i] then
  k:=1;
For i:=1 to length(s) do
if (s[i]=' ')  and (s[i-1]=b) then inc(k);
writeln('Количество слов, заканчивающихся на букву ',b, ' равно ', k);
end.

...за что отвечает переменная i в строке "if b=s[i] then",
как она называется и чему, именно в этой строке, равна?

@Obliv · 22.12.2010, 20:22

в чем суть задачи?

@Imp7_13 · 22.12.2010, 20:26 **[ТС]**

Условие: составьте программу, позволяющую определить, сколько слов в заданном тексте оканчивается на введённую далее букву. Считать, что слова отделены друг от друга пробелами.

Добавлено через 1 минуту
Прога то работает, однако меня мучают теоретическими вопросами, а я - практик!

@Obliv · 22.12.2010, 20:28

if b=s[i] then k:=1; вообще не надо

Добавлено через 1 минуту
вместо нее s:=s+' '

@Imp7_13 · 22.12.2010, 20:37 **[ТС]**

ясно, ясно...однако, если всё-же использовать эту строку, то как ответить на вопросы?

Добавлено через 3 минуты
а зачем эта ( s:=s+' ' ) строка и за что она отвечает?

@Obliv · 22.12.2010, 20:45

Название - индекс элемента строки.
По умолчанию i=0
Получаем, что, если нулевой символ строки s = искомому символу, то k:=1.
Но, нумерация строки начинается с 1, т.е s[1]= первому символу строки, а s[0]='' (пустой строке).
Следовательно, эти записи вообще не используются и условие не выполняется.

Добавлено через 1 минуту
добавление в конец строки пробела.
пример:
'раму мыла мама'
символ 'а'
попробуй без строки

@Imp7_13 · 22.12.2010, 20:53 **[ТС]**

( s:=s+' ' ) -- работает)

Добавлено через 3 минуты
...только теперь надо думать над обьяснением, почему кусок порграммы заменён))

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@Obliv 18 / 18 / 9 Регистрация: 19.12.2010 Сообщений: 30
	22.12.2010, 20:22
	в чем суть задачи? 0

@Imp7_13 0 / 0 / 0 Регистрация: 22.12.2010 Сообщений: 8
	22.12.2010, 20:26 [ТС]
	Условие: составьте программу, позволяющую определить, сколько слов в заданном тексте оканчивается на введённую далее букву. Считать, что слова отделены друг от друга пробелами. Добавлено через 1 минуту Прога то работает, однако меня мучают теоретическими вопросами, а я - практик! 0

@Obliv 18 / 18 / 9 Регистрация: 19.12.2010 Сообщений: 30
	22.12.2010, 20:28
	if b=s[i] then k:=1; вообще не надо Добавлено через 1 минуту вместо нее s:=s+' ' 0

@Imp7_13 0 / 0 / 0 Регистрация: 22.12.2010 Сообщений: 8
	22.12.2010, 20:37 [ТС]
	ясно, ясно...однако, если всё-же использовать эту строку, то как ответить на вопросы? Добавлено через 3 минуты а зачем эта ( s:=s+' ' ) строка и за что она отвечает? 0

@Obliv 18 / 18 / 9 Регистрация: 19.12.2010 Сообщений: 30
	22.12.2010, 20:45
	Название - индекс элемента строки. По умолчанию i=0 Получаем, что, если нулевой символ строки s = искомому символу, то k:=1. Но, нумерация строки начинается с 1, т.е s[1]= первому символу строки, а s[0]='' (пустой строке). Следовательно, эти записи вообще не используются и условие не выполняется. Добавлено через 1 минуту добавление в конец строки пробела. пример: 'раму мыла мама' символ 'а' попробуй без строки 0

@Imp7_13 0 / 0 / 0 Регистрация: 22.12.2010 Сообщений: 8
	22.12.2010, 20:53 [ТС]
	( s:=s+' ' ) -- работает) Добавлено через 3 минуты ...только теперь надо думать над обьяснением, почему кусок порграммы заменён)) 0