FreePascal.ru

Уважаемый Oleg, если можно, объясните пожайлуста.

Программа P_40_2 на стр 290.
Для чего в программе применена инструкция - if EoLn(aFile) then Readln(aFile);
Что означает { пропуск конца строки }, это дополнительный перевод каретки?
В главе 29 этого нет.
Я пробовал убрать её из программы, программа ...

Глава 39 стр 278.
В примере в двух местах после end отсутствует точка с запятой.

И ещё, посмотрите пожайлуста, правильно ли я сделал ввод и вывод
массива?
var Names : array [ 1..30 ] of string;
i : integer; inF, outF : text;
begin
i:=1;
Assign ( inF, 'C&#58 ...

Глава 38 стр 275
1-й отсев чисел, кратных 2:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
2-й отсев чисел, кратных 3:
1 2 3 * 5 * 7 * 9 * 11 * 13 * 15 * 17 * 19 *
Результат – простые числа:
1 2 3 * 5 * 7 * * * 11 * 13 * * * 17 * 19 *
В итоговом результате в множестве ...

На странице 137 Табл. 1 в пояснении к пункту меню «Run» Trace into по
моему не хватает двух букв:

Выполняет одну строку программы (шаг). Если в
строке есть вызов процедуры, то останов
происходит на входе в нее, – так можно «войти»
внутрь процедуры и следить за ходом её
выполнения.

Вместо ...

Может кому это покажется смешным, но я при разборке каждой программы, особенно когда пошли более сложные, пытаюсь писать свой коментарий. С помощью отладчика смотрю за работой программы шаг за шагом и пытаюсь описать каждый шаг своими словами. Пока я это не опишу у меня в голове ничего не ...

Глава 36 стр 260:
var R, S1, S2, S3 : set of 1..250;
begin
S1:= [ 2, 11, 4, 13 ]; { 1-й кружок }
S2:= [ 9, 17, 12, 11, 3,, 5, 18 ]; { 2-й кружок }
S3:= [ 14, 2, 13, 15, 20 ]; { 3-й кружок }
R:= [1..250] – (S1 + S2 + S3 ...

Опечатка, Глава 33 стр 239
Type TMonth : (Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec);

: вместо =
И ещё, объясните пожайлуста, в этом же примере в строке Writeln ( SizeOf(m) ); { 1 }, единица, это объём занимаемой памяти?
Я откомпилировал во FreePascal такой текст:
Type TMonth ...

Тоесть в данном случае в файл можно только добавлять данные с помощью процедуры Append, а удалять, или менять в нём ничего нельзя.
А вот чтобы скопировать из файла в файл нужна отдельная процедура?

Подскажите пожайлуста!
Есть файл - C:\File.txt с текстом:
2
4
6
8
И программа как в Главе 29 (Полицейская база данных, версия 1),только я
её упростил. Она ищет цифру которую вы вводите.
var N,S: integer;
F: text;
begin
write('Введите номер - ');
readln(N);
Assign(F,'C:\File&#46 ...

Попалась ещё одна опечатка, Глава 33 стр 237.

Type TMonth : (Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec);
Var m : TMonth;
. . .
m:= 3; { это ошибка }
m:= TMonth(3); { так можно, равнозначно m:= Apr (счет идет от нуля) }
в сроке :
Type TMonth : (Jan,Feb ...

Текст программы P_31_1, Глава 31, стр 216 содержит опечатку в строке:

if not Eof(InFile) do Readln(InFile);
Параметр - do

И ещё вопрос.
Зачем в этой же строке применён оператор if, ведь можно обойтись без него как было в программе P_30_1:

while not Eof(InFile) do begin
Counter:= Counter+1 ...

Вроде бы понял.

В книге даны два варианта вызова функции:
A:= Max( 20, 10 );
или
Writeln( Max( A, B ) );

А я решил что они оба одновременно входят в текст програмы.

Значит програма должна выглядеть либо так:

function Max(arg1, arg2 : integer) : integer;
begin
if arg1 > arg2
then Max ...

С процедурами немного разобрался, а вот с функциями что-то не очень.
В этом примере функция вызывается дважды, не понимаю с какой целью?

function Max(arg1, arg2 : integer) : integer;
begin
if arg1 > arg2
then Max:= arg1
else Max:= arg2
end;

var A,B:integer;
begin
A ...