4.13. Интерфейс пользователя

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

Это же касается и выдачи результатов. На пустом экране появляется сухое число 420. Посторонний человек ни за что не поймет, какой оно имеет смысл: то ли это 420 рублей, то ли 420 зоопарков. Говорят, что у нашей программы неудобный интерфейс пользователя, то есть человеку, применяющему нашу программу, неудобно с ней общаться. Слово "интерфейс" можно перевести как "взаимодействие", в данном случае взаимодействие человека с компьютером.

Дополним чуть-чуть нашу программу, чтобы интерфейс стал далее удобным.

VAR kol_krol,kol_slon,norma_krol,norma_slon,vsego :Integer;

BEGIN

norma_krol:=2;

norma_slon:=100;

WriteLn ('Введите, пожалуйста, количество кроликов');

ReadLn (kol_krol);

kol_slon:=3;

vsego:=norma_krol*kol_krol+norma_slon*kol_slon;

WriteLn( 'Вам всего понадобится ' ,vsego,' морковок');

ReadLn

END.

Эта программа будет работать точно так же, как и предыдущая, с тем отличием, что во время паузы, вызванной оператором ReadLn(kol_krol), на экране будет гореть удобная надпись:

введите, пожалуйста, количество кроликов

результат будет выведен на экран в виде:

Вам всего понадобится 420 морковок

Оператор ReadLn без скобок в конце программы нужен для нейтрализации одной неприятной особенности в работе Паскаля. Дело в том, что, выполнив программу, Паскаль торопится погасить экран с результатами решения задачи и делает это так быстро, что человек просто не успевает эти результаты разглядеть. Оператор ReadLn, поставленный после оператора WnteLn, выводящего результаты на экран, задает паузу. Во время этой паузы экран не гаснет, так как программа еще не выполнилась до конца и человек может спокойно разглядеть результаты. После этого он нажатием клавиши Enter позволит компьютеру продолжить выполнение программы (в нашем случае после ReadLn стоит END с точкой, поэтому программа завершится)

Часто, впрочем, можно обойтись и без ReadLn. Нажав пару клавиш на клавиатуре (Alt-F5), мы можем снова зажечь погасший экран с результатами. В дальнейших примерах будем для экономии места обходиться без ReadLn.

Задания 15-16

Написать с использованием интерфейса программы решения задач:

15. Длина одной стороны треугольника равна 20. Длины двух других сторон будут известны только после запуска программы на выполнение. Вычислить периметр треугольника.

16. В компьютер вводятся путь, пройденный телом, и скорость тела. Найти время движения тела.