IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Строки, Подсчитать....
сообщение
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 119
Пол: Мужской

Репутация: -  0  +


Строка символов представляет собой предложение,написанное на русском языке.Предложение имеет длину не более 100 символов и заканчивается точкой.Подсчитать количество различных букв,которые входят в это предложение.

Вот есть подобная задача.только с повторением слов.Что там надо исправить,чтобы всё работало?

помогите.Со строками у меня проблемы(

program k_3;
var
a:array [1..20] of string;{массив слов}
b:array [1..20] of byte;{Массив счетчиков появления слов}
r,i,j,k:byte;
st,st1:string;
Begin
WriteLn('Введите строку слов');
ReadLn(st);
k:=0;{индекс для перемещения по массиву слов и массиву счётчиков}
r:=1;
while r<= length(st) do
begin
while(st[r]='') and (i<=length(st)) do
r:=r+1;
j:=r; {Левая граница слова}
while (st[r]<>'') and (r<=length(st)) do
r:=r+1; {Правая граница слова}
st1:=copy(st,j,r-j);

{Поиск слова в массиве слов - а}
i:=1;
while (i<=20) and (a[i]<>st1) do
i:=i+1;

{Анализируем значение индекса i}
if i>20 then
begin
k:=k+1;
b[k]:=b[k]+1;
a[k]:=st1;
end
else
b[i]:=b[i]+1;
end;
WriteLn('В массиве (а) ',k,' различных слов ');
writeln('Частота появления каждого слова ');
for i:=1 to k do
writeln(a[i],' ',b[i]);
END.

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Rom1k   Строки   6.05.2007 5:00
мисс_граффити   С буквами намного проще :) По условию можно польз…   6.05.2007 6:02
Rom1k   нет там берется строка слов. проверяются слова,бук…   6.05.2007 17:03
Rom1k   ээээм....Никто не знает?!?!?!   6.05.2007 18:20
Malice   ээээм....Никто не знает?!?!?! Чтобы …   6.05.2007 18:35
Rom1k   А можешь помочь сделать с помощью множества или хо…   6.05.2007 18:40
Malice   А можешь помочь сделать с помощью множества или х…   6.05.2007 18:55
Rom1k   щас попробую сделать,не получится,напишу.спасибо з…   6.05.2007 19:08
Malice   Это практически вся программа, нужно только добави…   6.05.2007 19:40
Rom1k   вот это не могу понять??? :blink: :wacko:   7.05.2007 0:58
Артемий   Ну я так понял,что: al:=['a'..'z']…   7.05.2007 1:02
volvo   Артемий Не будет... То, что сделал ты - не заполне…   7.05.2007 1:05
Rom1k   вот то,что я написал.Что там может быть не правиль…   7.05.2007 1:11
Артемий   А так? program ad; uses crt; var b,al:set of char…   7.05.2007 1:20
Rom1k   он мне выводит 14,а задание было подсчитать количе…   7.05.2007 1:28
Malice   Тогда чуть иначе: var al:set of char; i: integer…   7.05.2007 1:55
Артемий   Кстати воспользуйся поиском,подобная задача уже бы…   7.05.2007 1:36
Rom1k   искал я...что-то ничего похожего.А вы не можете по…   7.05.2007 1:46
Артемий   Например,мой рейтинг,ссылка Текстовый файл.   7.05.2007 1:54
Rom1k   спасибо тебе огромное!!!!! Сей…   7.05.2007 2:38
Malice   ой...А он мне и большие буквы считывает как за от…   7.05.2007 2:56
Rom1k   а как потом эту функцию использовать в программе и…   7.05.2007 2:59
Rom1k   я её вызываю после ввода строки UpCase(с); Тольк…   7.05.2007 3:47
Артемий   for i:=1 to length(st) do s:=UpCase(st[i]);и по ст…   7.05.2007 3:51
Rom1k   ты имеешь ввиду в конце на выходе? что-то ничего н…   7.05.2007 4:00
мисс_граффити   нет, это должно быть сразу после ввода строки   7.05.2007 4:06
Rom1k   Вот код программы...Почему-то не учитывается больш…   7.05.2007 4:08
Rom1k   я наверное что-то неправильно в процедуре написал.…   7.05.2007 4:34
Malice   я наверное что-то неправильно в процедуре написал…   7.05.2007 4:58
Rom1k   Вот прикрепил программу.Я там все,что можно пыталс…   7.05.2007 5:39
Артемий   Знаешь,если как я смотреть без компилятора,то врод…   7.05.2007 10:44
Malice   Проверь, не поставил ли ты в функции UpCase неправ…   7.05.2007 14:19
Rom1k   всё ... UpCase мне не надо.А терь можете исправит…   9.05.2007 18:45
Rom1k   никто не может помочь?   9.05.2007 20:01
Malice   никто не может помочь? Чем ? Объясни, прога раб…   9.05.2007 20:30
Rom1k   мне нужны комменты к этой проге.я просто не оч пон…   9.05.2007 20:55
Rom1k   кто-нить может помочь?   10.05.2007 0:38


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 27.01.2022 16:43
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name