Строки, помогите пожалуйста Опции

[cseee]

Помогите с сторками, я вообще их не понимаю, а завтра сдавать.
Вот задание:
Рассматривается непустая строка, содержащая не более 80 символов, каждый символ строки может быть малой английской буквой,цифрой или одним из знаков + - *.Требуется написать программу которая находит и печатает все группы цифр, которые начинаются и заканчиваются одной и той же цифрой.Группа цифр, состоящая из одной цифры,пренадлежит множеству искомых групп цифр.Если в строке нет ни одной группы цифр которая начинается и кончается одной и той же цифрой, то напечатать сообщение:"В строке не ни одной искомой группы цифр".Если в строке нет ни одной группы цифр, то напечатать сообщение:"В строке не ни одной группы цифр".Исходная строка вводиться с клавиатуры.

[WargaL]

М

пользуйся тегами !

Я, собственно, по поводу темы, хотя и не вовремя(только сегодня увидел). Вдруг, кому пригодится.
прога должна выглядеть где-то так:

program Project1;

type
    digChar=set of '0'..'9';

var
   s:digChar;
   str:string;
   i,k:integer;
   j:boolean;

Procedure get(st:string; index:integer);
var i:integer;
    res:string;
begin
     i:=index+1;
     res:=st[index];
     while (st[i] in s) and (i<=length(st)) do
          begin
               res:=res+st[i];
               if st[i]=st[index]
                  then begin
                            writeln(res);
                            j:=true
                       end;
               i:=i+1
          end;
end;

begin
     j:=false;
     s:=['0'..'9'];
     readln(str);
     k:=length(str);
     for i:=1 to k do
        begin
             if  str[i] in s
                then get(str,i)
        end;
     if not j  then writeln('no actual group of digit');
     readln(str)
end.

не судите строго.

Сообщение отредактировано: klem4 - 24.07.2007 14:25