Технический форум - Помогите с написанием программы. Pascal

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

Помогите с написанием программы. Pascal

Необходимо ввести строку (предложение) и определить в ней количество чисел, записанных в шестнадцатеричном виде и определить максимальное из них

Цитата:

Сообщение от Niik (Сообщение 2699707)

А каков критерий отбора? Например, если в строке встречается сочетание "ABBA", то что это — название некогда популярной шведской вокальной группы или число 43962?

Сказано в задании это: шестнадцатеричное число - это последовательность символов, состоящая из символов от '0' до '9' и 'a' ..'f' ('A'..'F').

А это пример входной строки
asdfgz FF, 1F, XX3, Z11111, aF, 10.

Понятно. Ладно, сейчас покручу.

Ну вот, получите.
Только, сразу оговариваю:
1. Программа написана для Turbo (Free) Pascal, если у Вас этот грёбаный богомерзкий ABC и на нём она не идёт — не мои проблемы. Этой гадости не держу и не собираюсь.
2. Кириллица НЕ допускается — только латиница.

Код:

Const

 Q:Set of Char=['a'..'z']+['A'..'Z']+['0'..'9'];

VAR

 W:Array[1..100] of String;

 R:Array[1..100] of LongInt;

 S:String;

 C:Integer;

 D:LongInt;

 i,N,j:Byte;

BEGIN

 Writeln('Enter the string:');

 Readln(S);

 for i:=1 to 100 do W[i]:='';

 i:=0;

 N:=1;

 Repeat

  Inc(i);

  if (S[i] in Q) then W[N]:=W[N]+S[i];

 Until Not(S[i] in Q) or (i=Length(S));

 Repeat

  if i<Length(S) then

   begin

    Dec(i);

    repeat

     Inc(i);

    until (S[i] in Q);

    Dec(i);

    Inc(N);

    repeat

     Inc(i);

     if (S[i] in Q) then W[N]:=W[N]+S[i];

    until Not(S[i] in Q) or (i=Length(S));

   end;

  Until (i=Length(S));

  j:=0;

  for i:=1 to N do

   begin

    W[i]:='$'+W[i];

    Val(W[i],D,C);

    if C=0 then

     begin

      Inc(j);

      R[j]:=D;

      Writeln('Sedecimal: '+W[i]+' Decimal: ',R[j]);

     end;

   end;

  if j>0 then

   begin

    i:=1;

    D:=R[1];

    repeat

     Inc(i);

     if (i<=j) and (R[i]>D) then D:=R[i];

    until i=j;

   end;

 Writeln('Maximal value is ',D);

 Readln;

END.

Огромное спасибо, очень помогли!