Pascaler
О проекте Теоретический материал Тестирование Архив задач
Войти в личный кабинет



О проекте


Преподавателям


Тема: Самостоятельное решение задач.

Выберите с учителем задачи для самостоятельного решения из предложенного ниже списка.

  1. Посчитать количество строк, находящихся между строками максимальной и минимальной длины текстового файла. Вывести эти строки на экран в обратном порядке. Если все строки файла одинаковы, вывести на экран соответствующее сообщение. В программе используйте подпрограммы.


  2. Упорядочить лексикографически строки текстового файла. Вывести на экран первоначальный файл и преобразованный. Если все строки файла одинаковы, вывести на экран соответствующее сообщение. В программе используйте подпрограммы.


  3. Удалите из текстового файла одинаковые строки. Если в файле нет одинаковых строк, вывести на экран соответствующее сообщение. Вывести на экран первоначальный файл и преобразованный. В программе используйте подпрограммы.


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


  5. Найти и вывести на экран самое большое симметричное слово текста. Если симметричных слов в тексте нет, вывести соответствующее сообщение. В программе используйте подпрограммы.


  6. В каждом слове текстового файла поменять местами первый и последний символы. Вывести на экран первоначальный файл и преобразованный. В программе используйте подпрограммы.


  7. Сравните соответствующие строки двух текстовых файлов. Если строки совпали, то запишите эту строку в результирующий текстовый файл. Вывести на экран данные файлы и полученный. Если полученный файл пуст, вывести соответствующее сообщение. В программе используйте подпрограммы.


  8. Создайте текстовый файл, содержащий гласные буквы каждой нечетной строки исходного файла и цифры каждой четной строки файла. В программе используйте подпрограммы.


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


  10. Удалить из середины каждой строки текстового файла заданное пользователем количество символов. Создайте текстовый файл, содержащий удаленные символы. Вывести на экран первоначальный файл и преобразованный. В программе используйте подпрограммы.


  11. Для каждого символа текста указать, сколько раз он встречается в тексте и вывести в текстовый файл слово, в котором этот символ встречается наиболее часто. Если таких слов несколько, вывести
    • первое встретившееся,
    • последнее встретившееся,
    • все слова.

    В программе используйте подпрограммы.



  12. Проанализировав длины строк текстового файла, объедините соседние строки так, чтобы длина строк файла была в заданном пользователем промежутке [а, b]. Если строк для объединения нет, предусмотрите в программе вывод соответствующего сообщения. Вывести на экран первоначальный файл и преобразованный. В программе используйте подпрограммы.


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


  14. Вывести на экран и в текстовый файл строки данного текстового файла, содержащие одинаковые слова. Если таких строк нет, предусмотрите в программе вывод соответствующего сообщения. В программе используйте подпрограммы.

Творческое задание. Придумайте собственную задачу по данной теме и решите ее.

Приготовьте листинги решенных и проверенных учителем задач. Проверьте свои знания, ответив на ниже следующие вопросы.

Контрольные вопросы

  1. Что общего в организации работы с текстовыми файлами и типизированными?


  2. Какие специфичные для текстовых файлов функции и процедуры Вы знаете?


  3. Какую информацию можно хранить в текстовом файле? Сколько способов просмотра текстового файла Вы использовали?


  4. Можно ли, пользуясь средствами Norton Commander создать текстовый файл, который можно было бы обработать в Паскаль-программе? Если - да, то какое расширение он должен иметь?


  5. Какие процедуры и функции модуля CRT Вы применяли в своих программах? С какой целью?

Для любознательных

Текстовый режим. Модуль CRT. Работа с цветом. Работа с экраном и курсором

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

Рассмотрим общие принципы организации отображения информации на экран дисплея. Формирование изображений на экране производится дисплейным адаптером, который представляет собой специализированный микропроцессор с собственной памятью, регистрами и наборами команд. Интерфейс с адаптером реализуется ядром операционной системы (BIOS), который управляет адаптером, записывая значения в его память, устанавливая состояние регистров и инициируя выполнение команд. Со своей стороны BIOS предоставляет прикладным программам (и операционной системе) возможности управления дисплейным адаптером посредством функций прерывания 10h (видеосервис). Некоторые из них мы рассмотрим.

Заметим, что память дисплейного адаптера включена в общее пространство компьютера и тем самым доступна напрямую и для прикладных программ. Данное обстоятельство весьма существенно, так как содержимое этой памяти непосредственно отображается на экране. Зная правила "кодирования" изображения в памяти адаптера и адреса этой памяти, можно формировать картину на экране, записывая в оперативную память те или иные значения.

Дисплейная аппаратура ориентирована на два режима работы: текстовый и графический. В текстовом режиме рабочее пространство экрана рассматривается как совокупность строк, каждая из которых содержит определенное число позиций (знакомест). В каждой позиции может быть отображен один из 256 стандартных ASCII-символов. Текстовый режим может иметь несколько вариантов, различающихся количеством и длиной экранных строк (наиболее распространенным является размер 25 строк по 80 символов в каждой).

Текстовый режим является как сравнительно простым для понимания, так и несложным и эффективным в реализации. Вместе с тем он сильно ограничен по свои возможностям. Необходимая программная поддержка этого режима со стороны операционной системы является минимальной и в то же время позволяет разрабатывать развитые и эффективные интерфейсы.

Модуль CRT

Модуль CRT представляет собой библиотеку функций и процедур, предназначенных для увеличения возможностей текстового ввода-вывода данных. В отличие от стандартного ввода-вывода, когда он осуществляется через операционную систему, подпрограммы модуля CRT работают с BIOS, и даже непосредственно с видеопамятью.

Для того чтобы стали доступны находящиеся в модуле процедуры и функции, необходимо явно указать модуль CRT командой

Uses
  Crt;

Модуль CRT сравнительно невелик и содержит средства, позволяющие:

  • устанавливать определенный текстовый режим;
  • управлять перемещением курсора на экране;
  • выводить на экран информацию;
  • задавать цветовые атрибуты выводимых символов;
  • организовывать простой оконный дизайн экрана.

Кроме этого, в модуле имеются средства взаимодействия с клавиатурой, процедуры элементарного управления звуком, а также некоторые другие примитивы.

Примечание. Относительная компактность модуля CRT находится в очевидном противоречии с весьма широким спектром возможностей современных адаптеров. Иными словами, за рамками этого модуля остается много средств управления экраном. Поэтому, практически любая программа с развитой экранной компонентой использует, наряду со штатными средствами модуля CRT, дополнительные возможности адаптера, не поддерживаемые этим модулем. Многие сервисные пакеты независимых фирм, ориентированные на Turbo Pascal (например, Power Tools Plus, Object Professional), содержат расширенные варианты модуля CRT. На следующем занятии мы рассмотрим некоторые дополнительные возможности управления экраном, существенные в практической работе.

Итак, мы уже знаем, что при работе с экраном через модуль CRT весь экран разбивается на отдельные строки, а каждая строка на отдельные позиции, в каждую из которых можно поместить один символ. Таким образом экран разбивается на отдельные прямоугольные элементы.

Рассмотрим допустимые текстовые режимы адаптера и технику их установки в Turbo Pascal- программах.

В общем случае модуль CRT поддерживает пять базовых вариантов текстового режима и еще несколько дополнительных.

Для установки одного из текстовых режимов предназначена процедура

Procedure TextMode (Mode : word);

где Mode - код текстового режима, который может принимать следующие значения:

  • BW40=0 - 40х25 черно-белый режим для цветного адаптера,
  • CO40=1 - 40х25 цветной режим для цветного адаптера,
  • BW80=2 - 80х25 черно-белый режим для цветного адаптера,
  • CO80=3 - 80х25 цветной режим для цветного адаптера,
  • MONO=7 - 80х25 монохромный для черно-белого адаптера,

Например,

TextMode (СО80);
TextMode (7);

Перечисленные режимы действительны для двух наиболее распространенных в настоящее время адаптеров VGA и EGA.

Кроме данных режимов, для VGA/EGA-адаптеров допускаются их модификации, дающие возможность увеличит количество строк, выводимых на экран. Дело в том, что разрешающая способность этих адаптеров (то есть число пикселов по горизонтали и вертикали) позволяет строить символы в виде матриц пикселов 8х14 (для EGA) и 8х16 (для VGA). Иными словами, каждый символ строится из 14 или 16 рядов пикселов. Если же использовать для символов сокращенные матрицы размером 8х8 пикселов, то на экране можно разместить соответственно 43 или 50 строк символов, что дает возможность выводить на экран значительно больше информации.

Чтобы переключиться на уплотненный режим, необходимо подать в процедуру TextMode модифицированный параметр - значение требуемого режима, увеличенное на 256. Для удобства и большей наглядности в модуле имеется соответствующая константа:

  • FONT8X8=256 - используется для загружаемого шрифта в режиме 80х43 или 80х50 с адаптерами VGA и EGA.

Рассмотрите пример переключения дисплея в режим цветного отображения с 43/50 строками:

TextMode (СО80+FONT8X8);

Примечание. Многие программные системы допускают возможность настройки на тот или иной режим. В частности, интегрированная среда Turbo Pascal позволяет устанавливать как обычный, так и уплотненный режимы дисплея (переключатель Screen sizes диалоговом окне Preferences - команда Options/Environment/Preferences).

При инициализации программы, использующей модуль CRT, значение текстового режима устанавливается автоматически, исходя из реальной аппаратуры компьютера.Текущее значение установленного режима всегда хранится в переменной LastMode из интерфейса модуля CRT. Даже в случае переключения в графический режим это значение сохраняется и может быть использовано для возврата в текстовый режим, например, TextMode (LastMode).

Рассмотрим подробнее процедуры и функции модуля CRT.

Процедуры управления цветом

TextBackGround(Color : byte) - процедура задает цвет фона Color.

TextColor(Color : byte) - процедура задает цвет символов Color.

HighVideo - процедура устанавливает высокую яркость символов (заменяет цвета 0-7 на цвета 8-15), выводимые далее на экран.

LowVideo - процедура устанавливает малую яркость символов (заменяет цвета 8-15 на цвета 0-7), выводимые далее на экран.

NormVideo - процедура устанавливает первоначальную яркость символов, выводимые далее на экран.

Управление цветом

Использование цвета при разработке видеоинтерфейсов программ, отображение результатов и т.п. является важным средством повышения удобства работы с программой, улучшения восприятия информации и в конечном итоге служит повышению производительности труда. Разумное и продуманное использование цвета может заметно повысить привлекательность программы и более наглядно выявить ее преимущества.

Цветные дисплеи персональных компьютеров позволяют в текстовом режиме выводить информацию на экран, используя фиксированный набор цветов. Различаются цвета самих символов и цвета фонов символов - областей знакомест, не занятых символами.Возможно независимое управление цветовыми характеристиками всех знакомест экрана. Базовый набор допустимых цветов составляет 16 цветов для символов, 8 цветов из этого набора можно задавать для фонов символов. Цвета кодируются последовательными числами от 0 до 15; эта кодировка определяется устройством дисплейной аппаратуры компьютера и поэтому не зависит от языка программирования.

Сonst
{Коды, допустимые для текста и фона}
  Black =0; {Черный}
  Blue =1; {Синий
  Green =2; {Зеленый}
  Cyan =3; {Голубой}
  Red =4; {Красный}
  Maganta =5; {Пурпурный}
  Brown =6; {Коричневый}
  LightGray =7; {Серый}
{Коды, допустимые только для текста}
  DarkGray =8; {Темно-серый}
  LightBlue =9; {Ярко-синий}
  LightGreen =10; {Ярко-зеленый}
  LightCyan =11; {Ярко-голубой}
  LightRed =12; {Ярко-красный}
  LightMaganta =13; {Ярко-пурпурный}
  Yellow =14; {Ярко-желтый}
  White =15; {Белый}

Для того, чтобы вывести на экран текст с определенными цветовыми характеристиками, в языке Turbo Pascal принята следующая техника: сначала устанавливаются текущие цветовые атрибуты, после чего все тексты, выводимые процедурами write и writeln на экран, используют заданные текущие атрибуты, до тех пор, пока они не будут переопределены. Текущий цвет и фон символов задаются процедурами TextColor и ТextBackground, которые устанавливают соответственно, текущий цвет для выводимых символов и текущий фон для них. Эти процедуры вызываются с одним параметром, который представляет значение нужного цвета (можно использовать одну из представленных выше констант, ее числовое значение или произвольное выражение, вырабатывающее целое значение в диапазоне от 0 до 15).

Помимо цвета, для символов можно задавать периодическое изменение яркости свечения, которое воспринимается как мерцание символа (мерцает только символ; фон остается неизменным). Как правило, кратковременная установка мерцания используется для вывода важных сообщений, имитации работающих электронных часов и т.п. Чтобы задать мерцание для выводимого далее текста, нужно увеличить значение параметра процедуры TextColor на 128; для большей наглядности этой операции наряду с кодами цветов в модуле CRT имеется соответствующая константа мерцания:

Const
  Blink =128;

Задание. Наберите на компьютере и внимательно рассмотрите представленную ниже простую демонстрационную программу, иллюстрирующую технику управления цветами.

Program DemoColors;
Uses
  Crt;
Begin
  writeln('По умолчанию выводятся белые символы на черном фоне');
  TextColor(Yellow);
  ТextBackground(Blue);
  writeln('Желтые символы на синем фоне');
  TextColor(Red);
  ТextBackground(LightGray);
  writeln('Красные символы на сером фоне');
  TextColor(White+Blink);
  ТextBackground(Red);
  writeln('Белый мерцающий текст на красном фоне');
  TextColor(Yellow);
  ТextBackground(Blue);
  writeln('A');
  TextColor(Red);
  ТextBackground(LightGray);
  writeln('B');
  TextColor(White);
  ТextBackground(Red);
  writeln('C');
End.

Процедуры и функции работы с экраном и курсором

ClrEol - процедура удаляет все символы от курсора (включительно) до конца строки, заполняя этот участок строки цветом фона.

ClrScr - процедура очищает текущее окно, заполняя его цветом фона и помещает курсор в его верхний левый угол с координатами (1, 1).

DelLine - процедура удаляет строку, в которой находится курсор.

GoToXY(X, Y : byte) - процедура перемещает курсор к элементу экрана с заданными координатами X и Y. Если хотя бы одна координата недопустима, процедура не выполняется.

InsLine - процедура вставляет пустую строку на экране в месте расположения курсора и заполняет ее цветом фона.

WhereX (Function WhereX : byte) - возвращает значение горизонтальной кооординаты.

WhereY(Function WhereY : byte) - возвращает значение вертикальной кооординаты.

Управление курсором

В текстовом режиме на экране, как правило, присутствует курсор - мерцающий служебный элемент, назначением которого является указание позиции на экране, начиная с которой будет производиться вывод или ввод информации. Положение курсора на экране можно проверять и изменять, используя подпрограммы CRT. Чтобы установить курсор в некоторой конкретной позиции, используется процедура GoToXY, два параметра которой определяют позицию знакоместа на экране, в которую будет перемещен курсор. Первый параметр задает номер позиции по горизонтали (номер колонки), второй параметр - номер по вертикали (номер строки). Строки и колонки нумеруются от единицы.

Например, вызов процедуры GoToXY(1,1) переместит курсор в крайнюю левую верхнюю позицию экрана, а вызов процедуры GoToXY(80,25) - в нижнюю правую.

Заметим, что второй вызов даст такой эффект только в том случае, когда текущий текстовый режим равен BW80, CO80, Mono. В общем случае необходимо учитывать симло строк и столбцов для конкретного режима. Если, например, действует режим CO80+Font8x8 для адаптера VGA (50 строк по 80 символов), то приведенный выше вызов процедуры переместит курсор примерно в середину правой крайней колонки.

Чтобы определить текущее положение курсора, можно использовать две функции без параметров - WhereX и WhereY, которые как видно из их названий, возвращают, соответственно, горизонтальную и вертикальную координаты курсора.

Задание. Наберите, протестируйте и рассмотрите небольшую иллюстративную программу, приведенную ниже.

Program Count;
Uses
  Crt;
Var
  i : word;
Begin
  GotoXY(1,WhereY);
  write(' ');
  for i := 1 to 1000 do
    begin
      GotoXY(1,WhereY);
      write(i);
      Delay(100);
    end;
End.

Прием, используемый в этой программе, можно применять для нужд трассировки. Например, при обработке очень больших файлов, которая может продолжаться довольно долгое время, имеет смысл выводить "успокаивающую" информацию, наглядно показывающую пользователю, что компьютер не "завис" (некоторые системы выдают процент сделанной работы или что-либо подобное).

Текстовый режим. Модуль CRT. Работа с окнами. Управление звуком.

Модуль CRT позволяет работать не только со всем экраном, но и выделять в нем прямоугольные окна. Любое окно задаётся своим верхним левым и правым нижним углами. Эти углы, так же как и положение любого объекта на экране, задаются двумя координатами: Х и Y. В качестве координаты Х выступает номер позиции в строке (нумерация начинается с 1 и идет слева направо), а в качестве координаты Y - номер строки (нумерация начинается с 1 и идет сверху вниз). При работе в окне координаты отсчитываются от левого верхнего угла окна. При запуске программы выделенное окно совпадает по размеру со всем экраном. Если режим работы адаптера 25 строк по 80 позиций, то координаты такого окна (1, 1) и (80, 25).

Window(X1, Y1, X2, Y2 : byte) - определяет текстовое окно на экране.

Смысл выполнения процедуры заключается в том, что все последующие действия по выводу информации действуют в пределах данного окна. Кроме того, системные процедуры, работающие с курсором - GotoXY, WhereX, WhereY, также интерпретируют свои параметры относительно левого верхнего угла последнего установленного окна. Далее, процедура ClrScr, заполняет пробелами не весь экран, а текущее окно.

Значения параметров процедуры Window выбираются очевидным образом; например, вызов

Window(35,11,45,13);

определяет окно высотой в две строки и длиной в десять символов примерно посередине экрана.

После выполнения процедуры Window курсор устанавливается в позицию окна с координатами (1,1). Кроме этого, эффект данной процедуры на экране никак не проявляется. Результат ее работы бывает виден только при выполнении каких-либо процедур вывода или управления курсором. Хорошей иллюстрацией механизма окон является следующая простая программа, которая в цикле производит создание очередного окна, случайным образом задавая его размеры м местоположение, а затем выводит в него серию случайных символов.

Задание. Наберите и протестируйте предложенную программу. Дополните ее своими операторами и комментарием. В целях большей наглядности употребите процедуру Delay и увеличьте длительность цикла вывода символов.

Program Windows;
Uses
  Crt;
Procedure RandomWindow;
Var
  X1, Y1, X2, Y2 : byte;
Begin
  X1 := Random(40)+1;
  Y1 := Random(12)+1;
  X2 := X1+Random(40);
  Y2 := Y2+Random(12);
  TextColor(Random(15));
  Window(X1, Y1, X2, Y2);
  ClrScr;
End;
Procedure WorkWindow;
Var
  i : integer;
Begin
  for i := 0 to Random(1000)+500 do
    write(Chr(Random(224)+32));
End;
Procedure Finish;
Var
  i : integer;
Begin
  Window(1, 1, 80, 25);
  ClrScr;
  if ReadKey = #0
    then
      ReadKey;
End;
Begin
  ClrScr;
  Randomize;
  repeat
    RandomWindow;
    WorkWindow
  until KeyPressed;
  Finish;
End.

Модуль CRT содержит две интерфейсные переменные типа word, которые хранят в упакованном виде координаты двух углов текущего активного окна:

Var
  WindMin : word; {координаты левого верхнего угла окна}
  WindMax : word; {координаты правого нижнего угла окна}

Посредством стандартных функций Hi и Lo можно извлечь из этих переменных горизонтальные и вертикальные координаты углов. Наличие этих переменных избавляет от необходимости хранить информацию об активном окне в самой программе.

Наблюдая работу программы Windows, можно заметить, что, когда в процессе вывода производится заполнение последней позиции окна, его содержимое сдвигается на одну строку вверх (при этом верхняя строка пропадает) и, тем самым, нижняя строка освобождается для последующего вывода. Этот механизм является естественным обобщением знакомых правил работы процедур write и writeln на случай вывода в окна. В модуле Crt имеются две дополнительные процедуры, позволяющие несколько расширить и усилить возможности прокручивания("скроллинга") содержимого окон - DelLine и InsLine.

Процедура DelLine удаляет строку окна, на которой находится курсор, и перемещает все строки ниже этой строки на одну строку вверх. При этом нижняя строка очищается и тем самым допускает ввод очередной порции информации. На основе этой процедуры удобно задавать прокрутку текстов в окне в направлении снизу вверх.

Задание. Наберите и протестируйте предложенную программу. Дополните ее своими операторами и комментарием.

Program ScrollUp;
Uses
  Crt;
Var
  i : word;
Begin
  Window(5,10,65,14);
  ClrScr;
  writeln('Cтрока 1');
  writeln('Cтрока 2');
  writeln('Cтрока 3');
  writeln('Cтрока 4');
  writeln('Cтрока 5');
  for i := 6 to 26 do
    begin
      GotoXY(1,1);
      DelLine;
      GotoXY(1,5);
      write('Строка ',i);
      Delay(300);
    end;
  Delay(500);
  Window(1, 1, 80, 25);
  ClrScr;
End.

Процедура InsLine вставляет пустую строку в позиции курсора. При этом все строки окна, расположенные ниже новой строки, сдвигаются вниз (нижняя строка пропадает).Легко видеть, что эта процедура позволяет организовать прокрутку содержимого окна (или части окна) в направлении сверху вниз.

Задание. Наберите и протестируйте предложенную программу. Дополните ее своими операторами и комментарием.

Program ScrollDown;
Uses
  Crt;
Var
  i : word;
Begin
  Window(5,10,65,19);
  ClrScr;
  writeln('Данные строки окна');
  writeln('остаются неизменными.');
  writeln('В пяти нижних строках');
  writeln('организована прокрутка');
  writeln('в направлении сверху вниз');
  for i := 1 to 40 do
    begin
      GotoXY(1,6);
      InsLine;
      write('Строка ',i);
      Delay(300);
    end;
  Delay(500);
  Window(1, 1, 80, 25);
  ClrScr;
End.

Процедуры управления звуком

Sound(Hz : word) - процедура включает источник звука с частотой Hz герц.

NoSound - процедура выключает источник звука.

Процедуры для работы со звуком позволяют получить доступ ко встроенному динамику компьютера. Процедура Sound включает динамик, который начинает генерировать звук с заданной в герцах частотой тона. Это никак не отражается на работе программы, которая не будет остановлена и может продолжать нормально работать одновременно с подачей звуковых сигналов до тех пор, пока не встретится вызов процедуры NoSound, которая отключает динамик.

Процедуры работы со звуком надо использовать аккуратно. Если после процедуры Sound не вызвать процедуру NoSound, то звук будет производится после завершения программы, и, чтобы его отключить, придется либо перезагружать компьютер, либо заново перекомпилировать и запустить программу, предварительно добавив в нее вызов процедуры NoSound.

Процедура NoSound может следовать после нескольких процедур Sound, которые изменяют частоту тона.

Очень часто процедуры Sound и NoSound используются совместно с процедурой Delay(ms : word), которая останавливает выполнение программы на указанное в параметре время.

Процедура Delay использует для отсчета времени встроенную микросхему таймера, которая вычисляет десятые и сотые доли секунды недостаточно точно, поэтому не следует применять эту процедуру для точного вычисления времени.

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

Program Gamma;
Uses
  Crt;
Const
  Nota : Array [0..7] of word = (262, 294, 330, 349, 392, 440, 494, 524);
Var
  i : byte;
Begin
  GotoXY(35,5);
  write('Гамма');
  repeat
    for i := 0 to 7 do
      begin
        Sound(Nota[i]);
        Delay(500);
        NoSound;
      end;
  until KeyPressed;
End.

Функции работы с клавиатурой

KeyPressed (Function KeyPressed : boolean) - определяет, была ли нажата клавиша на клавиатуре.

ReadKey (Function ReadKey : char) - читает значение нажатой клавиши.

Эти функции были подробно рассмотрены в теме "Циклы" первого года обучения. Поэтому здесь мы останавливаться на их изучении не будем.

Внимание! Дополните любую решенную Вами задачу рассмотренными в этом занятии процедурами и функциями.

Вернуться назад
2003—2012 © Группа «Vimedia»
Проект «Pascaler» — лучший на ХI Всероссийской конференции молодых исследователей с международным участием «Шаг в будущее», Россия, Москва, 12 – 16 апреля 2004г.