ddgg
1

Что нужно добавить в программу чтобы она считала еще и количество слов?

04.06.2010, 13:59. Показов 879. Ответов 2
Метки нет (Все метки)

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
program lab_8;
 
uses crt;                               {подключаем модуль crt}
 
const s: string[10]=',.?!()";:-';       {объявляем строковую константу со знаками препинания}
 
var str: string;                        {объявляем строковую переменную}
    i,j: integer;                       {индексы для массивов}
    k: integer;
    slovo: string;                      {кол-во знаков препинания в строке}
 
begin                           {начало основной программы}
 
clrscr;                         {очистка экрана}
 
write('vvedite stroku: ');              {все и так понятно}
readln(str);                    {считываем строку}
 
for i:=0 to length(str) do
                {внешник цикл по символам строки str}
 for j:=0 to length(s) do               {внутренний цикл по символам строки s}
   if str[i]=s[j] then          {если в str есть знак препинания, то}
    if ((str[i]='.')and(str[i+1]='.')and(str[i+2]='.')) then    {проверяем является ли знак препинания многоточием (три точки)}
     begin inc(k); i:=i+2; break; end                   {если да, то увеличиваем k на 1 и переприсваиваем значение i для
                                                 пропуска многоточия, выходим из внутрененго цикла служебным словом break}
    else begin inc(k); break; end;                      {если нет, то увеличиваем k на 1 и выходим из внутренего цикла}
 
writeln('k = ',k);                                      {выводим на экран кол-во знаков препинания}
readln;                                         {считываем строку}
 
end.                                            {конец}
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.06.2010, 13:59
Ответы с готовыми решениями:

Что нужно добавить в программу чтобы при выводе на экран она предлагала выбрать число элементов массива
подскажите что нужно добавить в программу чтобы при выводе на экран она предлагала выбрать число...

Программа не воспринимает вводимый текст. Что нужно добавить чтобы она заработала?
#include <iostream> using namespace std; int main () { int gallons, liters; cout <<...

Как сделать так чтобы в матрице присутствовали еще и нулевые элементы и программа считала их количество?
#include <iostream> #include <cstdlib> #include <ctime> using namespace std; int main() {...

Изменить программу, чтобы она выводила только количество слов?
#include <stdio.h> int main() { char ch, flag=-1; unsigned c=0, n=0, w=0; while ((ch =...

2
3306 / 1368 / 110
Регистрация: 28.04.2009
Сообщений: 4,822
04.06.2010, 14:10 2
что нужно добавить в программу что бы она считала еще и количество слов?
а сразу нельзя было спросить?
спросили, ответ получили. Снова тему создали.
0
Почетный модератор
64076 / 47486 / 32735
Регистрация: 18.05.2008
Сообщений: 115,185
04.06.2010, 14:25 3
Вот вместо этого
Pascal
1
const s: string[10]=',.?!()";:-';
лучше
Pascal
1
const rz=[',','.','?','!','(',')','"',';',':','-',''''];
тогда количество слов
Pascal
1
2
3
4
k:=0;
for i:=1 to length(s) do
if not(s[i] in rz)and((s[i-1] in rz)or(i=1)) then k:=k+1;
{если не разделитель, а перед ним разделитель или это первый символ}
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.06.2010, 14:25

Не могу доработать программу. Что нужно ещё добавить?
Не могу доработать программу. Что нужно ещё внести, чтобы после проверки матрицы (d) при условии,...

Что добавить в программу чтобы она показывала коды нажатых клавиш?
touchkeyboardactivity.cpp ///GNU GENERAL PUBLIC LICENSE Version 3 #include <sys/mman.h>...

Как дописать программу что бы она правильно считала по методу левых прямоугольников?
Как дописать программу что бы она правильно считала по методу левых прямоугольников? ...

Что нужно дописать в программу чтобы она оставалась на экране 10 секунд
Что нужно дописать в программу чтобы она оставалась на экране 10 секунд ( редактор MSVS 2010...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.