Урок 4. Выводим на экран текст программы hello
В конце второго урока вы получили задание написать программу, которая выведет на экран текст программы hello.
Этот урок мы начнем с решения этой задачи.
1 program helloProg; 2 3 uses 4 Crt; 5 6 begin 7 ClrScr; 8 9 Writeln( 'program hello;' ); 10 Writeln; 11 Writeln( 'begin' ); 12 Writeln( ' Writeln( ''Привет!'' );' ); 13 Writeln( 'end.' ); 14 end.
Для удобства обсуждения я пронумеровал каждую строку программы. На всякий случай уточню, при наборе текста программы в редакторе Free Pascal набирать эти номера не нужно:
Запустите программу (Ctrl + F9 или через меню Run | Run) и посмотрите на результат (Alt + F5):
Разберем построчно текст нашей программы.
(Чтобы вам не приходилось двигать страницу вверх-вниз — от комментариев к программе и назад, я буду повторять текст программы небольшими кусками в процессе комментирования).
1 program helloProg; 2 3 uses 4 Crt; 5 6 begin 7 ClrScr; 8
1. Программу мы назвали helloProg.
2, 5, 8. Пустые строки в программе, с точки зрения её выполнения, никакой роли не играют, а нужны лишь для улучшения восприятия программы человеком. О том, почему так важен внешний вид программы, мы еще поговорим отдельно.
3-4. Т. к. по заданию текст программы hello надо вывести на чистый экран, то нам понадобится процедура ClrScr , с помощью которой можно очистить экран. Чтобы эта процедура работала, надо подключить к программе модуль Crt , в котором она реализована. Что мы и сделали, добавив строку « uses Crt; ».
6. С этого begin начинается основное тело нашей программы.
7. Очищаем экран с помощью процедуры ClrScr .
Далее мы пишем команды, которые будут выводить текст программы hello. Напомню, как выглядит этот текст:
program hello; begin Writeln( 'Привет!' ); end.
Именно этот текст мы и должны будем получить в окне результатов после запуска нашей программы helloProg.
Вернемся к нашей программе:
9 Writeln( 'program hello;' ); 10 Writeln; 11 Writeln( 'begin' ); 12 Writeln( ' Writeln( ''Привет!'' );' ); 13 Writeln( 'end.' ); 14 end.
9. Writeln( ‘program hello;’ ) — выводит первую строку программы hello.
10. Writeln — выводит пустую строку. Кстати, мы могли бы написать и Writeln( » ) , т. е. открыть одинарную кавычку и тут же её закрыть — эффект был бы тот же, т. к. » — это пустая строка.
11, 13. Writeln( ‘begin’ ) и Writeln( ‘end’ ) — выводят соответственно begin и end программы hello.
12. Writeln( ‘ Writeln( »Привет!» );’ ) — самая сложная строка, которую мы разберем ниже подробнее.
14. end — конец нашей программы.
Разберем теперь подробнее строку
12 Writeln( ' Writeln( ''Привет!'' );' )
Чтобы было легче разобраться в данной строке, рассмотрим её с точки зрения набора. Как правильно набирать данную строку в редакторе? Следующие строки иллюстрируют как должна меняться 12-я строка в процессе её набора.
12 Writeln(); 12 Writeln( '' ); 12 Writeln( ' Writeln();' ); 12 Writeln( ' Writeln( '''' );' ); 12 Writeln( ' Writeln( ''Привет!'' );' );
Теперь усложним задачу. Выведем программу hello на экран так, как она выглядит в нашем редакторе Free Pascal:
Что я имею в виду? Посмотрите внимательно. Программа в редакторе отображается на синем фоне. Ключевые слова program , begin и end выводятся белым цветом, название программы ( hello ) и процедуры Writeln — желтым, строка ‘Привет!’ — светло-сине-зеленым.
Следующая программа выполняет поставленную задачу:
program helloColor; uses Crt; begin TextBackground( Blue ); ClrScr; TextColor( White ); Write( 'program ' ); TextColor( Yellow ); Writeln( 'hello;' ); Writeln; TextColor( White ); Writeln( 'begin' ); TextColor( Yellow ); Write( ' Writeln( ' ); TextColor( LightCyan ); Write( '''Привет!''' ); TextColor( Yellow ); Writeln( ' );' ); TextColor( White ); Writeln( 'end.' ); end.
Запустите программу (Ctrl + F9) и посмотрите на результат (Alt + F5):
Будьте внимательны: это не окно редактора, а окно, в котором выводятся результаты работы программы, по нажатию Alt + F5.
Разберем саму программу. В листинге программы helloColor (листинг — это текст программы) мы видим новые процедуры:
TextBackground — процедура, которая устанавливает заданный цвет для фона текста.
TextColor — процедура, которая устанавливает заданный цвет для текста.
Каждая из перечисленных процедур принимает в качестве входного параметра цвет. Цвета кодируются в Паскале с помощью чисел. Например, 0 — это черный цвет. И если вы хотите установить в качестве фона черный цвет, то нужно написать:
А если вам нужен белый фон, то:
Ниже вы можете увидеть какие числа каким цветам соответствуют:
| 0 | Черный |
| 1 | Синий |
| 2 | Зелёный |
| 3 | Сине-зелёный |
| 4 | Красный |
| 5 | Пурпурный |
| 6 | Коричневый |
| 7 | Светло-серый |
| 8 | Тёмно-коричневый |
| 9 | Голубой |
| 10 | Светло-зелёный |
| 11 | Светло-сине-зелёный |
| 12 | Светло-красный |
| 13 | Светло-пурпурный |
| 14 | Жёлтый |
| 15 | Белый |
Очевидно, что запомнить для каждого цвета его номер очень непросто. Поэтому модуль Crt определяет целый ряд констант, кодирующих вышеуказанные цвета:
const Black = 0; < черный >Blue = 1; < синий >Green = 2; < зелёный >Cyan = 3; < сине-зелёный >Red = 4; < красный >Magenta = 5; < пурпурный >Brown = 6; < коричневый >LightGray = 7; < светло-серый >DarkGray = 8; < тёмно-коричневый >LightBlue = 9; < голубой >LightGreen = 10; < светло-зелёный >LightCyan = 11; < светло-сине-зелёный >LightRed = 12; < светло-красный >LightMagenta = 13; < светло-пурпурный >Yellow = 14; < желтый >White = 15;
В уроке 3 мы с вами уже познакомились с использованием констант. Там мы вводили строковую константу (Name), чтобы упростить в будущем модификацию (изменение) программы. Когда нам нужно было получить письмо для другого адресата, мы должны были изменить программу только в одном месте: там, где определялось значение константы (Name). Здесь же введение числовых констант решает другую задачу.
Во-первых, наша программа становится более понятной. Попробуйте с ходу понять, какой цвет фона будет установлен командой TextBackground( 9 ) . Сравните эту команду с командой, которая использует числовую константу: TextBackground( LightBlue ) . В последнем случае строка в переводе с английского читается как ЦветФонаТекста( голубой ) .
Во-вторых, программу становится проще писать: легче написать TextBackground( Yellow ) , чтобы установить желтый цвет фона, чем вспомнить число, которое соответствует желтому цвету: TextBackground( 14 ) .
Если коротко, то использование числовых констант вместо чисел даёт два преимущества: 1) программу проще писать; и 2) программу проще читать. Помимо этого, использование констант уменьшает вероятность совершения ошибки. Например, печатая TextBackground( 14 ) можно ввести по ошибке другое число, например, 13 , или 15 (такое бывает, когда промахиваются клавишей и вместо требуемой клавиши нажимают соседнюю). Если же вы напишете вместо Yellow слово Yelloq ( q находится рядом с w ), то при запуске программы компилятор сообщит вам, что не знает такого идентификатора как Yelloq .
Использование program, begin…end, write, readln, Uses Crt, Clrscr
В этом уроке мы напишем самую простую программу, состоящую всего из пяти строк. Эта программа будет выводить сообщение на экран. Для написания программы нам необходимо знать как работают операторы Write, Readln, а также понять для чего нужны зарезервированные в Паскаль слова Program, Begin, End.
В строке №1 записывается заголовок программы. Все программы, написанные на языке Pascal, начинаются со служебного слова program. Слово program зарезервировано в Pascal, т. е. оно может использоваться только для объявления имени программы. Далее, через пробел записывается название программы, которое мы придумываем сами. Для примера назовем нашу первую программу «number1». В конце первой строки ставится точка с запятой.
Строка №2. Тело программы начинается с зарезервированного в Pascal слова begin. После него не ставится точка с запятой. Заканчивается программа зарезервированным словом end. (строка №5). После слова end ставится точка. Конструкция begin…end является разделом операторов. Внутри этого раздела находятся операторы, которые будут выполняться программой. В любой программе должны присутствовать слова begin…end.
В строке №3 записывается первый оператор, который будет выполнять программа. Оператор Write служит для вывода на экран какого-либо сообщения. Текст этого сообщения записывается после слова Write, заключается в круглые скобки и в апострофы. В конце обязательна точка с запятой (все операторы в программе должны отделяться друг от друга точкой с запятой). Таким образом, в результате работы оператора Write на экран будет выведено сообщение «Привет.»
В строке №4 записывается оператор readln. Этот оператор служит для задержки экрана, чтобы мы могли увидеть результаты выполнения программы на экране. Если его не использовать, то после того как программа будет выполнена экран сразу свернется и мы не успеем увидеть выводимое на экран сообщение. Кстати, оператор Readln можно не использовать. А для того чтобы увидеть результаты выполнения программы можно нажать Alt+F5. После оператора Readln у нас не стоит точка с запятой т. к. далее идет оператор end. (перед End. точка с запятой не обязательна). Теперь наберем нашу программу в Паскале.
Сохраним, нажав F2 (или в командной строке File-Save) и запустим ее, нажав Ctrl+F9 (либо в панели команд Run-Run).
Получим следующий результат.
Самая нижняя строка и есть наш результат.
Теперь нажмем Enter (для завершения выполнения программы) и еще раз запустим программу.
Получим следующий результат.
Этим примером я хочу показать Вам, что каждый раз при запуске программы старые результаты программы тоже будут выводиться на экран. Для того чтобы этого избежать, используется оператор очистки экрана clrscr (сокращенно от англ. Clear Screen (очистить экран)), который ставится вначале программы после слова begin. Для того чтобы этот оператор работал необходимо подключить модуль CRT с помощью команды USES.
Программа будет выглядеть так:
Заметьте, что после Uses Crt и после Clrscr ставится точка с запятой.
После запуска (ctrl+F9) окно вывода сообщения будет иметь вид:
Дополнение к материалу.
1. Программа, запущенная в Free Pascal обрабатывается какое-то количество времени. Поэтому после запуска необходимо подождать несколько секунд. Вы увидите сообщение о том, что выполняется программа, а через несколько секунд (1-20) увидите результат выполнения программы.
2. При запуске программ, которые должны выводить на экран текст на русском языке может возникнуть проблема с кодировкой. В консольном окне вы увидите непонятные символы. Для того чтобы этого избежать небходимо кликнуть правой кнопкой мыши по верхней части консольного окна (там, где написано C:\FPC\2.2.2\bin\i386-win32\fp. exe), выбрать «Свойства» и перейти на вкладку «Шрифт». Здесь выбираем «точечные шрифты» и нажимаем Ok.
3. Компилятору Pascal абсолютно безразлично какими буквами Вы будете набирать программу, заглавными или строчными, т. е. регистр при наборе программ роли не играет.
4. Имя программы (в нашем случае «number1») не играет какой-либо роли в программе, поэтому не обязательно объявлять имя программы с помощью слова «Program». Таким образом, первую строку программы можно не писать и это никак не повлияет на работу программы.
5. Как уже было сказано, слово «Program» является зарезервированным словом в Pascal. Зарезервированные слова можно использовать только по их прямому назначению. При наборе программ в редакторе Pascal все зарезервированные слова подсвечиваются белым цветом. Название программы «number1» является идентификатором (именем). Идентификаторы – это последовательности символов, которые придумывает сам программист. В нашем примере нам необходимо было придумать название программы. При написании идентификаторов используются определенные правила:
- Идентификатор начинается с буквы, или знака подчеркивания.
- Содержит только буквы, цифры или знак подчеркивания.
- Между двумя идентификаторами должен стоять разделитель.
- Максимальная длина 127 символов. Все символы значимы.
- Идентификатор не может повторять зарезервированное слово.
- Write(«Ведите число лет, которое было бы Сереже «); readln(a)
- Урок 1. Первая программа на языке Паскаль
- Урок 3. Pascal ABC. Основы алгоритмизации и программирования
- РТПЗТБННБ РТБЛФЙЮЕУЛЙИ ЪБОСФЙК РП ЛХТУХ: «йОЖПТНБФЙЛБ» ( Pascal ) ззж
Помогите, пожалуйста, решить тест (это паскаль).
1.Целочисленным переменным a, b, c надо присвоить соответственно значения 1, 2 и 3. Какой оператор ввода соответствует входному потоку 2 1 3?
1)read (b, a, c);
2)read (a, b, c);
3)readln (a, b, c);
4)read b, a, c;
2.Что будет выведено на экран после выполнения следующей программы: begin writeln (‘Hello, ’);write (‘World!’); end.
1) ‘Hello,’
‘World!’
2) Hello,
World!
3)’Hello,» World!’
4)Hello,World!
3.Оператором ввода данных является:
1)Read
2)Write
3)Writeln
4.Переменной a присвоено значение 5. Что будет выведено на экран монитора в результате выполнения оператора Write(´a´);
1)а
2)а=5
3)5
5.Укажите операторы вывода данных:
1)Write
2)Readln
3)Read
4)Writeln
Голосование за лучший ответ
8_3.2. Информатика. Организация ввода и вывода данных
Внимание! Все тесты в этом разделе разработаны пользователями сайта для собственного использования. Администрация сайта не проверяет возможные ошибки, которые могут встретиться в тестах.
8_3.2. Информатика. Организация ввода и вывода данных
Система оценки: 5 балльная
Список вопросов теста
Вопрос 1
Что будет выведено на экран после выполнения следующей программы:
var a,s:real;
begin
a: = 3;
s: = a*a;
writeln(‘s=’, s:3:1)
end.
Варианты ответов
Вопрос 2
Операторы ввода данных:
Варианты ответов
Вопрос 3
Переменной a присвоено значение 5.
Установите соответствие:
Варианты ответов
Вопрос 4
Дан фрагмент программы:
s:=114.34384
writeln (s:6:2);
После его выполнения на экран будет выведено:
Варианты ответов
- 114.34
- s:=114.34384
- s:=114.34
- 114.34384
Вопрос 5
С помощью какой команды нельзя присвоить значение переменной a?
Варианты ответов
- С помощью команды присваивания
- С помощью команды read(a)
- С помощью команды write(a)
Вопрос 6
Целочисленным переменным a, b, c надо присвоить соответственно значения 1, 2 и 3. Какой оператор ввода соответствует входному потоку 2 1 3?
Варианты ответов
- read (b, a, c)
- readln (a, b, c)
- read (a, b, c)
- read b, a, c
Вопрос 7
Дан фрагмент программы:
x:=52;
write ( ‘Ответ: ‘, х: 2,’км/ч’);
После его выполнения на экран будет выведено:
Варианты ответов
- Ответ: x:2 км/ч
- Ответ: 52км/ч
- Ответ: км/ч
- Ответ: 5.0 км/ч
Вопрос 8
Укажите оператор вывода данных:
Варианты ответов
Вопрос 9
Что будет выведено на экран после выполнения следующей программы:
begin
writeln (‘Hello, ‘);
write (‘World!’)
end.
Варианты ответов
- ‘Hello, »World!’
- Hello,World!
- Hello, World!
- ‘Hello, ‘ ‘World!’
Вопрос 10
Дана программа:
var x,y:integer;
begin
x:=10;
y:=x+1;
x:=y-x;
write (x,y)
end.
После её выполнения на экран будет выведено: