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

Assya · 15.12.2010

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

nayke · 16.12.2010

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

Код:

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;