Подсчитать количество слов в строке

@Наташоначек · Регистрация: 19.12.2008

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

Дана строка, которая содержит от 2 до 50 слов в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами не меньше оного пробела, за последним словом нет пробелов. Подсчитать количество слов в строке.

Напишите, что не правильно программе

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program slovo;
var a:strin; i,j:integer; t:boolean;
begin
writeln('vvedite stroky');
readln(a);
i:=1; j:=0;
whle i<=length(a) do
begin
t:=false;
while (a[i]<>' ') and (<=length(a)) do
begin
t:=true;
i:=i+1;
end;
if t then j:=j+1;
i:=i+1;
end;
writeln('v ctrokekolichesvo slov=',j);
readln;
end.

@XuTPbIu_MuHTAu · 25.01.2009, 13:15

Неправильно то,что она на паскале,а это раздел по си/си++

Добавлено через 1 минуту 5 секунд
*был

accept · 25.01.2009, 13:31

C++
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
 
#include <stdio.h>
#include <string.h>
 
#define MAXLINE   1000   /* максимальная длина строки    */
#define MAXWORD   8      /* максимальная длина слова     */
#define MINWORDS  2      /* минимальное количество слов  */
#define MAXWORDS  50     /* максимальное количество слов */
 
/* считает количество слов в строке когда
   в слове от 1 до 8 символов, в строке от 2 до 50 слов */
main()
{
    char line[MAXLINE], *p;
    int nw;
    
    for (nw = 0;
         (p = fgets(line, MAXLINE, stdin)) != NULL;
         nw = 0) {
        for (p = strtok(line, " \r\n");
             p != NULL && strlen(p) <= MAXWORD;
             p = strtok(NULL, " \r\n"))
            nw++;
        if (p == NULL
         && nw >= MINWORDS 
         && nw <= MAXWORDS)
            printf("%3d words in line\n", nw);
    }        
    return 0;
}

@Наташоначек · 25.01.2009, 13:31 **[ТС]**

я чего-то не догоняю

Pascal????

@plemiash · 25.01.2009, 23:34

а если посчитать пробелы отнять 1....если несколько пробелов между словами то сдвинуть массив чтобы было по одному и посчиать8)

accept · 26.01.2009, 00:13

это посчитать последние буквы слов, если их номеры в словах меньше или равны 8

то есть открываешь каждое слово, проматываешь его символы до последнего, если он восьмой или меньший слово считается, если он девятый и более - выход

@Игорь[Igor] · 29.01.2009, 02:05

Сообщение от Наташоначек

я чего-то не догоняю

Pascal????

То не паскаль.
Вот паскаль, уже наверно не нужно, но все таки.

Code
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
program slovo;   
var
   a: string;
   i, j: integer;
   t: boolean;
begin
     writeln('vvedite stroky');
     readln(a);
     i:=1;
     j:=0;
     while i<=length(a) do
     begin
        t:=false;
        while (a[i]<>' ') and (i<=length(a)) do
        begin
             t:=true;
             i:=i+1;
        end;
        if t then
        j:=j+1;
        i:=i+1;
     end;
     writeln('v ctrokekolichesvo slov=',j);
     readln;
end.

Новые блоги и статьи Все статьи Все блоги /
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 https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .

@XuTPbIu_MuHTAu 2256 / 771 / 25 Регистрация: 27.05.2008 Сообщений: 1,496
	25.01.2009, 13:15
	Неправильно то,что она на паскале,а это раздел по си/си++ Добавлено через 1 минуту 5 секунд *был 0

@Наташоначек 1 / 1 / 0 Регистрация: 19.12.2008 Сообщений: 34
	25.01.2009, 13:31 [ТС]
	я чего-то не догоняю Pascal???? 0

@plemiash 0 / 0 / 0 Регистрация: 13.01.2009 Сообщений: 17
	25.01.2009, 23:34
	а если посчитать пробелы отнять 1....если несколько пробелов между словами то сдвинуть массив чтобы было по одному и посчиать8) 0

accept 4866 / 3288 / 468 Регистрация: 10.12.2008 Сообщений: 10,570
	26.01.2009, 00:13
	это посчитать последние буквы слов, если их номеры в словах меньше или равны 8 то есть открываешь каждое слово, проматываешь его символы до последнего, если он восьмой или меньший слово считается, если он девятый и более - выход 0