Помощь в решении простых задач на Pascal'е

[berkut_174]

Ещё такой цикл в голове есть...

Код: [Выделить]

for i:=1 to length(s) do
begin
for i:=1 to a do
begin
if s[i] = slovo[i] then
delete (s,i,1);
end;
end;

[berkut_174]

Вот так вроде работает Поправьте, если я не прав.

Код: [Выделить]

for i:=1 to length(slovo) do
begin
a:=a+1;
end;
for i:=1 to length(s) do
begin
     if s[i] = slovo[1] then
     begin
          for j:=1 to a do
          begin
               if s[i+j-1] = slovo[j] then b:=b+1;
          end;
          if b=a then delete (s,i,a);
     end;
end;

[Selyd]

readln (slovo);

ns:=length(s)
nw:=length(slovo);
if ns<nw then goto ex;
if ns=nw then goto eg;
for i:=1 to ns-nw+1 do
begin
if slovo/= "здесь вырезать с i-го места кусок длиной слова-nw"   then goto pr else goto xvost;
pr:
end;
writeln ('slova v stroke net'); goto fin;
xvost:
s="здесь вырезать кусок с 1-го места до i-1"+"здесь кусок с i+nw до конца";
eg:
if s=slovo then writeln ('stroka=slovu') else writeln ('stroka/=slovu'); goto fin;
ex: writeln ('malaya stroka'); goto fin;

fin: end;
Книжки у меня нет. Я на ранчо без книг. Найди тот оператор вырезывания куска с символьной величины.

[Selyd]

Если работает, то и ладно.
Реализовать одну и ту же работу можно по-разному. Удачи.

[berkut_174]

Реализовать одну и ту же работу можно по-разному. Удачи.

В точку