Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Antistas
0 / 0 / 0
Регистрация: 23.10.2008
Сообщений: 30
#1

Найти самую длинную группу цифр - Turbo Pascal

21.11.2008, 18:38. Просмотров 980. Ответов 3
Метки нет (Все метки)

Дан текст каждый символ которого может быть малой буквой, цифрой или одним из знаков + - *
Группой букв Будем называть такую совокупность последовательно расположенных букв, которой непосредственно не предшествует и за которой непосредственно не следует буква..
Аналогично определим группу цифр и группу знаков.
Найти самую длинную группу цифр. Если эту наибольшую длинну имеет несколько групп , то взять первую по порядку.
Например
qwert12345*+++23 ghtjhhkt234544**-- ***+1232ghfdnh123456

и надо вывести отсюда 234544
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.11.2008, 18:38
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Найти самую длинную группу цифр (Turbo Pascal):

Найти самую длинную группу цифр. - Turbo Pascal
Заданный текст каждый символ которого может быть маленькой латинской буквой, цифрой, или одним из знаков “+”, “-“, “*”. Группа букв это...

Найти самую длинную группу цифр и поменять ее с последней группой цифр - Turbo Pascal
program Project2; var s : string = 'sdsgs#d_123_ewat&wea_16489_w,etwe_27_twetw_5_ewr.we_653_fgh'; i : Integer; pmax, lmax...

Дан текст Найти самую длинную группу цифр и поменять её с последней группой цифр - Turbo Pascal
помогите плиз срочно нужно ! Дан текст. Найти самую длинную группу цифр и поменять её с последней группой цифр

Дан текст. Найти самую длинную группу цифр и поменять её с последней группой цифр. - Turbo Pascal
Дан текст. Найти самую длинную группу цифр и поменять её с последней группой цифр. !!! Дан текст. Найти самую длинную группу цифр и...

Дан текст. Найти самую длинную группу цифр и поменять её с последней группой цифр - Turbo Pascal
Дан текст. Найти самую длинную группу цифр и поменять её с последней группой цифр c++

Обработка строк. Найти самую длинную группу знаков - Turbo Pascal
Растраматриваеться не пустая строка,содержащая не более 80 символов.Каждый символ строки,может быть малой английской буквой,цифрой или...

3
Puporev
Модератор
52981 / 40792 / 14040
Регистрация: 18.05.2008
Сообщений: 94,862
21.11.2008, 20:17 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Код
uses crt;
var s:string;
    maxn,curn,i,k:integer;
begin
clrscr;
repeat   //вводим текст и проверяем его на соответствие условию
writeln('Text: ');
readln(s);
p:=0;
for i:=1 to length(s) do
if not (s[i] in ['a'..'z','0'..'9','+','-','*']) then
  begin
    writeln('Text vveden neverno!, Povtorite vvod.');
    p:=1;
    break;
  end;
until p=0;

maxn:=0;curn:=0;k:=0;
for i:=1 to length(s) do
   begin
    if s[i] in ['0'..'9']then inc(curn);//если цифра, начинаем считать
    if not (s[i] in ['0'..'9']) or (i=length(s)) then //есле не цифра, или конец строки
       begin
        if curn>maxn then //если накапало больше чем в прошлый раз
          begin
           maxn:=curn;//это макс
           k:=i;  //запомним конец интервала
          end;
        curn:=0; //переходим к следующему интервалу
      end;
   end;
writeln('max chis podr=',maxn);//количество цифр
write(copy(s,k-maxn,maxn)); //сами цифры
readln
end.
1
Kitaeshaiker
8 / 8 / 0
Регистрация: 24.05.2010
Сообщений: 41
12.06.2010, 23:09 #3
разрешите вопрос!: а тут ''p'' у нас что???
0
Puporev
Модератор
52981 / 40792 / 14040
Регистрация: 18.05.2008
Сообщений: 94,862
13.06.2010, 06:41 #4
Дан текст каждый символ которого может быть малой буквой, цифрой или одним из знаков + - *
ввели строку, проверим правильно ввели или нет
Pascal
1
2
3
4
5
6
7
8
9
p:=0;//считаем что правильно
for i:=1 to length(s) do
if not (s[i] in ['a'..'z','0'..'9','+','-','*']) then//если есть символы, не отвечающие условию
  begin
    writeln('Text vveden neverno!, Povtorite vvod.');
    p:=1;//значит неправильно, повторяем
    break;
  end;
until p=0;//ввели правильно, заканчиваем ввод.
можно использовать логическую переменную
Pascal
1
2
3
4
5
p:=true;
.........
p:=false;
........
until p;
0
13.06.2010, 06:41
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.06.2010, 06:41
Привет! Вот еще темы с ответами:

В заданной последовательности цифр найти самую длинную последовательность - Turbo Pascal
в заданной последовательности цифр найти самую длинную последовательность,которая является арифметической прогрессией. помогите кто может

Найти самую длинную последовательность - Turbo Pascal
Тима решил покрасить забор разными красками. он красил каждую доску один цвет. Его друг Дима решил найти среди всех покрашенных...

Найти самую длинную строку в файле - Turbo Pascal
Для файла f1 содержащего символьную информацию, найдите самую длинную строку. Вроде правильно но после завершения ничего не происходит( ...

Найти самую длинную дугу. Паскаль - Turbo Pascal
Использовать подпрограмму(функцию/процедуру/рекурсию) Помогите пожалуйста Не могу понять как делать....


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

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

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