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

[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.

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

[Amro]

Уважаемый Digitalator ! Критика хороша только в том случае, если наряду со словами имеются действия!!! Конкретно, применительно к нашему форуму под действиями подразумевается код!!! Другими словами сила критики в программировании это не болтавня а код!!! А то что вы здесь пишите, все ваши слова : стоит не стоит, можно сократить и тому подобное, это пустые слова и они ни коим образом не помогут тем людям которые обращаются на форум за помощью!!!
Если вам лень написать код, тогда не критекуйте !!!!
Кажется это ваши слова

Я к вам на работу не нанимался...

Так вот у нас тут не работа ... наша деятельность построена только на чистом энтузиазме .... и нам за это деньги не платять ...
Я не хотел вас обидеть, просто хочу чтобы вы подумали куда попали ....

P.S. Каждый алгоритм в чём то неэффективен, всегда можно придумать, что-то лучшее, и всегда можно найти даже в лучшем кое-какие ошибки.... Не существует ничего совершенного!!! Есть только конкретные цели и их решения ...

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