Здравствуйте, уважаемые подписчики!
Это письмо желательно читать в броузере или развернуть на весь экран, тогда легче ориентироваться и приятнее читать!
| *****
Новогодний выпуск
*****
|
|
С НОВЫМ ГОДОМ!
Здравствуйте, уважаемые друзья, подписчики рассылки для начинающих программистов!
Я рад поздравить вас с Новым годом, с новым веком, в конце концов с НОВЫМ ТЫСЯЧЕЛЕТИЕМ!
Желаю вам - всем и каждому в отдельности - радости, новых и интересных начинаний,
успехов во всем, в том числе и в нелегком труде программиста. Пусть
сбудуться все ваши мечты и планы, пусть вдохновение и стремление к активной
деятельности никогда не покидает вас - ибо это и есть двигатель жизни. Живите
хорошо и поменьше вам проблем в Новом году!
Ну а на сайте рассылки "Библиотека программиста" как и полагается, праздничная обстановка. Главная страница встретит вас обновленным дизайном, более подчеркивающим тематические блоки сайта и... новогодним снегопадом. Да-да, именно снегопадом. Кроме того, в этом праздничном выпуске я научу вас, как самим сделать такое, ну а для начала советую посмотреть на виртуальный снежок, возможно это добавит праздничного настроения.
Вообще, рассылка сегодня сформировалась достаточно необычная. В этом выпуске я буду отвечать на ваши вопросы, самые злободневные и часто задаваемые - я специально отбирал их для этого выпуска. Кроме того, у нас с вами будет две программы - обе новогодние и праздничные.
О ПЛАНАХ
Друзья! В новом году у меня достаточно много планов насчет рассылки, сайта и проекта "Клуб начинающих программистов". Для начала скажу, что в ближайшие дни после праздников я разошлю специальное письмо всем, кто когда либо выразил желание принять участие в создании КНП. (Вы еще можете присоединиться - Дмитрий - в теме "knp"). Пусть даже вы писали мне в сентябре и не получили от меня ответа - все равно я постараюсь отослать письмо и вам. Тут еще дело в том, что у меня довольно долго отсутсвовал один из винчестеров и только на этой неделе мне удалось восстановить старый архив электронной почты.
Думаю, в новом году КНП всеже заработает. Подробнее о его создании я буду рассказывать в письме-приложении, если есть желание - пишите мне с темой "knp".
Также и рассылка изменит свою структуру. Будет больше программ, я постараюсь эффективнее преподносить непосредственное программирование. Буду работать над сокращением времени между выпусками, очень многие меня об этом просят, да мне и самому очень хочеться это осуществить. Теперь у вас будет возможность писать свои программы в рассылку, чуть-чуть подробнее расскажу в след. выпусках.
На сайте рассылки, думаю, тоже произойдут некоторые изменения. В ближайшее время должен будет открыться раздел "Документация", где я постараюсь помещать полезные статьи и "Примеры кода" - раздел с примерами более продвинутых программ, написанных вами.
Далее - в мои планы входит создание целого проекта, посвященного начинающим программистам. Здесь хочу сказать, что приглашаются ведущие рассылок похощей тематики и желающие таковыми стать (у меня к вам есть особое предложение по этому поводу). Также - авторы статей, и желающие принять участие в созднии рассылки и ее нового приложения (которое откроется в ближайшее время) - "Вопросы компьютерной тематики". Кроме того, нужны будут люди, имеющие возможность отвечать на вопросы подписчиков.
В общем, будем стараться развиваться! Присоединяйтесь!
Если Вы недавно подписались и Вам что-то непонятно, пожалуйста, перед тем, как спрашивать у меня, просмотрите предыдущие выпуски рассылки. Возможно, там есть ответы на ваш вопрос.
Архив рассылки можно взять на моем сайте "Библиотека программиста".
Также там можно скачать программное обеспечение, необходимое нам для работы на сегодняшний день.
Буду особо благодарен, если Вы оставите свое мнение о рассылке на сайте и примете участие в форуме.
Сегодня я хочу представить Вашему вниманию небольшую программу для HTML документа, написанную на JAVA Script. Она очень инетересно работает, просто устанавливается и отлично выглядит. Программа эта заставляет сыпаться снежинки на Вашей страничке.
Работу этого скрипта смотрите на сайте. При этом в качестве снежинки используется рисунок - snow.gif, размером 71 байт.
Итак, ниже приведен код JAVA скрипта, просто вставьте его в документ после тэга <BODY>.
<script language="JavaScript1.2">
<!-- Begin
var no = 15;
var speed = 20;
var snowflake = "http://qwer/snow.gif";
var ns4up = (document.layers) ? 1 : 0;
var ie4up = (document.all) ? 1 : 0;
var dx, xp, yp;
var am, stx, sty;
var i, doc_width = 640, doc_height = 480;
if (ns4up) {
doc_width = self.innerWidth;
doc_height = self.innerHeight;
} else if (ie4up){
doc_width = document.body.clientWidth;
doc_height = document.body.clientHeight;
}
dx = new Array();
xp = new Array();
yp = new Array();
am = new Array();
stx = new Array();
sty = new Array();
for (i = 0; i < no; ++ i) {
dx[i] = 0;
xp[i] = Math.random()*(doc_width-100);
yp[i] = Math.random()*doc_height;
am[i] = Math.random()*40;
stx[i] = 0.08 + Math.random()/10;
sty[i] = 0.9 + Math.random();
if (ns4up) {
if (i == 0) {
document.write("<layer name=\"dot1"+ i +"\" left=\"15\" ");
document.write("top=\"15\" visibility=\"show\"><img src=\"");
document.write(snowflake + "\" border=\"0\"></layer>");
} else {
document.write("<layer name=\"dot1"+ i +"\" left=\"15\" ");
document.write("top=\"15\" visibility=\"show\"><img src=\"");
document.write(snowflake + "\" border=\"0\"></layer>");
}
} else if (ie4up) {
if (i == 0) {
document.write("<div id=\"dot1"+ i +"\" style=\"POSITION: ");
document.write("absolute; Z-INDEX: "+ i +"; VISIBILITY: ");
document.write("visible; TOP: 15px; LEFT: 15px;\"><img src=\"");
document.write(snowflake + "\" border=\"0\"></div>");
} else {
document.write("<div id=\"dot1"+ i +"\" style=\"POSITION: ");
document.write("absolute; Z-INDEX: "+ i +"; VISIBILITY: ");
document.write("visible; TOP: 15px; LEFT: 15px;\"><img src=\"");
document.write(snowflake + "\" border=\"0\"></div>");
}
}
}
function snowNS() {
for (i = 0; i < no; ++ i) {
yp[i] += sty[i];
if (yp[i] > doc_height-10) {
xp[i] = Math.random()*(doc_width-am[i]-10);
yp[i] = 0;
stx[i] = 0.08 + Math.random()/10;
sty[i] = 0.9 + Math.random();
doc_width = self.innerWidth;
doc_height = self.innerHeight;
}
dx[i] += stx[i];
document.layers["dot1"+i].top = yp[i];
document.layers["dot1"+i].left = xp[i] + am[i]*Math.sin(dx[i]+30);
}
setTimeout("snowNS()", speed);
}
function snowIE() {
for (i = 0; i < no; ++ i) {
yp[i] += sty[i];
if (yp[i] > doc_height-10) {
xp[i] = Math.random()*(doc_width-am[i]-10);
yp[i] = 0;
stx[i] = 0.08 + Math.random()/10;
sty[i] = 0.9 + Math.random();
doc_width = document.body.clientWidth;
doc_height = document.body.clientHeight;
}
dx[i] += stx[i];
document.all["dot1"+i].style.pixelTop = yp[i];
document.all["dot1"+i].style.pixelLeft = xp[i] + am[i]*Math.sin(dx[i]+30);
}
setTimeout("snowIE()", speed);
}
if (ns4up) {
snowNS();
} else if (ie4up) {
snowIE();
}
// End -->
</script>
Вот так вот, в честь праздника!
Уважаемые друзья!
В прошлый выпуск вкралась ошибка (большое спасибо тем, кто ее заметил и написал мне об этом). Ошибся я при описании алгоритма получения отрицательных случайных чисел, перепутав диапазон. Конечно, этот вариант не правильный:
A := Random(51)-100; {Числа от -50 до 50}
Правильным будет следующий вариант:
A := Random(101)-50; {Числа от -50 до 50}
Ну а сегодня я расскажу вам о новой возможности Паскаля, а именно о использовании модулей. На примере использования модуля CRT мы с вами разберем программу, присланную одним из подписчиков - Андреем, за что ему огромное спасибо. Программа демонстрирует падающие снежинки.
Модули - это отдельные файлы, содержащие дополнительные процедуры. Дело в том, что сам язык Паскаль имеет довольно ограниченное количество процедур и функций, они не позволяют производить некоторые дейсвтия. Для этого и существуют модули - они содержат в себе действия, расширяющие язык. При этом все процедуры в модулях собраны по тематическим группам. Например, модуль Graph содержит функции работы с графикой - построение линий, окружностей, многоугольников, дуг, рисование точек и т.д. Модуль DOS - позволяет обращаться к системным средствам MS-DOS, таким как чтение/удаление/создание каталогов, обращение к самой системе.
Модуль CRT - позволяет обращаться к средствам консоли (клавиатура+экран): перемещать курсор в любое положение, очищать экран, менять цвет букв и фона, читать и опрашивать клавиатуру (в чем разница объясню позже), создавать текстовые окна и мн. другое.
Сегодня мы как раз и рассмотрим этот модуль. Надо сказать, что существует достаточное их количество, эту информацию мы постараемся постепенно освоить.
Сами модули храняться во внешних файлах, которые имеют расширение ".tpu" - Turbo Pascal UNIT (англ. "Модуль турбо паскаля"). Однако не всегда этот файл может существовать. К примеру, использование модуля Graph требует наличия файла graph.tpu, а вот использование модуля Crt обходиться и без файла crt.tpu. Почему, спросите вы? Дело в том, что процедуры этого модуля находятся в т.н. "Системном модуле", иначе говоря в файле "turbo.tpl". Этот файл содержит в себе все внутренние функции Турбо Паскаля и некоторых его модулей. Теперь понимаете, почему у вас не работал один файл "turbo.exe"?
Сегодня мы и займемся модулем CRT. Скажу сразу, что он содержит довольно большое количество процедур и функций, сегодня мы пройдем только основные, требующиеся нам для написания нашей новогодней программы. Да и выпуск как-никак праздничный, поэтому я постараюсь быть краток :))
Итак, чтобы работал модуль Crt и вы могли использовать его функции и процедуры, не нужно никаких дополнительных программных средств. Если вы пользуетесь дистрибутивом, который скачали с моего сайта (файлы turbo.exe, turbo.tpl, tubo.tph), то вам его вполне хватит! Я ведь уже упоминал о том, что весь Crt находиться в turbo.tpl.
Подключение модулей к программе происходит с помощью служебного слова uses, после которого указывается имя модуля. Причем uses обязательно должно быть в самом начале программы, но после слова Program. Вот пример подключения Crt:
Program UsesCRT;
uses Crt;
begin
...
end.
Теперь мы можем использовать процедуры из этого модуля. Далее я представлю программу, реализующую это, но сначала опишу новые процедуры из модуля CRT, которые будут в ней использоваться. Не забывайте выписывать их на будмагу или оформлять в отдельный файл. Так будет проще их запомнить. (Чуть-чуть позже я выложу на сайте полные списки процедур и функций большинства модулей с описаниями и примерами использования).
Да, кстати - обратите внимание на переводы названий процедур. Меня часто просят делать это из-за проблем с английским. Чтож, думаю это не лишнее.
1: Процедура ClrScr, модуль: CRT. (сокр. от англ. Clear Screen - очистка экрана).
Эта продедура очищает экран. Если вы знакомы с бейсиком, то знаете процедуру CLS. Аналогичная операция есть и в операционной системе MS-DOS - также называется CLS. ClrScr делает тоже самое.
2: Процедура GotoXY(X, Y: Byte;), модуль: CRT.
Эта продедура осуществляет переход на указанную переменными X и Y позицию экрана. При этом номер строки - это Y, а номер позиции в строке (короче, номер символа) - это X. Обратите внимание, что обычно экран имеет 25 строк по 80 символов в каждой. То есть максимально можно сделать следующее:
GotoXY(80,25);
И еще: смотрите пример использовая этой процедуры не только в программе "Снежинки", но и в раделе "Вопросы-ответы". Там есть интересный пример использования.
3: Процедура Delay(A: Word;), модуль: CRT. (анг. "Задержка");
Эта процедура выполняет задержку программы на указанное количество миллисекунд. Указывается оно параметров A, который, как видите, не может быть отрицательным.
Используется эта процедра при необходимости замедлить выполнение программы - например, в сегодняшней программе "Снежинки" она тормозит сам ход снегопада - без ее использования все выпонялось бы слишком быстро.
4: Функция ReadKey: Char;, модуль: CRT.
Эта функция возвращает от своей работы последнюю нажатую клавишу. Очень похоже на работу Readln, только не ждет нажатия <Enter> и завершается сразу же при нажатии клавиши. При этом в переменную Char, к которой присваивается эта функция, заноситься введенный символ. Применение см. в разделе "Вопросы-ответы".
Ну и последняя процедура (точнее, функция) из модуля CRT, которая нам сегодня понадобиться:
5: Фукнция KeyPressed: Boolean;, модуль: CRT.
Эта функция возвращает TRUE если была нажата клавиша. Помните, я выше говорил про разнацу между "чтением" клавиатуры и "опрос" клавиатуры. Вот здесь как раз и используется эта разница: KeyPressed - это опрос клавиатуры. Readln - это чтение. (В модуле Crt также есть похожая функция - ReadKey). Разница здесь в том, что при чтении клавиатуры программа ждет, пока с нее не будут введены данные. При опросе нет ожидания и если клавиша сразу не была нажата, то программа продолжает свою работу. Получше вы сможете разобраться когда будете использовать эту функцию.
Ну и завершающий этап перед самим текстом программы - это новый раздел - const. В нем описываются константы, используемые в программе. Далее все понятно на наглядном примере. Помните, что так можно описывать и строку и символ и даже массив:
const
S='Here is string.'; { Константа - строка }
A: Array[1..5] of Char = ('a','b','c','d','e'); { Массив }
(в фигурных скобках указаны комментарии)
Итак, сегодня это все, что нам понадобиться. Пишем программу:
{ СHЕЖИHКИ }
uses crt;
const n=79;
Var
x:array[1..n] of byte;
i,k:byte; c:char;
Begin
clrscr;
for i:=1 to n do
begin
x[i]:=0;
end;
repeat
k:=random(80);
if x[k]=0 then x[k]:=1;
for i:=1 to n do
begin
if x[i]>0 then
begin
gotoxy(i,x[i]);
write(' ');
x[i]:=x[i]+1;
gotoxy(i,x[i]);
write('*');
if x[i]>23 then x[i]:=0;
end;
end;
delay(100);
until keypressed;
end.
|
При выполнии этой программы обратите внимание на Delay, чтобы добиться лучшего эффекта, установите его соответсвующим образом, в зависимости от вашего компьютера. К примеру, на моем компьютере (Pentium III 800) это дело работает только с параметром Delay(2000). Меньше - слишком быстро. Кроме того, автор программы также рекомендует проделать над ней следующее:
- усложнить задачу можно подсчетом опавших снежинок в каждом столбце,
если наглядно то получить сугробы!
- снежинки падают под углом, в одну сторону, две стороны <= и =>
Что и будет вам сегодня новогодним заданием! Решайте!
Теперь этот раздел стал не просто собранием оригинальных вопросов, а уже является как бы приложением к обучающему процессу. Я постараюсь размещать здесь больше алгоритмов и новых процедур, применение которых иногда просто необходимо для дальнейшего продвижения.
Вопрос 1. Можно ли в Паскале специально на некоторое время задерживать действия, т.е. производить действия через какой-либо заданный отрезок времени? (например: произвести какое-нибудь действие, а только через 3 секунды произвести другое)
Да, для этого используйте вышеописанную процедуру Delay из модуля Crt.
Вопрос 2. В выпуске 11 от 14 ноября 2000 г. предложена программка печатающая цикл из вещественных чисел от 1.00 до 1.90 с шагом 0.1. В разделе VAR Вы предлагаете переменным A и Step задать вещественный тип Single, я попробовал выдаёт ошибку:
Error 116: Must be in 8087 mode to compile this.
Попробовал использовать другие типы Double, Extended, Comp, результат тот-же, получилось нормально только с типом Real, я думал вначале что может название типа не так записываю, но тогда должен был выдать
Error 3: Unknown identifier.
Как это было пару раз раньше (написал bate, вместо byte). Да, у меня стоит полный Pascal 7.1 если конечно это имеет какое-то значение.
Нет, то что у Вас стоит Pascal 7.1 значения не имеет. Тут дело в том, что при вычислениях чисел некоторых вещественных типов используется сопроцессор. Сопроцессор (FPU) это - дополнение к Вашему центральному процессору (CPU), он берет на себя часть математических вычислений (в том числе вещественных чисел - с плавающей точкой), снижая нагрузку на CPU.
В Паскале, чтобы использовать таковой необходимо включить соответсвующую опцию: меню Options, пункт Compiler..., далее в разделе Numeric Processing поставьте отметьте (пробелом) пункт 8087/80287.
Вопрос 3.
Может ли Паскаль считывать данные до нажатия "Ввода" (Например, как в Windows: нажмите Esc для отмены)?
Да, конечно можно. Для этого используйте функцию ReadKey: Char из модуля Crt (см. выше), которая читает последний введенный символ. Создайте цикл с проверкой на необходимую клавишу и все! Вот пример чтения строки до нажатия Esc (аналог Readln, только с Esc):
Program N1;
uses Crt;
var
C: Char;
S: String;
begin
Write('Введите строку (Esc - конец ввода): ');
Repeat
C := ReadKey;
Write(C);
if S <> #27 then S := S + C;
Until C = #27;
Writeln;
Write('Вы ввели строку: ', S);
Readln;
end.
|
Комментарии:
Во-первых, обратите внимание на символ #. Этим символом указываются специальные клавиши, к примеру Esc - #27, Enter - #13 и т.д. Более подробную таблицу я приведу в дальнейшем на сайте.
Далее - я вывожу прочитанную переменную на экран. Зачем? Да потому, что ReadKey не выводит прочитанный символ на экран, только возвращает его программе.
И последнее - до того, как дополнить строку введенным символом, я проверяю его на #27 (Esc). Делаю это затем, чтобы сам символ #27 не записывался в строку. Думаю, вы и сами уже догадались.
Вопрос 4. Можно ли сделать ввод данных скрытым звёздочками (***), например, как при вводе пароля?
Есть ли в Паскале функция, с помощью которой внутренний динамик может "бипнуть" (Примерно, как при загрузке компьютера)?
Думаю, я уже ответил на этот вопрос в предыдущем примере. ReadKey - не выводит символы на экран. Можно вместо Write(C) поставить Write("*");
Вопрос 5.
Есть ли в Паскале функция, с помощью которой внутренний динамик может "бипнуть" (Примерно, как при загрузке компьютера)?
Да, есть. Для этого в модуле CRT существует две взаимосвязанные процедуры:
- Sound(Hz: Word);
- NoSound;
Sound(Hz: Word) - вызывает звук, подаваемый через системный динамик, с указанной частотой в Герцах. Звук будет верещать пока не будет вызвана процедура NoSound.
Вопрос 6.
Скоро ли мы начнем работу с файлами?
Да, это произойдет в ближайших выпусках. В зависимости от количества вопросов - это будет либо следующий выпуск, либо через один.
Ну вот и все на сегодня. Надеюсь, этот Новогодний выпуск получился интересным и полезным для вас, уважаемые друзья!
Поздравляю вас еще раз с Новым Годом, удачи!
На этом прощаюсь, увидимся в следующем тысячелетии!
|
|
|
