строки Pascal

TT_TT · Регистрация: 21.08.2013

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

Вопрос: как проверить строку на наличие цифр-чисел(каму как удобнее)

@Joker_vad · 03.10.2013, 11:28

да, а как еще

@Puporev · 03.10.2013, 11:30

Как искать уже вроде писали

Pascal
1
2
3
4
5
f:=false;
i:=1;
while(i<=length(s))and not f do
if s[i] in ['0'..'9'] then f:=true
else i:=i+1;

TT_TT · 03.10.2013, 11:36 **[ТС]**

Ну тоесть мы какбы идём по циклу и проверяем на каждом i число или нет и если число то переводим так?
или всётаки при проверке строки проверяется на симвом?

Добавлено через 5 минут
Хм вот написал код в теперь не пойму как избавиться от ошибки с Else

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program stroka;
uses crt;
var s:string;
i,summa,k,d:integer;
begin
writeln('Введите строку содержащую цифры, буквы, знаки');
readln(s);
for i:=1 to length(s)do
if s[i] in ['0'..'9'] then begin
val(s[i],k,d);
summa:=summa+k;
else writeln('В строке не ни одного числа. Вывожу 0');
end;
writeln('Сумма чисел в строке ',summa);
end.

@Joker_vad · 03.10.2013, 11:40

По сути твое else отработает каждый раз когда будешь находить букву. Нужно убрать его. Признаком того что чисел в последовательности нет будет то, что summa=0.

@Puporev · 03.10.2013, 11:41

Сообщение от Joker_vad

будет то, что summa=0.

А если есть числа, равные 0?

@Joker_vad · 03.10.2013, 11:43

Сообщение от Puporev

А если есть числа, равные 0?

Во, во, значите нужно еще счетчик вводить

@Puporev · 03.10.2013, 11:49

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
29
30
program stroka;
uses crt;
var s,s1:string;
    i,j,k,n,summa,x,c:integer;
begin
writeln('Введите строку содержащую цифры, буквы, знаки');
readln(s);
n:=length(s);
i:=1;
summa:=0;
k:=0;
while i<=n do
  if s[i] in ['0'..'9'] then
   begin
    k:=1;
    s1:='';
    j:=i;
    while(j<=n)and(s[j] in ['0'..'9'])do
     begin
      s1:=s1+s[j];
      j:=j+1
     end;
    val(s1,x,c);
    summa:=summa+x;
    i:=i+length(s1);
   end
  else i:=i+1;
if k=0 then write('В строке нет цифр')
else write('В строке есть числа, их сумма=',summa);
end.

TT_TT · 03.10.2013, 11:49 **[ТС]**

Не много не понял так если даже ведь будут в строке 0 то выдаст "сумма равна 0" а если не будет то выдаст "вывожу 0" главный вопрос так и не отвечен как от ошибки избавиться?

@Puporev · 03.10.2013, 11:49

Сообщение от TT_TT

плин зачем ты код то пишешь(((

Не по теме:

Молчал бы уж..

.

@Joker_vad · 03.10.2013, 11:50

постом выше универсальный ответ) изучайте

TT_TT · 03.10.2013, 11:53 **[ТС]**

дак код то я свой пишу. а чужой мне не нужен писал же хочу понять и разобраться - владелец этого аккаунта сказал что если создам тут тему мне помогут и объяснят что да как. сам владелец прост не может объяснить всвязи с те что он и так потратил 700 руб. на телефоне разговаривая со мной и объясняя задачи которые были до этого.

@Joker_vad · 03.10.2013, 11:56

Вам бы методическое описание почитать к лабораторным, там хоть процедуры описываются и их принцип работы... А так без теории лезть в практику, толку маловато

@Puporev · 03.10.2013, 11:57

Сообщение от TT_TT

владелец этого аккаунта сказал что если создам тут тему мне помогут

Да пошел ты... во Фриланс...

@Joker_vad · 03.10.2013, 11:59

Сообщение от Puporev

Да пошел ты... во Фриланс...

ну если Пупорев послал, то это совсем беда)

TT_TT · 03.10.2013, 12:03 **[ТС]**

Хм.. что не пойму я вроде никого не посылал и не оскорблял зачемже меня посылать? Просил лишь что объяснили

@Joker_vad · 03.10.2013, 12:04

не ну там и покажут и объяснят

TT_TT · 03.10.2013, 12:09 **[ТС]**

Хм ладно пойду я тогда мб где чтонить найду Спасибо Joker_vad, ermolay, что хоть чтото подсказали и объяснили

@Puporev · 03.10.2013, 12:13

Не по теме:

Сообщение от Joker_vad

не ну там и покажут и объяснят

Только плати...

Новые блоги и статьи Все статьи Все блоги /
GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	День 5 из 28: Codex подсказывает следующий запрос and_y87 12.10.2026 9 октября 2026 года OpenAI запустила бету Composer predictions — подсказок следующего сообщения в текущем диалоге Codex. Это помощь с формулировкой запроса, а не автоматическое продолжение задачи. . . .	Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

TT_TT 1 / 29 / 0 Регистрация: 21.08.2013 Сообщений: 379

	строки Pascal 03.10.2013, 10:48. Показов 1839. Ответов 37 Метки нет (Все метки) Вопрос: как проверить строку на наличие цифр-чисел(каму как удобнее) 0

@Joker_vad 476 / 413 / 93 Регистрация: 26.09.2012 Сообщений: 1,922
	03.10.2013, 11:28
	да, а как еще 0

@Joker_vad 476 / 413 / 93 Регистрация: 26.09.2012 Сообщений: 1,922
	03.10.2013, 11:40
	По сути твое else отработает каждый раз когда будешь находить букву. Нужно убрать его. Признаком того что чисел в последовательности нет будет то, что summa=0. 0

TT_TT 1 / 29 / 0 Регистрация: 21.08.2013 Сообщений: 379
	03.10.2013, 11:49 [ТС]
	Не много не понял так если даже ведь будут в строке 0 то выдаст "сумма равна 0" а если не будет то выдаст "вывожу 0" главный вопрос так и не отвечен как от ошибки избавиться? 0

@Joker_vad 476 / 413 / 93 Регистрация: 26.09.2012 Сообщений: 1,922
	03.10.2013, 11:50
	постом выше универсальный ответ) изучайте 0

TT_TT 1 / 29 / 0 Регистрация: 21.08.2013 Сообщений: 379
	03.10.2013, 11:53 [ТС]
	дак код то я свой пишу. а чужой мне не нужен писал же хочу понять и разобраться - владелец этого аккаунта сказал что если создам тут тему мне помогут и объяснят что да как. сам владелец прост не может объяснить всвязи с те что он и так потратил 700 руб. на телефоне разговаривая со мной и объясняя задачи которые были до этого. 0

@Joker_vad 476 / 413 / 93 Регистрация: 26.09.2012 Сообщений: 1,922
	03.10.2013, 11:56
	Вам бы методическое описание почитать к лабораторным, там хоть процедуры описываются и их принцип работы... А так без теории лезть в практику, толку маловато 0

TT_TT 1 / 29 / 0 Регистрация: 21.08.2013 Сообщений: 379
	03.10.2013, 12:03 [ТС]
	Хм.. что не пойму я вроде никого не посылал и не оскорблял зачемже меня посылать? Просил лишь что объяснили 0

@Joker_vad 476 / 413 / 93 Регистрация: 26.09.2012 Сообщений: 1,922
	03.10.2013, 12:04
	не ну там и покажут и объяснят 1

TT_TT 1 / 29 / 0 Регистрация: 21.08.2013 Сообщений: 379
	03.10.2013, 12:09 [ТС]
	Хм ладно пойду я тогда мб где чтонить найду Спасибо Joker_vad, ermolay, что хоть чтото подсказали и объяснили 0