Помощь Bp7

Тема в разделе "Pascal and Delphi", создана пользователем -, 16 янв 2011.

Статус темы:
Закрыта.
  1. Гость

    Даны натуральное число n и символы S1, …, Sn (строка), среди которых есть двоеточия. Получить все символы строки, расположенные между первым и вторым двоеточием. Если вто-рого двоеточия нет, то получить все символы, расположенные после первого двоеточия

    for i:=1 to n do
    if s=':' then begin k:=i;break;end;
    for i:=k+1 to n do begin
    if s=':' then break;
    write(s)
    end;

    и
    MODULE a;
    IMPORT StdLog,Strings;

    PROCEDURE do*(s:ARRAY OF CHAR);
    VAR i,j:INTEGER;
    BEGIN
    i:=0; Strings.Find(s,':',i,i);
    j:=i+1; Strings.Find(s,':',j,j);
    IF j=-1 THEN
    j:=LEN(s);
    END;
    StdLog.Clear;
    INC(i);
    WHILE (i<j)&(s#CHR(0)) DO
    StdLog.Char(s);INC(i);
    END;
    END do;

    END a.
     
  2. nayke

    nayke Well-Known Member

    Регистрация:
    4 авг 2010
    Сообщения:
    310
    Симпатии:
    0
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей