Найти порядковый номер максимальной цифры в тексте.

@maslanin · Регистрация: 18.05.2009

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

Помогите решить задачу, бьюсь-бьюсь и ничего не выходит

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

Вот что я пытался нарешать:

Pascal

program Task_4_2;
uses crt;
var
    s,s1:String;
        k,i,j,l,Count:Integer;
 
begin   clrscr;
    s:='          455s89rt4sh47h4sffghars65465f'; {текст}
        Count:=0;
 
        for i:=1 to length(s) do   {находим количество пробелов}
                begin
                if s[i] = ' ' then inc(Count);
                end;
 
        for j:=1 to length(s) do
        {пробежимся посимвольно по тексту и найдем максимальные цифры и их номера с самого начала.}
        begin
                k:=0; l:=0; {обнулим счетчики перед самым началом}
                if s[j] in ['0'..'9'] then
                        if s[j] > k then
                                k:=s[j]; l:=j;
                end; {for}
 
        writeln('Max 4islo ',k,' imeet nomer ',l-Count);
        readkey;
end.

Чуть не забыл. Выдает ошибку Incompatible types: got "Char" expected "LongInt" в (21,29) и "SmallInt" в (22,37)

@mamedovvms · 18.05.2009, 14:29

так у тебя типы разные , тебе надо что бы k было типа char

@maslanin · 18.05.2009, 14:43 **[ТС]**

Тип поменял, пришлось где

Pascal

k:=0;

поставить кавычки

Pascal

k:='0';

прога запустилась, но вот теперь выдает, что максимальное число это 0 и имеет порядковый номер 29 (я посчитал, 29 это длина текста минус пробелы. Мдя...

@Nicky_ · 18.05.2009, 14:49

а счетчики-то почему в цикле обнуляете? поставьте это обнуление перед циклом

@mamedovvms · 18.05.2009, 14:55

Pascal

 for j:=1 to length(s) do
        {пробежимся посимвольно по тексту и найдем максимальные цифры и их номера с самого начала.}
        begin
                k:=0; l:=0; {обнулим счетчики перед самым началом}
                if s[j] in ['0'..'9'] then
                        if s[j] > k then
                                k:=s[j]; l:=j;
                end; {for}

перепишем так

Pascal

 for j:=1 to length(s) do
        {пробежимся посимвольно по тексту и найдем максимальные цифры и их номера с самого начала.}
        begin
                k:=0; l:=0; {обнулим счетчики перед самым началом}
                if s[j] in ['0'..'9'] then
                        begin
                          val(s[j],k1,cod);
                        if k1 > k then
                                k:=k1; l:=j;
                         end;
                end; {for}

где k1,cod:integer;

@maslanin · 18.05.2009, 14:56 **[ТС]**

Nicky_, поставил перед циклом, теперь пишет, что мах число 9, номер 29. У девятки номер 6 должен быть

Ну хоть стало получаться находить максимальное число...

@mamedovvms · 18.05.2009, 14:59

Pascal

program Task_4_2;
uses crt;
var
        s,s1:String;
        k,i,j,l,Countб,k1,cod:Integer;
 
begin   clrscr;
        s:='          455s89rt4sh47h4sffghars65465f'; {текст}
        Count:=0;
 
        for i:=1 to length(s) do   {находим количество пробелов}
                begin
                if s[i] = ' ' then inc(Count);
                end;
 
        for j:=1 to length(s) do
        {пробежимся посимвольно по тексту и найдем максимальные цифры и их номера с самого начала.}
        begin
                k:=0; l:=0; {обнулим счетчики перед самым началом}
                if s[j] in ['0'..'9'] then
                        begin
                          val(s[j],k1,cod);
                        if k1 > k then
                                begin
                                k:=k1; l:=j;end;
                         end;
                end; {for}
 
 
        writeln('Max 4islo ',k,' imeet nomer ',l-Count);
        readkey;
end.

то есть полностью код должен получиться такой

Добавлено через 3 минуты 9 секунд
у тебя не правильно выдает положение потому что надо так написать не

Pascal

1	k:=k1; l:=j;

а надо писать

Pascal

1	begin k:=k1; l:=j;end;

@Nicky_ · 18.05.2009, 15:01

maslanin, ну и в цикле поставьте тогда begin и end

Pascal

1 2	if s[j] > k then begin k:=s[j]; l:=j; end

@maslanin · 18.05.2009, 15:19 **[ТС]**

mamedovvms, с этим полным кодом пишет, что число 0 и порядковый номер минус 10.

Добавлено через 4 минуты 12 секунд
Nicky_, сейчас попробую

Добавлено через 9 минут 45 секунд
Всем спасибо! Заработал вот этот вариант:

Pascal

program Task_4_2;
uses crt;
var
        s,s1:String;
        i,j,l,Count:Integer;
        k:Char;
begin   clrscr;
        s:='          455s89rt4sh47h4sffghars65465f'; {текст}
        Count:=0;
 
        for i:=1 to length(s) do   {находим количество пробелов}
                begin
                if s[i] = ' ' then inc(Count);
                end;
 
    k:='0'; l:=0; {обнулим счетчики перед самым началом}
        for j:=1 to length(s) do
        {пробежимся посимвольно по тексту и найдем максимальные цифры и их номера с самого начала.}
        begin
                if s[j] in ['0'..'9'] then
                        if s[j] > k then
                                begin
                                k:=s[j]; l:=j; end;
                end; {for}
 
        writeln('Max 4islo ',k,' imeet nomer ',l-Count);
        readkey;
end.

@Прасковья75 · 12.06.2012, 17:43

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

begin clrscr;
s:=' 455s89rt4sh47h4sffghars65465f'; {текст}

Объясните пожалуйста что это

@КонецСвета · 12.06.2012, 18:58

Прасковья75, любой текст на ваше усмотрение (в нем должны быть цифры)

@Прасковья75 · 12.06.2012, 19:05

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

@КонецСвета · 12.06.2012, 19:12

эту часть

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

s:=' 455s89rt4sh47h4sffghars65465f'; {текст}

заменить на write('s='); readln(s);

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	12.06.2012, 18:58	11
	Прасковья75, любой текст на ваше усмотрение (в нем должны быть цифры) 1

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	12.06.2012, 19:12	13
	эту часть Сообщение от maslanin s:=' 455s89rt4sh47h4sffghars65465f'; {текст} заменить на write('s='); readln(s); 1

@mamedovvms 2923 / 844 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	18.05.2009, 14:29	2
	так у тебя типы разные , тебе надо что бы k было типа char 0

@Nicky_ 11 / 11 / 0 Регистрация: 09.04.2009 Сообщений: 65
	18.05.2009, 14:49	4
	а счетчики-то почему в цикле обнуляете? поставьте это обнуление перед циклом 0

@maslanin 9 / 8 / 1 Регистрация: 18.05.2009 Сообщений: 40
	18.05.2009, 14:56 [ТС]	6
	Nicky_, поставил перед циклом, теперь пишет, что мах число 9, номер 29. У девятки номер 6 должен быть Ну хоть стало получаться находить максимальное число... 0

@Прасковья75 0 / 0 / 0 Регистрация: 05.06.2012 Сообщений: 11
	12.06.2012, 17:43	10
	Сообщение от maslanin begin clrscr; s:=' 455s89rt4sh47h4sffghars65465f'; {текст} Объясните пожалуйста что это 0

@Прасковья75 0 / 0 / 0 Регистрация: 05.06.2012 Сообщений: 11
	12.06.2012, 19:05	12
	А как сделать, чтобы выводилось сообщение" введите текст" и уже из него считывался порядковый номер? 0