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

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

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

 
 Ответить  Открыть новую тему 
> Задача на массивы, Компоненты массива символы русского алфавита ... напечатать наибольшую
сообщение
Сообщение #1


Гость






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


Кто то сказал что можно как то из этого переделать!
program soglas; 
uses crt;
var
Z:array[1..120] of char;
i:integer;
d:boolean ;
gl:set of char;
sog:set of char;
begin
clrscr;
gl:=['©','г','Ґ','л',' ','®','п','Ё','о','н','‰','“','…','›','Ђ','Ћ','ћ','ќ','?','Ћ','ќ','џ'];
sog:=['ж','Є','','Ј','и','й','§','е','д','ў','Ї','а','«','¤','¦','з','б','¬','в','Ў','–','Љ','Ќ','ѓ','˜','™','‡','•','”','Џ',
'ђ','‹','„','†','—','‘','Њ','’','Ѓ','‚'];
For i:=1 to 10 do
begin
write('‚ўҐ¤ЁвҐ ЎгЄўг > ');
readln(Z[i]);
end;
For i:=1 to 10 do
begin
if Z[i] in sog then
begin write(Z[i]);
d:=true;
end else if d<>true then d:=false;
end;
if not(d) then writeln('ЌҐв б®Ј« бле ЎгЄў');
readln;
end.

 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Человек
*****

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

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


Цитата(ATT @ 4.05.2008 0:31) *
Кто то сказал что можно как то из этого переделать!
а он тебе не скзал какая там кодировка?)
но в принципе программа дельная...
алгоритм выглядит как-то так
Код
заводишь две переменные счётчика и переменную максимума, одномерный массив(строка)
читаешь строку
обновляешь максимум
проходишь от начала строки до конца и для каждой буквы(порядок буквы текущие значения счетчика)
      если буква гласная то добавить к счетчику1 еденицу
            в противном случае
                  если счетчик1 > максимума записать в максимум счетчик1
      обнулить счетчик1
вернуть значения максимума

если что будет не получаться, задавай _конкретные_ вопросы

Сообщение отредактировано: compiler -


--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





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