Слова (Паскаль)

[Паскалька^^]

Вообщем я пока что написала для 2х первых случаев код...
только что-то он не очень правильно работает...никак не могу ошибку обнаружить(

Program P3;
const
    n=20;
var
    a,b:string[20];
    i,j,k:integer;
    del1,fin:string[20];
    del,ch:integer;
begin
    writeln ('Vvedite nachalnoe slovo',a);
    read(a);
    writeln ('Vvedite konechnoe slovo',b);
    read(b);
    if length(a)<length(b) then
       writeln ('Preobrazovanie nevozmozhno')
       else
       if a=b then
          ch:=0;
          del1:=a;
          fin:=b;
          del:=0;
          begin
             for i:=1 to length(a) do
                for j:=1 to length(b) do
                begin
                   begin
                   if a[i]=b[j] then
                   ch:=ch+1;
                   end;
             end;
       writeln('Delete -',del,', Change -',ch,', After delete -',del1,', Final -',fin);
    end;
end.

[LeBron]

Сообщение от Паскалька^^

Вообщем я пока что написала для 2х первых случаев код...
только что-то он не очень правильно работает...никак не могу ошибку обнаружить(

Program P3;
const
    n=20;
var
    a,b:string[20];
    i,j,k:integer;
    del1,fin:string[20];
    del,ch:integer;
begin
    writeln ('Vvedite nachalnoe slovo',a);
    read(a);
    writeln ('Vvedite konechnoe slovo',b);
    read(b);
    if length(a)<length(b) then
       writeln ('Preobrazovanie nevozmozhno')
       else
       if a=b then
          ch:=0;
          del1:=a;
          fin:=b;
          del:=0;
          begin
             for i:=1 to length(a) do
                for j:=1 to length(b) do
                begin
                   begin
                   if a[i]=b[j] then
                   ch:=ch+1;
                   end;
             end;
       writeln('Delete -',del,', Change -',ch,', After delete -',del1,', Final -',fin);
    end;
end.

Вы выводите начальную строку, как строку после замены. Вы считаете количество неупорядоченых совпадений и выводите его, как необходимое количество изменений.
З.Ы. Я протупил через ошибки в синтаксисе, и написал ввер то, что было бы, если бы логичесикй синтаксис был впорядке. Не хватает операторных скобок, получаеться, что "если длина не равна, то, если строки одинаковые, то не надо изменений". Там бегин-ендов не хватает.

[Паскалька^^]

Вы выводите начальную строку, как строку после замены

Я вывожу начальную строку, как строку после удаления, т.к. она не изменится (так требуется в задаче)

Вы считаете количество неупорядоченых совпадений и выводите его, как необходимое количество изменений

А как мне исправить эту ошибку?

Так, с бегинами и ендами разобралась...
а вот про совпадения никак...

[LeBron]

Сообщение от Паскалька^^

Я вывожу начальную строку, как строку после удаления, т.к. она не изменится (так требуется в задаче)

А как мне исправить эту ошибку?

Так, с бегинами и ендами разобралась...
а вот про совпадения никак...

Тоесть второй случай - это полное совпадение строк?
Начну с того, что

          begin
             for i:=1 to length(a) do
                for j:=1 to length(b) do
                begin
                   begin
                   if a[i]=b[j] then
                   ch:=ch+1;
                   end;
             end;

сдесь не понятно, зачем бегин-енд. Это должно относиться к какому-то условию?

 for i:=1 to length(a) do
                for j:=1 to length(b) do

я уже в теме писал пример, как подсчитать количество несовпадений. Только поменять названия переменных. Вы ищете для каждого символа совпаение во второй строке, а надо проверять только соответствие символов с однаковыми номерами. Ведь превратить "рак" в "акр" за 0 не получиться.

[Паскалька^^]

всё, нашла ошибку, работает...
ещё один случай осталось рассмотреть...когда length(a)>length(b).

[Паскалька^^]

Вообщем вот....
Так что-то я и не поняла как последний случай доделать(((

Program P3;
uses
    crt;
const
    n=20;
var
    a,b:string[n];
    i,j,k:integer;
    del1,fin:string[n];
    del,ch:integer;
begin
    writeln ('Vvedite nachalnoe slovo',a);
    read(a);
    writeln ('Vvedite konechnoe slovo',b);
    read(b);
    if length(a)<length(b) then
       writeln ('Preobrazovanie nevozmozhno')
       else
       begin
       if a=b then
          ch:=0;
          del1:=a;
          fin:=b;
          del:=0;
          begin
              for i:=1 to length(a) do
              begin
                 if a[i]<>b[i] then
                 ch:=ch+1;
              end;
          end;
       end;
       if length(a)>length(b) then
       del:=length(a)-length(b);
******************************************************
       writeln('Delete - ',del,', Change - ',ch,', After delete - ',del1,', Final - ',fin);
end.