|
||||||||||||||||||||
Меню:
Главная
Форум
Литература: Программирование и ремонт Импульсные блоки питания Неисправности и замена Радиоэлектронная аппаратура Микросхема в ТА Рубрикатор ТА Кабельные линии Обмотки и изоляция Радиоаппаратура Гибкие диски часть 2 часть 3 часть 4 часть 5 Ремонт компьютера часть 2 Аналитика: Монтаж Справочник Электроника Мощные высокочастотные транзисторы 200 микросхем Полупроводники ч.1 Часть 2 Алгоритмические проблемы 500 микросхем 500 микросхем Сортировка и поиск Монады Передача сигнала Электроника Прием сигнала Телевидиние Проектирование Эвм Оптимизация Автомобильная электроника Поляковтрансиверы Форт Тензодатчик Силовые полевые транзисторы Распределение частот Резисторные и термопарные Оберон Открытые системы шифрования Удк |
[24] Примечание: введите счетчики правильно и неправильно нажатых клавиш. В конце программы выведите на экран результат работы счетчиков. Рассмотрим последовательность операторов, позволяющих создать на экране "бегущую строку" символов. Введем с клавиатуры надпись с выводом на экран и запомним строку символов в массиве cha. i:=0; repeat i:=i+1; read(cha[i]) until cha[i]=#13; n:=i-1; Ввод надписи заканчивается нажатием клавиши SpaceBar (последним символом надписи должен быть пробел), затем Enter. Число символов в надписи запоминается в переменной "n", символ с кодом #13 не включается. Принцип создания "бегущей строки" символов заключается в выводе групп симво лов строки с позиции от 1 до "n" (первый символ, два первых символа строки и т. д. ) и смещением влево позиции вывода первого символа группы. Затем выводятся группы символов от "n- 1" до 1 (строка без первого символа, строка без второго символа и т. д.) без изменения места вывода первого символа группы. После вывода каждой группы символов следует задержка программы, позволяющая "увидеть" группу символов. При выводе каждая новая группа символов затирает предыдущую, причем последний символ (SpaceBar) затирает символы при уменьшении группы выводимых символов. Приведем пример операторов для создания " бегущей строки" символов. Здесь n1 - номер первого выводимого символа, n2 - номер последнего выводимого символа. for i:=1 to 2*n-1 do begin if i<=n then begin n1:=1; n2:=i; else begin n1:=i-n+1; n2: for j:=n1 to n2 do write(cha[j]); delay(200); end until keyPressed ; Практическое задание N 1. 42 1.Создать "бегущую строку". Строку выводить в окне, размером n+1 (n - число символов). 2.Создать "бегущую строку". Выводить одновременно две надписи одинаковой длины в разных строках одного окна. Примечание: цвет окна и символов изменять после каждого вывода строки. Режим монитора TextMode(1); 1. 14. 4. Работа со строковыми переменными gotoXY(n-i+1,5) end =n; gotoXY(1,5) end; { вывод группы символов } В программе "Бегущая строка" можно использовать переменные типа String. Для этого достаточно описать переменную "cha" типом String. Для строковых переменных допускаются операции сложения, например, если s1: = Hello!, s2: = Привет !, то переменной s3:=s1+ +s2; присвоится значение: "Hello! Привет!" . Сравнение строковых переменных происходит по символам, начиная с первого. Для приведенного выше примера выражение ( s1<>s2 ) верно. Если код первого символа в первой строке больше, чем во второй, то первая строковая переменная считается больше второй. В данном примере выражение s1<s2 верно, т. к. значение кода "Н" меньше, чем "П". Строковую переменную можно рассматривать как массив символов, например: s1[1]:=H , s1[2]:=e; и т. д. Длина строковой переменной "L" содержится в элементе с нулевым индексом и может находиться оператором L:= Ord(s1[0]); или оператором L:= Length(s1); Функция Copy(S,L1,L2); позволяет скопировать строковую переменную "S" в другую строковую переменную. Где L1 - номер индекса первого копируемого символа, L2 - число копируемых символов. Например, для заданного ранее значения s1 переменная Sc:=Copy(s1,1,5); примет значение "Hello". Процедура Delete(S,L1,L2); позволяет удалить из строки "S" часть символов. Где L1 - номер индекса первого удаляемого символа, L2 - число удаляемых символов. Например, после действия оператора Delete(s1,6,1); переменная "s1" примет значение "Hello". Процедура Insert(Si, S, L1); позволяет вставить в строку "S" строку "Si" начиная с номера "L1" строки "S". Здесь переменные L1, L2 - типа Integer. Практическое задание N 1. 43 1.Создать "бегущую строку" с использованием функции копирования. Строку вводить оператором Read(S); c пробелом в конце строки. Длина строки n:= Length(s); Выводить строку оператором Write(Sc); где Sc:= Copy(S, L1, L2). 2.Создать "бегущую строку" с использованием функции копирования при "j<=n" Sc:=Copy(S, L1, L2); а после "else" c процедурой удаления Delete(Sc, L3, L4);. Строку вводить оператором Read(S); c пробелом в конце строки. Выводить оператором Write(Sc); Длина строки n:=Length(s); 1. 14. 5. Управление звуковыми сигналами Sound(N); - включение звука с частотой тона N (измеряется в герцах). Delay(M); - задержка выполнения программы на M миллисекунд. NoSound; - выключение звука. Здесь N и M - типа Word. Управление звуковым устройством компьютера осуществляется последовательностью операторов: Sound(F); Delay(N); NoSound; где F - частота звука в Гц. Для программирования мелодии удобно применять известную формулу расчета частоты звука: F=Round(440*Exp(Ln(2)*(No-(10-Nn)/12))); где No - номер октавы -3<= No <=4; Для основной октавы No=0. Nn - номер ноты 1 - До, 2 - До#, 3 - Ре, и т. д. 12 - Си. При сквозной нумерации нот принять для No<0 - Nn<1, для No>0 - Nn>12. Практическое задание N 1. 44 1.Создать "бегущую строку", со звучанием мелодии. После вывода каждой группы символов вместо процедуры delay(200); ставятся операторы: Sound(F[k]); Delay(N[k]); NoSound; где F, N - массивы частот и длительности звучания нот, определенные в начале программы по приведенной выше зависимости согласно исполняемой мелодии. Параметр "k" наращивается до числа нот в мелодии, затем обнуляется и т. д. 2.Создать мелодию с частотой "F" и длительностью звучания нот"№, изменяющихся по выбранным вами формулам, например: F=1000*sin(x)+ 100, N=random(2)+ 1, где х= х + 0. 01 от х= 0 до х= Pi. В редакторах текста Вы можете перемещать курсор, листать страницы экрана и выполнять другие действия при нажатии определенных клавиш. Это достигается тем, что программой редактора согласно коду нажатой клавиши выполняется определенный оператор, например перемещение курсора на новую позицию, вывод символа и т. д. Некоторые клавиши (например, функциональные, управления курсором) имеют двойной код: первый -нулевой и второй - различный для каждого символа. Для данных клавиш приходится дважды применять оператор считывания кода нажатого символа. Приведем пример операторов, позволяющих курсорными клавишами перемещать по экрану курсор, либо выводить на экран символ нажатой клавиши: x:= whereX; y:= whereY;{ опрос текущих координат курсора }
|
Среды: Smalltalk80 MicroCap Local bus Bios Pci 12С ML Микроконтроллеры: Atmel Intel Holtek AVR MSP430 Microchip Книги: Емкостный датчик 500 схем для радиолюбителей часть 2 (4) Структура компьютерных программ Автоматическая коммутация Кондиционирование и вентиляция Ошибки при монтаже Схемы звуковоспроизведения Дроссели для питания Блоки питания Детекторы перемещения Теория электропривода Адаптивное управление Измерение параметров Печатная плата pcad pcb Физика цвета Управлении софтверными проектами Математический аппарат Битовые строки Микроконтроллер nios Команды управления выполнением программы Перехода от ahdl к vhdl Холодный спай Усилители hi-fi Электронные часы Сердечники из распылённого железа Анализ алгоритмов 8-разрядные КМОП Классификация МПК История Устройства автоматики Системы и сети Частотность Справочник микросхем Вторичного электропитания Типы видеомониторов Радиобиблиотека Электронные системы Бесконтекстный язык Управление техническими системами Монтаж печатных плат Работа с коммуникациями Создание библиотечного компонента Нейрокомпьютерная техника Parser Пи-регулятор ч.1 ПИ-регулятор ч.2 Обработка списков Интегральные схемы Шина ISAВ Шина PCI Прикладная криптография Нетематическое: Взрывной автогидролиз Нечеткая логика Бытовые установки (укр) Автоматизация проектирования Сбор и защита Дискретная математика Kb радиостанция Энергетика Ретро: Прием в автомобиле Управление шаговым двигателем Магнитная запись Ремонт микроволновки Дискретные системы часть 2 | ||||||||||||||||||