Сохранить текст в массиве и выполнить следующий алгоритм

30.11.2013, 17:26. Показов 1582. Ответов 0

Метки нет (Все метки)

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

Всем здравствуйте в общем задание такое: Найти наибольшее количество цифр, идущих подряд. Исключить из массива все символы цифры. Вот такое задание. Буду благодарен если поможите .
Есть ещё программа но она что то не хочет искать не чего.

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
38
39
40
41
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; c:char;
t:text;
begin
j:=1;
write('Введите текст:');
readln(t[j]);
c:=readkey;
write(c);
t[j]:=c;
if j=nmax then c:='!';
if c='!' then
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.

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

30.11.2013, 17:26

Ответы с готовыми решениями:

Сохранить текст в массиве и выполнить следующие алгоритмы
Сохранить текст в массиве и выполнить следующие алгоритмы Определить, чего в тексте больше: слов четной или нечетной длины.

Сохранить текст в массиве и подсчитать количество слов в нем
помогите пожалуйста) сохранить текст в массиве и подсчитать количество слов в нем. слова разделяются пробелами и разделителями строк.

Реализовать следующий алгоритм
Доброй ночи. Вот такая задача. С помощью предложения PROGN реализовать следующий алгоритм: переменная n1 связана с суммой двух целых...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

30.11.2013, 17:26

Помогаю со студенческими работами здесь

Реализовать программу, которая бы позволяла выполнить одну из следующий операций по выбору пользователя
Реализовать программу, которая бы позволяла выполнить одну из следующий операций по выбору пользователя: вывести на дисплей содержание...

Нужно реализовать следующий алгоритм
Товарищи! Помогите реализовать следующий алгоритм: 1. Создается MovieClip. 2. В него, в определенные поля, подгружаются данные из...

Сложно ли расфифровать следующий алгоритм?
Заинтересовался темой криптографии. Сразу скажу что в этом я не спец. Интересуюсь для себя. Если заменить каждый символ в тексте на...

Меняющаяся рандомная матрица: сохранить текущее состояние, и следующий запуск начать с него
у меня есть рандомная матрица, которая меняется. я хочу что бы в любой момент при нажатии "S" она сохранялась, а при новом...

Заархивировать файл, используя следующий алгоритм
Заархивировать файл, используя следующий алгоритм: если в исходном файле встречается одиночный символ, не являющийся цифрой, то он просто...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

Наверх