Паскаль. паскаль. Основы алгоритмизации и программирования на языке pascal

• Название: Основы алгоритмизации и программирования на языке pascal
• Анкор: Паскаль
• Дата: 30.06.2022
• Размер: 2.09 Mb.
• Имя файла: паскаль.ppt
• Тип: Лекция; #620848
• страница: 4 из 12

Ввод данных

Через функцию ReadKey для чтения первого байта из очереди нажатий на клавишу.
Через процедуру ввода Read(Ln)
3. Через оператор присваивания :=.


Тип переменной должен совпадать с типом вводимых значений для этой переменной.


Ввод данных с клавиатуры в текстовом режиме:





Ввод данных с клавиатуры
непосредственно в программе:

Операторы присваивания

Для задания значения переменной необходимо воспользоваться оператором присваивания :=


<Переменная>:=<Значение>;


В переменную (целочисленную)
с именем А заносится значение 3.


Синтаксис:

Вывод информации на экран

«Пустой» оператор WriteLn добавляет пустую строку.


Вывод информации на монитор обеспечивает процедура вывода: Write или WriteLn.


Синтаксис:
Write (N1, N2, … Nn);
N1, N2, … Nn — переменные (целые, вещественные, строковые).
WriteLn — перемещает курсор на следующую строку.

Форматы вывода

Значение	Выражение	Результат
5671	Write(I,I); (вывод на экран содержимого ячейки I два раза)	56715671
134	Write(I:6); (выводит значение I в крайние правые позиции полей шириной равной 6)	- - -134
312	Write(I+I:3); (cодержимое I удваивается, и результат выводится c 3 позиции)	624
7,154Е+2	Write(I:6:1); (6 — задаёт количество позиций под всё число, включая фиксированную точку; 1 — задаёт количество позиций под дробную часть числа)	-715.4
	Write(‘Сумма=’); (текст обрамляется апострофами)	Сумма =

Вывод в произвольное место экрана

Синтаксис:
GotoXY(X,Y:Integer);
X, Y — координата знако-места на экране.


Program My_program;
{Подключение модуля}
Uses Crt;
Begin
{Очистка экрана}
ClrScr;
{Вывод данных}
GotoXY(1, 1); write('▒');
GotoXY(80, 1); write('▒');
GotoXY(1, 25); write('▒');
GotoXY(80, 25); write('▒');
{Задержка экрана}
ReadKey;
End.


Программа выводит по углам экрана символ «▒» (ASCII-код 177).


80 пикс.


25 пикс.


Система координат в текстовом режиме

Вывод в цвете

TextColor(Color);
Определяет цвет символов.


TextBackground(Color);
Определяет цвет знако-места.


Program MyProgram;
Uses Crt;
Begin
TextColor(Red);
TextBackGround(Blue);
Write('На дворе ');
TextColor(White);
Write('трава, ');
TextColor(Green);
TextBackGround(Yellow);
Write('на траве ');
TextBackGround(Magenta);
Write('дрова.');
End.


0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15





Константы цвета модуля CRT


Black – чёрный
Blue – синий
Green – зелёный
Cyan – циановый
Red – красный
Magenta – сиреневый
Brown – коричневый
LightGray – светло-серый
DarkGray – тёмно-серый
LightBlue – голубой
LightGreen – светло-зелёный
LightCyan – светло-циановый
LightRed – розовый
LightMagenta – светло-сиреневый
Yellow – жёлтый
White – белый