Правила форума: Называем темы четко, сообщения пишем грамотно и по делу, уважаем друг друга, флуд и спам неприемлемы!   Все вопросы сюда>>



АвторСообщение



Сообщение: 2
Репутация: 0
ссылка на сообщение  Отправлено: 12.03.10 06:30. Заголовок: Задача подсчета кол-ва слов в строке (Турбо паскаль)


Ребята помогите пожалуйста.... Вы знаете как написать программу для подсчета, сколько N-символьных слов (число N вводится пользователем) содержится во введенной строке символов....Напишите хотя бы примерно....Заранее спасибо

Спасибо: 0 
ПрофильЦитата Ответить
Ответов - 3 [только новые]


Администратор




Сообщение: 223
Репутация: 1
ссылка на сообщение  Отправлено: 12.03.10 14:09. Заголовок: На каком языке писат..


На каком языке писать?
Это ведь задачка по учебе?

Спасибо: 0 
ПрофильЦитата Ответить



Сообщение: 3
Репутация: 0
ссылка на сообщение  Отправлено: 13.03.10 05:37. Заголовок: Да, На языке Турбо П..


Да, На языке Турбо Паскаль

Спасибо: 0 
ПрофильЦитата Ответить
Администратор




Сообщение: 224
Репутация: 1
ссылка на сообщение  Отправлено: 14.03.10 00:17. Заголовок: До чего же давно не ..


До чего же давно не писал на Паскале!!!

 
program my;
uses crt;
var
str: string;
lenStr,
i, nWords: integer;
spacer: set of char;
begin
clrscr;
write('Input string and press Enter: ');
readln(str);
str := str + '.'; { Пусть строка всегда заканчивается точкой }
spacer := [' ', '.', ',', ';', ':', '!', '?']; { Набор разделителей слов }
lenStr := length(str);
nWords := 0;

for i := 2 to lenStr do { Просмотр всех символов со второго }
if((str in spacer)and not (str[i-1] in spacer))then
inc(nWords); { Только если после нормального символа идет разделитель }

write('There are ', nWords, ' words!', #13#10, 'Press any key...');
repeat until keypressed;
end.


Спасибо: 0 
ПрофильЦитата Ответить
Ответ:
1 2 3 4 5 6 7 8 9
видео с youtube.com картинка из интернета картинка с компьютера ссылка файл с компьютера русская клавиатура транслитератор  цитата  кавычки оффтопик свернутый текст

показывать это сообщение только модераторам
не делать ссылки активными
Имя, пароль:      зарегистрироваться    
Тему читают:
- участник сейчас на форуме
- участник вне форума
Все даты в формате GMT  3 час. Активность сегодня: 4
Права: смайлы да, картинки да, шрифты нет, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет





Мир Идей:
∙ Форумы ∙
∙ Космос ∙
∙ Heroes ∙
∙ Зона И ∙
∙ Раритеты ∙
∙ WEB ∙
∙ AML ∙
∙ Program ∙


(C) Copyright 1998 – 2016 by Alex_soldier