Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Ailexxs
0 / 0 / 0
Регистрация: 16.01.2013
Сообщений: 4
1

Как создать программу подсчитывающую колличество знаков препинания в тексте

17.01.2013, 13:40. Просмотров 715. Ответов 3
Метки нет (Все метки)

Нужно создать данную программу.Я студент первого курса,а в поскале плохо все понимаю.Попрошу,если не сложно,расписать программу с пояснениями.Заранее спасибо.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.01.2013, 13:40
Ответы с готовыми решениями:

Программа для вывода на экран знаков препинания(с указанием их АСКИ-кода) знаков препинания
Напишите и отладьте программу для вывода на экран(с указанием их АСКИ -кода)...

В произвольном тексте подсчитать количество знаков препинания
В произвольном тексте подсчитать количество знаков...

Определить количество знаков препинания в тексте из 20 строк
Доброго времени суток Помогите, пожалуйста, с программой. Необходимо...

в тексте из 5-6 предложений посчитать количество знаков препинания с помощью процедуры.
в тексте из 5-6 предложений посчитать количество знаков препинания с помощью...

Доделать программу на количество знаков препинания!!!
Это программа, которая находит количество знаков препинания в заданной...

3
Bringoff
СуперМодулятор
133 / 132 / 48
Регистрация: 03.11.2012
Сообщений: 974
18.01.2013, 16:31 2
Это же елементарно, Ватсон. Правда, если длинный текст, то читать из файла лучше.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 Const
 Symb = ['.',',','-',':',';','"'];// тут добавить все нужные символы
  Var
   Index:longint;
   Ch:char;
   Begin
   Assign(input, 'filename.txt'); //введи нужное имя файла
   Reset(input);
   While not  eof do //если не из файла читать, то будет бесконечно
   Begin
     Read (ch);
     If (ch in symb) then inc (index);//если знак препинания, то увеличить количество на 1
   End;
   Writeln (index);
End.
1
Ailexxs
0 / 0 / 0
Регистрация: 16.01.2013
Сообщений: 4
18.01.2013, 17:38  [ТС] 3
Большое спасибо! Но для меня пока сложновато)) Мой уровень примерно такой пока:


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
const punctuation_marks=['.', ',', ';', ':', '?', '!']; { Знаки препинания }
var
    input_text: string; { Входной текст }
    i: integer; { параметр цикла }
    punctuation_marks_count: integer; { Счётчик: количество знаков препинания в тексте }
begin
    writeln('Введите текст, затем Enter:');
 
    { Пользователь вводит значение в переменную }
    readln(input_text);
 
    { Изначально счётчик равен нулю. Пока ещё не посчитали ни одного знака }
    punctuation_marks_count:=0;
 
    { i - номер символа в строке, от 1 до длины текста }
    for i:=1 to length(input_text) do
        { input_text[i] - сам i-й символ строки }
        { если это символ присутствует среди массива символов знаков препинания... }
        if input_text[i] in punctuation_marks
            { ...то увеличиваем счётчик на единицу }
            then punctuation_marks_count:=punctuation_marks_count + 1;
 
    { выводим сообщение }
    writeln('Количество знаков препинания в тексте: ', punctuation_marks_count, '. Нажмите Enter для выхода из программы.');
 
    { ожидаем нажатия Enter }
    readln;
end.
0
Bringoff
СуперМодулятор
133 / 132 / 48
Регистрация: 03.11.2012
Сообщений: 974
18.01.2013, 17:43 4
У меня 2 отличия: читает тексты любой длины ( у Вас максимум 255 символов); и у меня считает при самом считывании текста посимвольно. Это занимает меньше памяти.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.01.2013, 17:43

Доделать программу на количество знаков препинания!!!
Это программа, которая находит количество знаков препинания в заданной...

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

Написать программу, которая находит количество знаков препинания в заданной символьной строке.
Написать программу, которая находит количество знаков препинания в заданной...


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

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

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