І Скляр - Я готуюсь до курсу інформатики. Алгоритмізація та програмування

gotoxy(35,12); {переведення курсору в задану тонку - центр екрана}

writeln(‘Ivanov’); {виведення прізвища}

normvideo;

textcolor(yellow+blink); {встановлення хольору виведення зображення з мерехтінням}

gotoxy(35,13);

writeln(‘Petro’);

end.

У текстовому режимі операторами виведення можна виводити на екран будь-який символ ASCII-таблиці, навіть такий, клавіша якого відсутня на клавіатурі. В цьому випадку на екран монітора його можна вивести або за допомогою символу # з наступним ASCII-кодом символу, або набиранням ASCII-коду необхідного символу на додатковій цифровій клавіатурі (з натиснутою клавішею Alt). Наприклад, один і той самий символ «-» можна вивести на екран таким чином:

Writeln(‘-’); {символ отриманий одночасним натисканням клавіш Alt+}

Writeln(#219);

За допомогою таких псевдографічних символів можна створити на екрані нескладний малюнок, схожий на всім відомий «японський кросворд», а також різного вигляду таблиці (дивись повний набір псевдографічних символів ASCII-таблиці). Поряд із підпрограмами організації роботи з екраном модуль Crtмістить засоби керування звуком.

У персональних комп’ютерів є можливість генерувати звукові сигнали за допомогою вбудованого динаміка з частотою 37—32767 Гц. Гучність звуку не регулюється. Стандартний звуковий сигнал («біп») постійної тривалості (0,25 с) і частоти (800 Гц) викликається сьомим символом ( ^G ) кодової таблиці ASCII. Наприклад:

writeln(‘Помилка в даних’,^G);

writeln(‘Працює процедура’,#7,#7);

writeln(‘Підключен драйвер’,Chr(7), Chr (7));

Для керування частотою звуку і його тривалістю в мові Паскаль використовуються стандартні процедури:

sound(l)— активізує звукові засоби комп’ютера. Ціле значення Iвказує частоту звучання звуку в герцах. Звук зазначеної частоти буде генеруватися доти, доки не буде скасований процедурою NoSoud ;

NoSound— скасування звуку. Скасовує звуковий режим, заданий процедурою Sound ;

Delay(І)— вказує час, упродовж якого лунає сигнал.

Приклад:

Begin

Sound(500);

Delay(2000);

NoSound

End;

У даному прикладі звуковий сигнал частотою 500 Гц буде звучати 2 секунди (2000 мс). За допомогою цих процедур можна створити найрізноманітніші звукові ефекти. Для цього використовується набір частот, що відповідають нотам різних октав:

Нота

Велика октава

Мала октава

Перша октава

Друга октава

До

130,81

261,63

523,25

1046,50

Ре

146,83

293,66

587,33

1174,07

Мі

164,81

329,63

559,26

1318,05

Фа

174,61

349,23

698,46

1396,09

Соль

196,00

392,00

784,99

1568,00

Ля

220,00

440,00

880,00

1760,00

Сі

246,94

493,88

987,77

1975,00

Для використання в процедурі Sound усі зазначені в таблиці значення частот округлюються. Приклад, виконання за допомогою вбудованого динаміка дитячої пісеньки «Ялинка» за такою лінійною програмою:

program muzika;

uses crt;

begin

sound(785); delay(10000); nosound;

sound(659); delay(5000); nosound;

sound(659); delay(5000); nosound;

sound(785); delay(10000); nosound;

sound(659); delay(5000); nosound;

sound(659); delay(5000); nosound;

sound(785); delay(5000); nosound;

sound(698); delay(5000); nosound;

sound(659); delay(5000); nosound;

sound(587); delay(5000); nosound;

sound(523); delay(20000); nosound;

sound(785); delay(10000); nosound;

sound(1046); delay(5000); nosound;

sound(880); delay(5000); nosound;

sound(785); delay(10000); nosound;

sound(659); delay(5000); nosound;

sound(659); delay(5000); nosound;

sound(785); delay(5000); nosound;

sound(698); delay(5000); nosound;

sound(659); delay(5000); nosound;

sound(587); delay(5000); nosound;

sound(523); delay(20000); nosound;

end.

Домашнє завдання:

• За підручником прочитати сторінки 47—52;

• Вивчити означення, прочитані на лекції;

• Написати у зошит програму, що виводить наекран псевдографічне зображення, наприклад, таке як на малюнку.

Як символи можна використовувати символи ASCII-таблиці з кодами 176—178,219—223.

Мета уроку: дати поняття про режими роботи монітору та принципи виведення зображення на екран в цих режимах.

Практична робота

На початку уроку необхідно нагадати дітям правила поведінки в комп’ютерному класі та правильної роботи за комп’ютером. У вільному режимі можна перевірити якість засвоєних знань із попередніх тем.