Использование функции ReadKey и функций управления цветом

Пример 1.5. Построить программу, которая, используя модуль Triangle, находит для заданного треугольника площадь S, периметр Р, радиусы Rv и Ro вписанной и описанной окружностей, при этом должны быть реализованы четыре варианта исходных данных:

а) заданы три стороны А, В, С;

b) заданы координаты вершин а,Ь,с треугольника (шесть координат);

с) заданы две стороны А, В и угол между ними;

d) задана сторона А и прилежащие углы.

В экране пользователя выделим синее окно для исходных данных и зеленое - для результатов:

Пользователь задает данные выбранного им варианта, например координаты вершин, и получает в зеленом окне значения результатов. Данные, относящиеся к другим вариантам, пропускаются нажатием клавиши Enter. Необходимо, чтобы программа не прекращала работы из-за ошибок пользователя при наборе данных, таких как набор запятой вместо десятичной точки, случайное нажатие буквы и т.п. Вместо операторов Read, Readln следует воспользоваться функцией ReadKey. Программа может анализировать коды клавиш на их допустимость в данном контексте. Например, в записи числа –289.49.4 предпоследний символ должен быть признан недопустимым.

Если символ недопустим, то занесения его в окно не будет, а программа будет выдавать краткий звуковой сигнал, пробуждающий “дремлющего” пользователя. В формируемой строке символов st также будут запоминаться только допустимые символы, а когда набор значения параметра заканчивается, пользователь нажимает Enter и содержимое строки преобразуется в число с помощью процедуры Val. Число символов в записи параметра ограничим 12.

Программа, реализующая интерфейс пользователя:

Program Primer_3;

Uses CRT, {Вызов стандартного модуля CRT}

Triangle; {Вызов модуля пользователя}

Const V: Array[1..12] of String[17] =

( ‘Длина стороны А:’,’Длина стороны В:’,’Длина стороны С:’,

‘Угол между А и В:’,’Угол между А и С:’,’Координаты вершин’,

‘Xa=’,’Ya=’,’Xb=’,’Yb=’,’Xc=’,’Yc=’);

Var j:Word; ch:Char; prm:Array[1..12] of Real; S,P,Rv,Ro: Real;

Function Value: Real; {Блок перевода набора символов в число}

Var i,er:Word;z:Real;ch:Char;st:String[12];Perv: Boolean;

Begin Perv:= True; i:=0;

Repeat ch:= ReadKey; {Считывание кода нажатой клавиши}

If (ch>#47) And (ch < #58) Or {“Если цифра или...}

(ch = #46) And Perv Or {...точка - впервые или...}

(ch = #45) And (i =0) Then {... минус в 1-й позиции...}

Begin i:=i+1: st[i]:=ch; {... то заполняется строка st”}

If ch = #46 Then Perv: = False;

Write(ch) Вывод символа на экран

End

Else If ch <> #13 Then Write(#7); {3вукoвoй сигнал при ошибке}

Until (ch = #13) Or (i >12); {Ввод символов продолжается, пока}

{не нажата клавиша Enter или число символов i не превысит 12}

st[0]:=Char(i); {В начальный компонент строки пишем ее длину}

Val(st, z, er);

Value:= z {Получение из строки st числа z}

End; {Конец блока Value}

Procedure Vivod; {Блок вывода результатов}

Begin

Writeln (#13#10' Результаты:’#13#10);

Writeln (‘Площадь S =’,5:7:3,#13#10'Периметр P=’,P:7:3);

Writeln (‘Радиус Rv =’,Рv:7:3,#13#10'Радиус Ro =’,Ro:7:3);

Write (#13#10'Изучив результаты, ‘#13#10’нажмите Enter’)

End; {Конец блока Vivod}

BEGIN

TextBackGround (0);ClrScr; {Очистка всего экрана}

TextColor (14); Window (2,1,35,16);

TextBackGround (Blue); {Заполнение окна синим цветом}

CIrScr;

For j := 1 to 12 do {Цикл заполнения поля данных}

Begin

Write (#13#10' ‘+ V[j]); {Выводим название параметра}

if j<>6 Then prm[j]:=Value; {в 6-й строчке числа не будет}

End;

Write (#13#10' Укажите вариант:’#13#10' нажмите а,Ь,с или d’);

Repeat ch:= ReadKey;

Case ch of {Оператор выбора альтернатив от ‘а’до ‘d’}

‘a’: Tr_a (prm[1],prm[2],prm[3],S,P,Rv,Ro);

‘b’: Tr_b (prm[7],prm[8],prm[9],prm[10],prm[11],prm[12],S,P,Rv,Ro):

‘c’: Tr_c (prm[1],prm[2],prm[4],S,P,Rv,Ro);

‘d’: Tr_d (prm[1],prm[3],prm[4],S,P,Rv,Ro)

Else Write(#7) {Звуковой сигнал пользователю при ошиб. букве}

End

Until ch in[‘a’..’d’]; {Расчет произведен; оформляем результат}

Window (45,1,75,16);TextBackGround(2);

CIrScr; {Очистка экрана. Образование нового окна}

Window (48,2,75,16); {“Урезаем” строки окна слева на 3-й позиции}

Vivod; {Заполнение поля результатов}

Readln {Задержка вывода на экране}

END. {Подробно о применении подобных программ см. работу [6], с.178-179}

В этой программе не хватает анализа корректности совокупности заданных пользователем параметров (неполные, предусмотренные совокупности параметров). Это несложное добавление можно сделать самостоятельно.