Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
kokaloka
0 / 0 / 0
Регистрация: 04.11.2013
Сообщений: 9
#1

Найти наибольшее количество цифр, идущих подряд

19.11.2013, 15:54. Просмотров 964. Ответов 4
Метки нет (Все метки)

Привет всем такая проблема есть код но не знаю где в нём ошибка помогите пожалуйста

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
31
32
33
34
35
36
uses crt;
const numb=['0'..'9']; m=80;
type text=array[1..m] of string;
var smax,s:string; j,i,k,n,max,nmax:integer;
t:text;
begin
j:=1;
write('Введите текст:');
readln(t[j]);
while (length(t[j])>0) do begin
s:=t[j]+' ';
max:=0;
nmax:=1;
i:=1;
while i<=length(s) do
if s[i] in numb then
begin
n:=i;
k:=1;
while s[n+k] in numb do
k:=k+1;
if k>max then
 begin
  max:=k;
  nmax:=n;
  smax:=copy(s,nmax,max);
  end;
i:=i+k+1;
end
else i:=i+1;
j:=j+1;
readln(t[j]);
end;
writeln('Самая длинная цепочка цифр',smax);
write('Количество= ',length(smax));
end.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.11.2013, 15:54
Ответы с готовыми решениями:

Найти наибольшее количество подряд идущих цифр в строке
подскажите как найти наибольшее количество подряд идущих цифр в этой строке,...

Дано предложение. Найти наибольшее количество идущих подряд пробелов
Дано предложение. Найти наибольшее количество идущих подряд пробелов....

Найти наибольшее количество одинаковых элементов массива А, идущих подряд
Помогите пожалуйста неучу! :-| Задание таково: Найти наибольшее количество...

Дан текст. Найти наибольшее количество идущих подряд одинаковых символов
Дан текст. Найти наибольшее количество идущих подряд одинаковых символов

Посчитать в строке наибольшее количество подряд идущих пробелов
Дана строка s, содержащая менее чем 256 символов. Посчитать в ней наибольшее...

4
Puporev
Модератор
54407 / 41979 / 28995
Регистрация: 18.05.2008
Сообщений: 98,888
19.11.2013, 16:06 #2
Цитата Сообщение от kokaloka Посмотреть сообщение
где в нём ошибка
Еще бы знать что он должен делать. Если тайна, то на форум телепатов...
0
kokaloka
0 / 0 / 0
Регистрация: 04.11.2013
Сообщений: 9
19.11.2013, 16:07  [ТС] #3
Должен находить наибольшее количество цифр, идущих подряд
0
Puporev
Модератор
54407 / 41979 / 28995
Регистрация: 18.05.2008
Сообщений: 98,888
19.11.2013, 16:13 #4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Посмотрите это
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
31
32
33
34
35
36
37
uses crt;
const cf=['0'..'9'];
var s:string;
    i,j,k,mx,imx:byte;
begin
clrscr;
writeln('Введите строку, содержащую последовательности цифр:');
readln(s);
i:=1;
mx:=0;
imx:=0;
while i<=length(s) do
if s[i] in cf then
 begin
  j:=i;k:=0;
  while(j<=length(s)) and(s[j] in cf) do
   begin
    k:=k+1;
    j:=j+1;
   end;
  if k>mx then
   begin
    mx:=k;
    imx:=i;
   end;
  i:=i+k+1;
 end
else i:=i+1;
if mx=0 then write('Цифр в строке нет')
else
 begin
  writeln('Длина максимальной последовательности=',mx);
  for i:=imx to imx+mx-1 do
  write(s[i]);
 end;
readln
end.
1
kokaloka
0 / 0 / 0
Регистрация: 04.11.2013
Сообщений: 9
19.11.2013, 16:20  [ТС] #5
Спасибо за код, но мне бы тако же тока в массиве
0
19.11.2013, 16:20
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.11.2013, 16:20

Подсчитать наибольшее количество идущих подряд пробелов в строке
Даны натуральное число n и символы S1, …,Sn (строка). Подсчитать наибольшее...

Подсчитайте наибольшее количество идущих подряд букв кириллицы.
Помогите написать программу: Дана строка символов. Подсчитайте наибольшее...

Строка: Подсчитайте наибольшее количество идущих подряд букв кириллицы
Подсчитайте наибольшее количество идущих подряд букв кириллицы: uses crt;...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru