Описание Опции

[REFER]

Кто-нибудь подскажите что в этой программе значат эти строки

Код

for i:=k to length(st3) do
if st3[i]=' ' then begin d1:=i; break end;
for i:=k downto 1 do
if st3[i]=' ' then begin d2:=i; break end;
d:=d1-d2;
slovo:=copy(st3,d2+1,d)

и переменные в них.


Программа:

Код

uses crt;
var st1,st2,st3,slovo: string;
i,p,k,d1,d2,d: integer;
b: char;
begin clrscr;
write('Vvedite stroku1: ',st1); readln(st1);
write('Vvedite stroku2: ',st2); readln(st2);
if length(st1)>length(st2) then
for i:=1 to length(st1) do begin
if st1[i]<>st2[i] then begin
b:=st1[i]; p:=2; k:=i; break;
end else st3:=st2;
end
else for i:=1 to length(st2) do
if st2[i]<>st1[i] then begin
b:=st2[i]; p:=1; k:=i; break;
end else st3:=st1;
for i:=k to length(st3) do
if st3[i]=' ' then begin d1:=i; break end;
for i:=k downto 1 do
if st3[i]=' ' then begin d2:=i; break end;
d:=d1-d2;
slovo:=copy(st3,d2+1,d);
writeln ('Bukva "',b,'" propushena v stroke "',p,'" v slove " ',slovo,'"');
repeat until readkey=#27;
end.

Если можете, можно расписать всю программу по шагам (так даже лучше), буду очень признателен!!!
Спасибо...

[volvo]

REFER
Приведенный Вами алгоритм действительно неэффективен. Вот что получилось у меня...

Код

Var
 correct, sErr, s1, s2: String;
 index, i, start, finish: Byte;
 Letter: Char;
Begin
 Write('str1:>'); ReadLn(s1);
 Write('str2:>'); ReadLn(s2);

 If Length(s1) >= Length(s2) Then
   Begin correct := s1; sErr := s2 End
 Else
   Begin correct := s2; sErr := s1 End;

 index := 0;
 For i := 1 To Length(sErr) Do
   If correct[i] <> sErr[i] Then
     Begin index := i; Break End;

 If index = 0 Then
   Begin
     index := Length(sErr);
     Letter := correct[succ(index)]
   End
 Else Letter := correct[index];

 start := index;
 While (start > 0) and (sErr[start] <> ' ') Do Dec(start);
 finish := index;
 While (finish <= Length(sErr)) and (sErr[finish] <> ' ') Do Inc(finish);

 WriteLn( 'Bukva "', Letter, '" propushena v stroke "',
          1 + Byte(Length(s1) >= Length(s2)),
          '" v slove "', Copy(sErr, Succ(start), finish-start),'"');
 ReadLn
End.

Сообщение отредактировано: volvo - 30.10.2004 1:39