Практическая работа № 9
Тема: Символьные переменные
Цель работы: Изучение работы с символьными переменными, типы символьных переменных, ввод и вывод символьных переменных
Процедуры работы с текстом (модуль CRT)
Для использования следующих процедур необходимо после строки PROGRAM набрать строку | USES CRT; |
Устанавливает цвет фона | TextBackGround(Цвет) |
Устанавливает цвет символов | TextColor(Цвет) |
Перемещает курсор в позицию X строки Y экрана | GOTOXY(x, y) |
Очищает экран и помещает курсор в верхний левый угол | ClrScr |
Написание программы диалога с компьютером
PROGRAM DIALOG; VAR NAME:STRING; GR, V:INTEGER; BEGIN | На экране |
WRITELN('Как тебя зовут?'); | Как тебя зовут? |
READLN(NAME); | Саша |
WRITELN(‘Приятно познакомиться, ’,NAME); | Приятно познакомиться, Саша |
WRITELN('В каком году ты родился?'); | В каком году ты родился? |
READLN(GR); | 1993 |
V:=2011-GR; | |
WRITELN(‘Значит тебе ’,V,’лет, ‘,NAME); | Значит тебе 18 лет, Саша |
END. |
Рассмотрим, как составить оператор, который выводит на экран следующую надпись:
Значит тебе 18 лет, Саша
Выделим текст, который выводится с помощью переменных:
Значит тебе 18 лет, Саша
18 – это значение переменной V, Саша – это значение переменной NAME.
Весь остальной текст будем выводить с помощью текстовых констант, т. е. текста, заключенного в апострофы. Оператор вывода, содержащего текстовые константы и переменные в общем виде выглядит так:
WRITE(‘текст’, переменная, ‘текст’, переменная, ‘текст’);
Значит, чтобы получить оператор WRITELN, перечислим в скобках текстовые константы и переменные, разделенные запятыми:
WRITE(‘Значит тебе ‘,V,’ лет, ‘,NAME);
Задание к работе:
1. Ввести в Паскале программу диалога
2. Запустить программу на выполнение и ввести свои ответы
3. Добавить очистку экрана
4. Сохранить программу
5. ПОКАЗАТЬ ПРЕПОДАВАТЕЛЮ
Контрольные вопросы:
1. Сколько символом может содержать переменная, описанная как S:STRING?
2. Как соединить текст из двух символьных переменных?
3. Что будет в переменной GRUP:STRING[4]; после присвоения GRUP:=’ПОВТ-31’;?
4. Что будет на экране при выполнении операторов
WRITELN(‘Введите фамилию’);
READLN(FIO);
5. Что делает оператор CLRSCR?
6. Как изменить цвет символов на зеленый?
7. Что делает оператор GOTOXY(x, y)?
Индивидуальное задание:
6. Написать программу по индивидуальному заданию
- Все ответы Человека вводить в отдельные переменные
- В ответах Компьютера для вывода выделенных слов использовать переменные
- Выделенное число – это числовая переменная, которую надо вычислить по введенным ответам
7. При написании программы:
- Предусмотреть очистку экрана перед началом диалога
- …Фразы компьютера выводить другим цветом
8. … Придумать и добавить несколько фраз в диалог
Задания для индивидуальной работы
Вариант 1 | К: Здравствуй, я компьютер, а тебя как зовут? Ч: Николай К: Очень приятно, Николай. В каком году ты родился? Ч: 1995 К: Ого! Тебе целых 16 лет! Ты уже совсем взрослый! Как называется город, в котором ты живешь, Николай? Ч: Тольятти К: Я знаю, что Тольятти – очень красивый город. Приятно с тобой поговорить, Николай, из города Тольятти |
Вариант 2 | К: Добрый день, я компьютер, а как твое имя? Ч: Николай К: Рад познакомиться, Николай. В какой группе ты учишься? Ч: Ф-11 К: Это очень хорошо. Я знаю, что Ф-11 - веселая и дружная группа! Сколько студентов в твоей группе, Николай? Ч: 28 К: А сколько сегодня на занятиях? Ч: 21 К: 7 студентов из группы Ф-11 прогуливают уроки. Надеюсь, что ты не будешь пропускать занятия, Николай, из группы Ф-11 |
Вариант 3 | К: Добрый день, я компьютер, а как твое имя? Ч: Николай К: Рад познакомиться, Николай. Какой предмет в колледже тебе больше нравится? Ч: История К: История - интересный предмет. На его уроках можно узнать много полезного! А сколько предметов вы изучаете в этом году, Николай? Ч: 8 К: Сколько у тебя было пятерок за первый семестр? Ч: 5 К: Тебе осталось подтянуться по 3 предметам, чтобы стать отличником. Успехов тебе, Николай, в учебе и особенно по любимому предмету история |
Вариант 4 … Юбилей считается в тот год, который оканчивается на 0 | К: Здравствуй, я компьютер, а тебя как зовут? Ч: Николай К: Очень приятно, Николай. А в каком колледже ты учишься? Ч: ТСЭК К: Я знаю колледж ТСЭК. В нем училось много талантливых ребят! Ты знаешь, сколько лет твоему колледжу, Николай? Ч: 28 К: Значит скоро у колледжа ТСЭК будет юбилей – 30 лет. Поздравляю тебя, Николай, с будущим юбилеем Надеюсь, что ты будешь вспоминать о ТСЭК |
Вариант 5 … Для времени исполь-ть вещ. число, целая часть которого – час, а дробная – минуты. | К: Здравствуй, я компьютер, а тебя как зовут? Ч: Николай К: Приятно познакомиться, Николай. Сколько пар у вас обычно бывает? Ч: 4 К: Николай, а на какой улице ты живешь? Ч: Ленина К: Это очень красивая улица Ленина Во сколько ты выходишь из дома, если идешь к первой паре? Ч: 7.15 К: Значит на дорогу у тебя уходит 45 минут Надеюсь, ты не будешь долго ждать автобус, Николай, на улице Ленина |
