FreePascal.ru

Песни о Паскале, Ответы на некоторые задания из секции «А слабо?» редакция 12-C от 2012-09-18. Страница 77, ответ к заданию 44-Б. Использованы типизированные константы, в книге не описанные.
О типизированных константах ещё в главе 9 говорится,на стр. 67.
Точно.
Как это я про них забыл? Прогулял ...

Песни о Паскале, Ответы на некоторые задания из секции «А слабо?» редакция 12-C от 2012-09-18. Страница 77, ответ к заданию 44-Б. Использованы типизированные константы, в книге не описанные.

"Песни о Паскале" Редакция 12.4 от 2012-11-23.
Страница 263.

Обратите внимание: множество передано в процедуру по ссылке CONST. Передача в процедуры множеств, строк и других сложных типов данных по ссылкам CONST и VAR — это обычная практика. Так повышается скорость работы программ и уменьшается ...

Вынужден использовать Linux, потому всё что имею - это FreePascal. Следствие и причина связаны никак (извините за мой английский). Вон там повыше уже писал про DosBox (есть в почти в любом дистрибутиве (или прикручивается несложно)), TP55 раздаётся бесплатно с некоторыми ограничениями по ...

Да, функцию я показал, а процедуру пусть ученики сами напишут. Что ж, им всё только готовенькое в рот класть?

В ответах я ограничиваюсь иногда лишь идеей решения, или частью решения.
Но можно и поправить, спасибо за въедливость!
Напишу как видно из моего болота. Я сам придумываю решение задачи и ...

Глава 33, задание "А слабо?" 33-Б.
Б) Ваша процедура принимает строковую переменную, вычисляет среднее
арифметическое кодов её символов и печатает его с двумя цифрами после точки.

Ответы редакции 12-C от 2012-09-18:
function CalcStr(const arg: string): Extended;
var
i : integer;
sum : Extended ...

Глава 33, задание "А слабо?" 33-А.
А) Напишите две функции, округляющие вещественное число:
· до большего значения (например: 3.1 à 4; 3.9 à 4);
· до меньшего значения (например: 3.1 à 3; 3.9 à 3).

Ответы редакции 12-C от 2012-09-18

function RoundUp(arg: Extended): Extended;
begin ...

Теперь исследуем точность представления чисел разными типами данных.
{ Программа для исследования точности вещественных типов }
var
F0 : Real;
F1 : single;
F2 : double;
F3 : extended;
begin
F0:= 1/3;
F1:= 1/3;
F2:= 1/3;
F3:= 1/3;
Writeln('Single = ', F1:23&#58 ...

Добавил в 31-ю главу такой абзац:
---
Примечание. Лишние пробелы в конце строк (после оценок) тоже приведут к аварии программы, проследите, чтобы во входном файле их не было. Проблема концевых пробелов решается заменой вызовов функций Eoln и Eof соответственно вызовами функций SeekEoln и SeekEof ...

Ответы на некоторые задания из секции «А слабо?», редакция 12-C от 2012-09-18. Задание 32-Б.
Перечислимые типы и диапазоны строятся на базе других типов данных (Byte, ShortInt и так далее). Какие типы данных, по вашему мнению, будут положены в основу следующих диапазонов:
var
N : -10.&#46 ...

Я ещё попридираюсь к мелочам.
Предложенное автором в ответах решение задачи 31-А добавляет в конец выходного файла лишний ноль, делая ненужный проход цикла. Предлагаю свой вариант, свободный от этого недостатка:
var
N, K: integer;
F1, F2: Text;
begin
Assign(F1,'Police.in'); Reset(F1 ...

Хочу предложить небольшие усовершенствования программы P_31_1 из 31-ой главы редакции 12.4 от 2012-11-23.

В функции ReadFam цикл чтения символов фамилии организован посредством оператора цикла с предусловием: while not Eoln(InFile) and (Ord(sym)>32) do begin
S:= S+sym;
Read(InFile, sym);
end ...