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

@АНАСТАСИЯ18 · Регистрация: 26.02.2010

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

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 program lab_8;
uses crt;                               
const s: string[10]=',.?!()";:-';       
var str: string;                        
    i,j,k: integer;                     
begin                           
clrscr;                         
write('введите строку: ');              
readln(str);                    
for i:=0 to length(str) do              
 for j:=0 to length(s) do               
   if str[i]=s[j] then          
    if ((str[i]='.')and(str[i+1]='.')and(str[i+2]='.')) then    
     begin inc(k); i:=i+2;              
    else begin inc(k);                  
writeln('k = ',k);                                      
readln;                                         
end.

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

@Puporev · 24.04.2010, 11:44

Сообщение от АНАСТАСИЯ18

чтоб она считала длину строки

Вообще-то длина строки это или

Pascal
1
Length(s)

или

Pascal
1
ord(s[0]);

Добавлено через 6 секунд

Сообщение от АНАСТАСИЯ18

чтоб она считала длину строки

Вообще-то длина строки это или

Pascal
1
Length(s)

или

Pascal
1
ord(s[0]);

@АНАСТАСИЯ18 · 24.04.2010, 11:52 **[ТС]**

И как тогда условие писать чтоб считала количество букв в строке???

@Puporev · 24.04.2010, 12:00

АНАСТАСИЯ18, У Вас сплошной сумбур в голове. Длина строки и количество букв это разные вещи, в строке могут быть не все буквы.
Нужно в программу добавить или заменить константу

Pascal
1
const bk=['A'..'Z','a'..'z','А'..'п','р'..'ё'];

и считать так же как разделители.

Новые блоги и статьи Все статьи Все блоги /
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .
wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .

@АНАСТАСИЯ18 0 / 0 / 0 Регистрация: 26.02.2010 Сообщений: 24
	24.04.2010, 11:52 [ТС]
	И как тогда условие писать чтоб считала количество букв в строке??? 0