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

  • Автор темы Assya
  • Дата начала
A

Assya

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

nayke

Well-known member
04.08.2010
310
0
#2
Реализовать в виде модуля набор подпрограмм для выполнения следующих операций со строками:
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;