Строковые переменные

@~FaRiD~ · Регистрация: 11.11.2010

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

помогите с задачей,ПЛЗ. просто тупо непонемаю ее,пож. Дан текст. Найти самую длинную группу цифр, начинающуюся с цифры "9".

@teleport · 13.11.2010, 21:32

вроде верно

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
var s:string; p,t,e,k:integer; zp:set of char;
begin writeln('vvedite stroku'); readln(s); zp:=['0'..'9'];
p:=1;
repeat t:=e;
    if s[p]='9' then
     begin
       while s[p] in zp do
            begin
             e:=e+1;
             p:=p+1;
            end;
       if e>t then
                begin
                  k:=e;
                  e:=0;
                end;
     end;
     p:=p+1;
until p>=length(s);
writeln(k);
end.

@~FaRiD~ · 13.11.2010, 21:43 **[ТС]**

он у меня ошибку дает на p,t,e,k:integer; zp:set of char;
и говорит:duplicate idendentifier

@ChelseaFC · 13.11.2010, 21:50

~FaRiD~, Все правильно

@teleport · 13.11.2010, 21:51

у меня паскаль АБС - все норм.
попробуй в начале проги e:=0 написать, если не это то хз что

@~FaRiD~ · 13.11.2010, 22:07 **[ТС]**

у меня паскаль 7.0
можеш тогда скинуть саму прогу на почту.
я еще попробовал заменить t на q и он мне дает об ошибке на:
until p>=length(s)

Добавлено через 6 минут
ай блин забыл дать адрес почты: hassano_farid@mail.ru

@teleport · 13.11.2010, 22:27

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
var s,t,k,e:string; p:integer; zp:set of char;
begin writeln('vvedite stroku'); readln(s); zp:=['0'..'9'];
p:=1;
repeat t:=e;
    if s[p]='9' then
     begin
       while s[p] in zp do
            begin
             e:=e+s[p];
             p:=p+1;
            end;
       if e>t then
                begin
                  k:=e;
                  e:='';
                end;
     end;
     p:=p+1;
until p>=length(s);
writeln('samaya dlinnaya gruppa cifr s cifry 9:  ', k);
end.

но что интересно если ввести чтото типа "dskfjsdfjsfdj9" то почемуто девятку не выдаст, хотя если написать одну девятку ("9"), то она отобразится.. мб кто найдет в чем дело

@~FaRiD~ · 13.11.2010, 23:06 **[ТС]**

че т я непонел и вчем тут суть, он просто пишет ту строку которую я написал в програме writeln('99 999 9999');
а ответ где???

@ChelseaFC · 13.11.2010, 23:09

Найти самую длинную группу цифр, начинающуюся с цифры "9".

Твой ответ тоесть 9999 это самая длиная строко 4цифр.

@~FaRiD~ · 13.11.2010, 23:17 **[ТС]**

он мне ответ вообще недает, когда я нажимаю ctrl f9 он мне просто дает 99 999 9999, потом я вбиваю число наприсер 5, и все он мне не че невыдает

@ChelseaFC · 13.11.2010, 23:19

Сообщение от ~FaRiD~

writeln('99 999 9999');

убери это.

@~FaRiD~ · 13.11.2010, 23:44 **[ТС]**

Все ОК, у меня получилось, СПС большое.

кстати я так и неполучил ответ, у тя можно узнать твой @mail. или нет?
СПС!!! за прогу

Добавлено через 2 минуты
или ты недаеш свой @mail

Добавлено через 15 минут
я хотел у тя еще спросить, если можно,
что значить set of char(что за оператор)?
и к чему мы сдесь присваеваем е:=" ";?
и еще можно спросить: сможеш сделать блок- схему? если нехочеш тогда я пойму.

Новые блоги и статьи Все статьи Все блоги /
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .

@~FaRiD~ 0 / 0 / 1 Регистрация: 11.11.2010 Сообщений: 23

	Строковые переменные 13.11.2010, 21:04. Показов 1829. Ответов 11 Метки нет (Все метки) помогите с задачей,ПЛЗ. просто тупо непонемаю ее,пож. Дан текст. Найти самую длинную группу цифр, начинающуюся с цифры "9". 0

@~FaRiD~ 0 / 0 / 1 Регистрация: 11.11.2010 Сообщений: 23
	13.11.2010, 21:43 [ТС]
	он у меня ошибку дает на p,t,e,k:integer; zp:set of char; и говорит:duplicate idendentifier 0

@ChelseaFC 2 / 2 / 4 Регистрация: 30.09.2010 Сообщений: 83
	13.11.2010, 21:50
	~FaRiD~, Все правильно Изображения 0

@teleport 11 / 10 / 12 Регистрация: 11.11.2010 Сообщений: 47
	13.11.2010, 21:51
	у меня паскаль АБС - все норм. попробуй в начале проги e:=0 написать, если не это то хз что 0

@~FaRiD~ 0 / 0 / 1 Регистрация: 11.11.2010 Сообщений: 23
	13.11.2010, 22:07 [ТС]
	у меня паскаль 7.0 можеш тогда скинуть саму прогу на почту. я еще попробовал заменить t на q и он мне дает об ошибке на: until p>=length(s) Добавлено через 6 минут ай блин забыл дать адрес почты: hassano_farid@mail.ru 0

@~FaRiD~ 0 / 0 / 1 Регистрация: 11.11.2010 Сообщений: 23
	13.11.2010, 23:06 [ТС]
	че т я непонел и вчем тут суть, он просто пишет ту строку которую я написал в програме writeln('99 999 9999'); а ответ где??? 0

@~FaRiD~ 0 / 0 / 1 Регистрация: 11.11.2010 Сообщений: 23
	13.11.2010, 23:17 [ТС]
	он мне ответ вообще недает, когда я нажимаю ctrl f9 он мне просто дает 99 999 9999, потом я вбиваю число наприсер 5, и все он мне не че невыдает 0

@~FaRiD~ 0 / 0 / 1 Регистрация: 11.11.2010 Сообщений: 23
	13.11.2010, 23:44 [ТС]
	Все ОК, у меня получилось, СПС большое. кстати я так и неполучил ответ, у тя можно узнать твой @mail. или нет? СПС!!! за прогу Добавлено через 2 минуты или ты недаеш свой @mail Добавлено через 15 минут я хотел у тя еще спросить, если можно, что значить set of char(что за оператор)? и к чему мы сдесь присваеваем е:=" ";? и еще можно спросить: сможеш сделать блок- схему? если нехочеш тогда я пойму. 0