freepascal.ru

В книге с ответами в секции функции ExpandTo80 в строке " len:= 0; i:=1; " не хватает " w := 0 ":

Код: Выделить всё

{ Подсчет общей длины слов и их количества в массиве }
len:= 0; i:=1;
while Length(A[i])>0 do begin
len:= len + Length(A[i]);
Inc(w);
Inc(i);
end;
Blanks:= 80-len; { Общее кол-во пробелов между словами }

Да, это моё упущение, буду исправлять. Спасибо за подсказку!

На здоровье.

Герман писал(а):На здоровье.

Ещё раз благодарю, вы внимательный ученик.
Кстати, по мелким замечаниям вовсе не обязательно открывать топики, можно сообщать о них в нашей ветке "Редактирование и вычитка книги". Успехов!

Герман писал(а):В книге с ответами в секции функции ExpandTo80 в строке " len:= 0; i:=1; " не хватает " w := 0 ":

Исправлено.

Я пишу для тех, кому еще предстоит проходить задания. А- то и так голова пухнет, лишний раз ученику не нужно голову ломать .
Кстати, Олег, Вы книгу " Песни о питоне " не собираетесь писать?

Герман писал(а):Я пишу для тех, кому еще предстоит проходить задания.

Благое дело!

Герман писал(а):книгу " Песни о питоне " не собираетесь писать?

Питон? Слегка знаком с ним, имею представление, но в сферу моих профессиональных интересов он не входит. Есть много областей, где он не применяется, и никогда не будет применяться, поскольку это интерпретируемый язык с динамической типизацией. И не убеждён, что он хорош в качестве первого языка для обучения. По той же причине.
Что до песен, то они рождаются от избытка чувств сами собой, неудержимо. Питон не затронул струн моей души, увы!