Программирование в Turbo PASCAL

    Здравствуйте! Поздравляем Вас с тем, что Вы являетесь одним из первых подписчиков «Программирования в Turbo PASCAL» службы рассылок Subscribe.Ru. Спасибо Вам за принятое решение в нашу пользу!
    Pascal – относится к языкам программирования высокого уровня (имеется в виду методика работы, а не профессионализм работающего) и входит в состав пакета разработки программ Borland Pascal with Objects 7.0. Запускается с файла Turbo.exe.

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

    Для примера возьмем такую простенькую программу:
1) Program Zvuk – заголовок программы (вместо «Zvuk» Вы можете вставить любое недлинное слово на латинском языке).
2) Uses Crt – включение модуля Crt – библиотеки данных, где для компьютера описана работа используемых в дальнейшем команд.
3) Var – описание переменных, в нашем случае – это i, имеющая целочисленный (1,2,3, …) тип (Integer).
4) Begin – команда «начать работу».
5) Repeat …{набор команд} … Until – операторные «скобки», дословно переводящиеся как делать… пока, т.е. программа будет выполнять команды находившиеся внутри до тех пор, пока не будет выполнено условие, стоящее после Until. В данном примере признаком закачивания будет нажатие любой клавиши (команда «KeyPressed»). После запуска программа будет работать до тех пор, пока Вы не нажмете любую клавишу.
6) For i:=200 to 2500 do – дословно: переменной i присваивается значение 200 и выполняется цикл Begin Sound(i); Delay(1); end; после чего оператором For i присваивается значение i + 1 (201) и снова выполняется цикл и так до 2500.
7) For i:=2500 downto 200 do Begin Sound(i); Delay(1); – такой же цикл, но теперь отсчет идет от i = 2500 и уменьшается по единице до 200.
8) Процедура Sound(i) – команда, выдающая звук с частотой в i Герц; Delay(1) – команда задержки процесса на число миллисекунд, указанных в скобках и так как миллисекунда по времени весьма коротка, то все два вышеописанные повторяющихся цикла выполнятся за 2-3 секунды.
9) NoSound – прекращение звучания при выходе из программы (после нажатия любой клавиши). Без этой команды динамик не перестанет «звучать» вообще до перезагрузки компьютера.
10) End – конец программы и точка.

Теперь можете запустить на своем компьютере Pascal и набрать итоговый код программы (не забывая про «точки с запятой» ( ; )):

Program Zvuk;
Uses Crt;
Var i:integer;
Begin Repeat
For i:=200 to 2500 do Begin Sound(i); Delay(1); end;
For i:=2500 downto 200 do Begin Sound(i); Delay(1); end;
Until KeyPressed;
NoSound;
end.

После чего нажмите одновременно CTRL и F9 или команду Run из меню Run и Вы услышите что-то напоминающее звук серены, который можно отрегулировать из расчета на специфику компьютера подобрав другие числа для оператора Sound (изменить значения циклового промежутка числа i).

---

А теперь внимание: если у Вас есть какие-либо вопросы по программированию в Pascal или же Вы наоборот хотите поделиться своими навыками, то вот наш адрес для писем:

pascal-sub@mail.ru  или  mfnor@norcom.ru

Пока рассылка только набирает обороты, мы будем отвечать на все присланные сообщения. Будем рады любым пожеланиям и рекомендациям по поводу.