Цитата:
Сообщение от metorok
ребят, помогите 2 задачки сделать пожалуйста!
|
Да без проблем!
Цитата:
Сообщение от metorok
1)Дана строка символов. Дано слово. Удалить из строки все вхождения этого слова.
|
Код:
Var
S,S1:String;
p:Byte;
Begin
Writeln('Enter the string:');
Readln(S);
Writeln('Enter the word:');
Readln(S1);
Repeat
p:=pos(S1,S);
If p>0 then Delete(S,p,Length(S1));
Until p=0;
Writeln(S);
Readln
End.
Цитата:
Сообщение от metorok
2)Дана строка символов, содержащая текст, заканчивающийся точкой. Вывести на экран те слова, которые содержат хотя бы одну букву s
|
Код:
Var
S,S1:String;
i,j:Byte;
b:boolean;
Begin
Repeat
Writeln('Enter the string:');
Readln(S);
If S[Length(S)]<>'.' then Writeln('Last symbol must be "."!');
Until S[Length(S)]='.';
i:=0;
Repeat
Inc(i);
If (i=1) or ((i>1) and (S[i-1]=' ')) then
begin
S1:='';
repeat
S1:=S1+S[i];
inc(i);
until (S[i]=' ') or (S[i]='.');
j:=0;
b:=false;
repeat
inc(j);
If S1[j]='s' then b:=true;
until b or (j=length(S1));
If b then write(S1+' ');
end;
Until S[i]='.';
Readln;
End.