Реализовать в виде модуля

Тема в разделе "Pascal and Delphi", создана пользователем Assya, 15 дек 2010.

  1. Assya

    Assya Гость

    Реализовать в виде модуля набор подпрограмм для выполнения следующих операций со строками:
    1. процедура удаления части строки до точки с запятой и самой точки с запятой;
    2. процедура определения имеются ли в строке все буквы входящие в слово "змея";
    3. функция определения количества ввода в строку группы символов 123.
     
  2. nayke

    nayke Well-Known Member

    Регистрация:
    4 авг 2010
    Сообщения:
    310
    Симпатии:
    0
    Код (Text):
    1. Delete(stroka,SymbolBegin,Pos(';',s)-SymbolBegin);
    2. for i:= 1 to length(snake) do
    if Pos(snake[i],stroka)=0 then begin Writeln('а буковки то не все');result:=false;break;end;
    3. while Pos('123',stroka)<>0 do
    begin
    inc(count);
    Delete(stroka,Pos('123',stroka),3);
    end;
     
  3. Assya

    Assya Гость

    Спасибо огромное)))))))
     
Загрузка...

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