Написать процедуру, которая считает количество слов в строке.

@Simkara · Регистрация: 26.11.2011

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

С клавиатуры вводится строка.
Написать процедуру, которая считает количество слов в строке.

Помогите.

@versa4e · 15.12.2011, 22:23

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
  i,words:byte;
  line:string;
procedure CountWords(st:string;var k:byte);
var
  i:byte;
begin
  k:=0;
  for i:=1 to length(st) do
    if st[i]=' ' then
      inc(k);
  k:=k+1;
end;
begin
  write('Vvedite stroku:');
  readln(line);
  CountWords(line,words);
  writeln('Kolichestvo slov v stroke:',words);
end.

@Simkara · 15.12.2011, 22:41 **[ТС]**

Спасибо!
А можешь написать вот такую процедуру?

С клавиатуры вводится строка.
Процедура должна присвоить каждому слову в строке номер от 1, 2, 3 и т.д. и уметь выводить любой из них по запросу. Если вводимого номера не существует, то выводится пустая строка.

Пример:
Введите строку: слон кот зима
Введите номер слова для вывода: 2
кот

@versa4e · 16.12.2011, 06:33

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
28
29
30
31
32
33
var
  s1:array[1..50] of string;
  s:string;
  i,k,n:byte;
procedure DelSpace(var st:string);
begin
  while (st[1]=' ') and (st<>'') do
    delete(st,1,1);
end;
function GetWord(var st:string):string;
begin
  GetWord:=Copy(st,1,Pos(' ',st)-1);
  Delete(st,1,Pos(' ',st));
  DelSpace(st);
end;
begin
  write('Vvedite text:');
  readln(s);
  s:=s+' ';
  DelSpace(s);
  k:=0;
  while s<>'' do
    begin
      inc(k);
      s1[k]:=GetWord(s);
    end;
  write('Nomer slova dlya vyvoda:');
  readln(n);
  if n>k then
    writeln('')
  else
    writeln(s1[n]);
end.

@Simkara · 16.12.2011, 18:30 **[ТС]**

Все отлично!
Но, можно как нибудь DelSpace и GetWord объединить в одну процедуру?

Просто, я потом буду соединять несколько процедур в один модуль. И лучше будет, если тело новой программы будет в таком виде:

Pascal
1
2
3
4
5
6
7
8
begin
  write('Vvedite text:');
  readln(s);
  writeln ('Nomer slova dlya vyvoda:');
  readln(n);
  GetWord (?); 
  writeln (slovo);
end.

Для нашего случая, должно выглядеть примерно в таком виде:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  s1:array[1..50] of string;
  s:string;
  i,k,n:byte;
procedure GetWord (?) {объединенная процедура}
{тело процедуры}
begin
  write('Vvedite text:');
  readln(s);
  writeln ('Nomer slova dlya vyvoda:');
  readln(n);
  GetWord (?); 
  writeln (slovo);
end.

Т.е. что бы все расчеты и значения переменных на себя брала функция.
Которую я потом вставлю в модуль.

Но, если не получится так сделать, то можно хотя бы минимизировать количество дополнительных операций для тела новой программы?
Под дополнительными операциями имеется ввиду:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
s:=s+' ';
 
k:=0;
 
while s<>'' do
    begin
      inc(k);
      s1[k]:=GetWord(s);
    end;
 
if n>k then
    writeln('')
  else
    writeln(s1[n]);

Можно ли что нибудь из этого вставить в тело процедуры, а не в тело программы?
К примеру для выбора вывода на экран:

Pascal
1
2
3
4
5
6
7
8
9
10
{код для процедуры}
var Slovo:byte;
if n>k then
    Slovo:=''
  else
    Slovo:=s1[n];
 
{код для тела новой программы}
  GetWord (?); 
  writeln (slovo);

Надеюсь, что мысль понятна

Просто все должно быть похоже, как в вашей первой процедуре на подсчет слов. =)

@versa4e · 16.12.2011, 21:18

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
28
29
30
31
32
33
34
type
  Tstring=array[1..50] of string;
var
  word_arr:Tstring;
  s:string;
  n:byte;
procedure TypeWord(var st:string;var w_arr:Tstring;n_word:byte);
var
  k:byte;
begin
  st:=st+' ';
  while (st[1]=' ') and (st<>'') do
    delete(st,1,1);
  k:=0;
  while st<>'' do
    begin
      inc(k);
      w_arr[k]:=Copy(st,1,Pos(' ',st)-1);
      Delete(st,1,Pos(' ',st));
      while (st[1]=' ') and (st<>'') do
        delete(st,1,1);
    end;
  if n_word>k then
    writeln('')
  else
    writeln(w_arr[n_word]);
end;
begin
  write('Vvedite text:');
  readln(s); 
  write('Nomer slova dlya vyvoda:');
  readln(n);
  TypeWord(s,word_arr,n);
end.

@Simkara · 17.12.2011, 01:19 **[ТС]**

Благодарю!

Не могли бы вы пояснить вот эту строчу:

Pascal
1
TypeWord(s,word_arr,n);

Мне процесс вывода не до конца понятен.

Добавлено через 21 минуту
А можете написать точно такую же процедуру, но выводится не слово под выбранным номером, а все остальные?
Т.е. выбранное слово как-бы удаляется из строки и выводится уже измененная строка.

И я у вас больше ничего не спрошу, чесна, чесна. Это последняя просьба. ^_^

@versa4e · 17.12.2011, 01:57

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

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

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
type
  Tstring=array[1..50] of string;
var
  word_arr:Tstring;
  s:string;
  n,k:byte;
procedure TypeWord(var st:string;var w_arr:Tstring;var size:byte;n_word:byte);
begin
  st:=st+' ';
  while (st[1]=' ') and (st<>'') do
    delete(st,1,1);
  k:=0;
  while st<>'' do
    begin
      inc(k);
      w_arr[k]:=Copy(st,1,Pos(' ',st)-1);
      Delete(st,1,Pos(' ',st));
      while (st[1]=' ') and (st<>'') do
        delete(st,1,1);
    end;
  if n_word>k then
    writeln('')
  else
    writeln(w_arr[n_word]);
end;
function VernytStroku(massiv_slov:Tstring;ego_razmer:byte;nomer_slova:byte):string;
var
  i:byte;
  stroka_bez_slova:string;
begin
  stroka_bez_slova:='';
  for i:=1 to ego_razmer do
    if i<>nomer_slova then
      stroka_bez_slova:=stroka_bez_slova+massiv_slov[i]+' ';
  VernytStroku:=stroka_bez_slova;
end;
begin
  write('Vvedite text:');
  readln(s); 
  write('Nomer slova dlya vyvoda:');
  readln(n);
  TypeWord(s,word_arr,k,n);
  writeln('Formirueym stroku bez slova pod nomerom ',n);
  writeln(VernytStroku(word_arr,k,n));
end.

@Simkara · 17.12.2011, 22:39 **[ТС]**

Эм, тут есть лишние действия.

Сейчас программа работает так:

Введите строку: раз два три
Введите номер слова для вывода: 2
два
Формируем строки без слова под номером 2
раз три

А должно работать вот так:
Введите строку: раз два три
Введите номер удаляемого слова: 2
раз три {вывод измененной строки}

Я так понимаю, что процедура TypeWord здесь будет лишней?
Ну или во всяком случае желательно объединить TypeWord с функцией VernytStroku, если это возможно.

@versa4e · 18.12.2011, 00:09

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
28
29
30
31
32
33
34
35
36
type
  Tstring=array[1..50] of string;
var
  s:string;
  n:byte;
procedure DeleteWord(var st:string;n_word:byte);
var
  i,k:byte;
  w_arr:Tstring;
begin
  st:=st+' ';
  while (st[1]=' ') and (st<>'') do
    delete(st,1,1);
  k:=0;
  while st<>'' do
    begin
      inc(k);
      w_arr[k]:=Copy(st,1,Pos(' ',st)-1);
      Delete(st,1,Pos(' ',st));
      while (st[1]=' ') and (st<>'') do
        delete(st,1,1);
    end;
  if n_word<=k then
    for i:=1 to k do
      if i<>n_word then
        st:=st+w_arr[i]+' ';
end;
begin
  write('Vvedite text:');
  readln(s); 
  write('Nomer udalyaemogo slova:');
  readln(n);
  DeleteWord(s,n);
  writeln('Novaya stroka:');
  writeln(s);
end.

@Simkara · 18.12.2011, 12:13 **[ТС]**

versa4e
Ты просто Гуру, большое спасибо!

Новые блоги и статьи Все статьи Все блоги /
Async/await в Swift: Асинхронное программирование в iOS mobDevWorks 20.03.2025 Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .	Сложность Колмогорова: Приёмы упрощения кода ArchitectMsa 20.03.2025 Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .	PostgreSQL в Kubernetes: Подготовка кластера и настройка Mr. Docker 20.03.2025 Когда доходит до контейнеризации баз данных и особенно таких требовательных к ресурсам системах как PostgreSQL, многие команды до сих пор колеблются, прежде чем перенести их в контейнерную. . .	C++26: Индексирование пакетов и метапрограммирование bytestream 20.03.2025 Эволюция C++ продолжается стремительными темпами – каждый новый стандарт приносит функциональность, о которой мы мечтали годами. Звучит слишком громко? Если вы когда-либо боролись с вариадическими. . .	Состояние гонки в C#: подводные камни многопоточного программирования UnmanagedCoder 20.03.2025 Что такое состояние гонки? Это ситуация, когда результат программы непредсказуемо меняется в зависимости от порядка выполнения потоков. Проще говоря, два или более потока пытаются одновременно. . .
Next.js для разработки React: преимущества серверного рендеринга Reangularity 20.03.2025 Next. js решает классическую проблему React-приложений: медленную первоначальную загрузку и плохую индексацию поисковиками. Вместо того чтобы заставлять браузер пользователя выполнять всю работу по. . .	JUnit или TestNG: Выбираем Java-фреймворк для тестирования Javaican 20.03.2025 История тестовых фреймворков в Java началась в конце 90-х, когда Кент Бек и Эрих Гамма разработали JUnit - инструмент, который перевернул представление разработчиков о модульном тестировании. JUnit. . .	Разбиваем монолит на два микросервиса и реализуем CI/CD ArchitectMsa 20.03.2025 Когда команда растет, а функциональность монолита расширяется, поддерживать и развивать такую систему становится все труднее. Разработчики начинают тратить много времени на разбор сложных. . .	Python и PDF: Создание и редактирование файлов py-thonny 20.03.2025 Работа с PDF-документами – одна из популярных задач в современной разработке. Python предлагает несколько инструментов для создания, чтения и редактирования PDF-файлов, среди которых особенно. . .	Корутины в Unity и производительность WaitForSeconds GameUnited 20.03.2025 Разработчики игр на Unity часто сталкиваются с вопросом: как выполнять действия через определённые промежутки времени, не блокируя основной поток игры? Тут как раз и приходят на помощь корутины —. . .

@Simkara 16 / 3 / 4 Регистрация: 26.11.2011 Сообщений: 92

	Написать процедуру, которая считает количество слов в строке. 15.12.2011, 22:12. Показов 9164. Ответов 10 Метки нет (Все метки) С клавиатуры вводится строка. Написать процедуру, которая считает количество слов в строке. Помогите. 0

@Simkara 16 / 3 / 4 Регистрация: 26.11.2011 Сообщений: 92
	15.12.2011, 22:41 [ТС]
	Спасибо! А можешь написать вот такую процедуру? С клавиатуры вводится строка. Процедура должна присвоить каждому слову в строке номер от 1, 2, 3 и т.д. и уметь выводить любой из них по запросу. Если вводимого номера не существует, то выводится пустая строка. Пример: Введите строку: слон кот зима Введите номер слова для вывода: 2 кот 0

@Simkara 16 / 3 / 4 Регистрация: 26.11.2011 Сообщений: 92
	17.12.2011, 22:39 [ТС]
	Эм, тут есть лишние действия. Сейчас программа работает так: Введите строку: раз два три Введите номер слова для вывода: 2 два Формируем строки без слова под номером 2 раз три А должно работать вот так: Введите строку: раз два три Введите номер удаляемого слова: 2 раз три {вывод измененной строки} Я так понимаю, что процедура TypeWord здесь будет лишней? Ну или во всяком случае желательно объединить TypeWord с функцией VernytStroku, если это возможно. 0

@Simkara 16 / 3 / 4 Регистрация: 26.11.2011 Сообщений: 92
	18.12.2011, 12:13 [ТС]
	versa4e Ты просто Гуру, большое спасибо! 0