Лабораторная работа №8

Тема: Работа с экраном в текстовом режиме.

Пример: Реализовать простое меню из трех вариантов выбора.

Программа:

User Crt:

Type Str20 = String[20];

Menu = Array [1..3] Of Str[20];

Const MN : Menu=(‘ режим 1 ‘,

‘ режим 2 ‘,

‘ режим 3 ‘);

Var ch : Char: i,k : Byte;

Procedure Mysound(Hz : Integer: Time : Integer: Time : Integer);

Begin Sound(Hz); Delay(Time); Nosound End;

Function Readchar : Char;

Var c : Char;

Begin

c:= ReadKey: If c = #0 Then c:= ReadKey; Readchar:= c

End;

Function Case_K(ch : Char; k : Byte) : Byte;

Begin

Case ch Of

#72 : If k>1 Then k:= k – 1 Else k:= 3; {< ­ >}

#80 : If k<3 Then k:= k + 1 Else k:= 1; {< ¯ >}

End;

Case_K:=k;

End;

Procedure ShowString(k : Byte; s : Str20; gr, cl : Byte);

Begin

TextBackGround(gr); TextColor(cl); GotoXY(1 k + 2);

Write(s);

End;

Begin

Clrscr; Window(31 11, 50, 16); { Инициализация окна }

TextBackGround(1) { Задание цвета фона }

TextColor(15); { Задание цвета символов }

k:=1; CoToXY(3.2); Write(‘Выберите режим: ‘);

Repeat

For i:=1 To 3 Do { Рисование строк меню }

ShowString(i,mm[i], i+ 1.i + 9);

ShowString(i, mm[i], i + 1.i + 9); { Рисование активной строки }

Mysound(1000 100); { Звуковой сигнал }

Ch:= ReadChar; { Считывание символа }

k:= Case_k(ch,k);

Until (Ch=#13) Or (Ch=#32);

Window(1,1,80,25); Clrscr; Write ( ‘Выбран режим –‘, K:1);

End.

Варианты заданий:

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

варианты функций:

1) 2)

3) 4)

5) 6)

7) 8)

9) 10)

11) 12)

13) 14)

15) 16) .

где x принадлежит интервалу ( – 3.14, 3,14 ).

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

1. Какие режимы для вывода на экран текстовой информации Вы знаете?

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

3. Какие процедуры задают цвет выводимых на экран символов и цвет фона?

4. Какая процедура позволяет устанавливать курсор в заданное место экрана?

5. Какие процедуры управления звуковым генератором Вы знаете?