Пояснения к программе.

1. В разделе Usesуказывается подключаемый к программе модуль Crt, содержащий средства работы с экраном (например, Textbackground, Clrscr, Window, Gotoxyи т.д.)

2. Процедура Clrscr(очистка окна или экрана), следующая за процедурой Textbackground(задание цвета фона экрана), используется для удаления с экрана с экрана сообщений о предыдущей работе компьютера.

3. Процедура Windowустанавливает положение окна на экране. Процедура Textbackground(Red) задает цвет фона окна, следующая за ней процедура Clrscrиспользуется для очистки заданного окна. Процедура Gotoxy(20,3) используется для установки курсора в окне.

4. Условие в операторе IFзаписано исходя из того, что латинские буквы (строчные и заглавные) упорядочены в соответствии с английским алфавитом.

5. Оператор Readlnв конце программы используется для остановки выполнения программы и фиксирования на экране результатов для просмотра. Для продолжения работы работы и возврата в систему Турбо Паскаль необходимо нажать клавишу Enter.

Программа решения примера:

Program Ex1 (Input, Output);

Uses Crt;

Var Smv: Char;

BEGIN

{ Задание цвета фона экрана }

Textbackground(Magenta);

Clrscr;

{ Установка окна и задание цвета фона окна}

Window (15,9,65,17);

Textbackground (RED);

Clrscr;

{ подготовка к вводу сивола}

Gotoxy (20,3);

Write (‘Введите символ > ’);

{ Ввод символа }

Readln (Smv);

Gotoxy (20,5);

IF ((Smv<’a’) OR (Smv>’z’)) AND ((Smv<’A’) OR (Smv>’Z’))

THEN Writeln (‘ЭТО НЕ ЛАТИНСКАЯ БУКВА’)

ELSE

BEGIN

Writeln(‘ЛАТИНСКАЯ БУКВА’);

Gotoxy (20,7);

IF (Smv>=’A’) AND (Smv<=’Z’)

THEN Writeln (‘ЗАГЛАВНАЯ БУКВА’)

ELSE Writeln (‘СТРОЧНАЯ БУКВА’);

END;

Readln;

END.

Рис. 4 Первый вариант информации на экране монитора

Рис. 4 Второй вариант информации на экране монитора

Рис. 4 Третий вариант информации на экране монитора

Пример программирование с использованием оператора выбора.

Составить программу на языке Паскаль, которая по введенной цифре“0”,”1”,”2”,”3”, окрашивает правое окно либо в красный, либо в малиновый, либо в синий, либо в черный цвет (см. рис. 8).

Задать цвет фона экрана зеленый, организовать диалог с пользователем в левом окне, задать исходный цвет фона окна красный, цвет текста белый.

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

Program Ex2 (Input, Output);

Uses Crt;

Var A:integer;

BEGIN

{ Задание цвета экрана}

Textbackgroup (Green);

Clrscr;

{ Установка левого окна и задание его цвета}

Window (4,3,32,12);

Textbackground (Red);

Clrscr;

Textcolor (White);

{ Вывод на экран подготовительной информации для ввода числа}

Gotoxy (6,2);

Writeln (‘Введите номер цвета’)ж

Gotoxy (9,4);

Writeln (‘0 - КРАСНЫЙ’);

Gotoxy (9,5);

Writeln (‘1 - МАЛИНОВЫЙ’);

Gotoxy (9,6);

Writeln (‘2 - СИНИЙ’);

Gotoxy (9,7);

Writeln (‘3 - ЧЕРНЫЙ’);

Gotoxy (12,9);

{ Ввод числа}

Write (‘>’);

Readln (A);

{ Задание положения правого окна экрана }

Window (40,16,70,22);

{ Задание цвета окна }

CASE A OF

0: Textbackground (Red);

1: Textbackground (Magenta);

2: Textbackground (Blue);

3: Textbackground (Black);

END;

Clrscr;

Readln;

END.

Рис. 8 Информация на экране монитора

Пояснение к программе.

Роль селектора выполняется переменная А типа INTEGER. В зависимости от введенной цифры (либо 0, либо1, либо2, либо3) правое окно окрасится в соответствующий цвет.

Лабораторное задание.

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

Порядок выполнения лабораторной работы.

1. При домашней подготовке составить программу решения задачи для своего варианта.

2. Войти в систему Турбо Паскаль и набрать текст программы.

3. Исправить ошибки.

4. Записать результаты выполнения программы в отчет и показать их преподавателю на экране монитора.

5. Оформить отчет и защитить работы.

Требования к отчету.

Отчет должен содержать.

1. Конспект, в котором в краткой форме отражаются все разделы лабораторной работы.

2. Программу своего варианта.

3. Исходные данные и результаты выполнения.

NN	Задание на выполнение лабораторных работ
1, 30	Составить программу, которая бы при вводе цифры выводила бы на экран ее буквенное обозначение. Т.е. при вводе цифры 7 должно быть выведено слово“семь”, при вводе цифры 3 на экране должно быть выведено слово “три”.
2,29	Составить программу, которая бы при вводе оценки в виде цифры выводила бы оценку в буквенном виде: 5 – отлично 4 – хорошо 3 – удовлетворительно 2 – неудовлетворительно
3,28	Составить программу, которая бы при вводе арабских цифр выводила бы на экран соответствующие им римские числа I II III IV V VI VII VIII IX
4,27	Составить программу, которая выводила бы введенный возраст человека с добавлением слов “год”, ”года”, ”лет”. Т.е. если введено число 41, то вывести текст “41 год”, если введено число 3, то вывести – “3 года”, если введено число 11, то вывести – “11 лет”.
5,26	Составить программу, которая по известному расписанию звонков и текущему времени выводила бы номер пары либо слово “перемена”. Т.е. если введено время“13.40”, то вывести “3 пара”, а если введено время ”10.35”, то вывести “перемена”.
6,25	По номеру года определить число дней в году. Т.е. если введено число 1989, то вывести текст “в году 365 дней”, если введено 1988 – вывести “в году 366 дней ”.
7,24	По введенному символу “к”, ”ж”, ”з”, окрасить окно на экране либо в красный, либо в желтый, либо в зеленый цвет. Цвет экрана –серый.
8,23	Составить программу, которая при вводе символа выводила бы на экран текст “цифра”, если введена цифра, и текст “не цифра” в противном случае.