36582

Простые операторы управления вводом-выводом в текстовом режиме

Контрольная

Информатика, кибернетика и программирование

Кроме ввода и вывода потока символов более удобный пользовательский интерфейс может быть обеспечен при использовании вводавывода в текстовом режиме экрана. В Турбо Паскале имеются средства управления вводом с клавиатуры управления курсором вывода на экран управления цветом фона экрана и выводимых символов яркостью символов и ряд других функций в том числе управления звуковым генератором. Установка цвета фона цвета символов и очистка экрана. Модуль CRT допускает использовать в текстовом режиме экрана 16 цветов задаваемых стандартными...

Русский

2013-09-22

32 KB

2 чел.

Простые операторы управления вводом-выводом в текстовом режиме.

Кроме ввода и вывода потока символов более удобный пользовательский интерфейс может быть обеспечен при использовании ввода-вывода в текстовом режиме экрана. Экранный ввод-вывод рассматривает экран как прямоугольное окно стандартного размера 25х80 (25 строк по 80 символов в строке). Все позиции символов характеризуются своими координатами: верхний левый угол имеет координаты 1,1; правый нижний угол - координаты 80, 25.

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

Все эти средства сосредоточены в стандартном модуле Турбо Паскаля - модуле CRT. Мы рассмотрим здесь лишь простейшие средства экранного ввода-вывода, которые будем использовать уже в простых программах, отложив более подробное изучение модуля CRT на лекции, посвященные модулям Турбо Паскаля.

Для возможности доступа к средствам управления экранным вводом-выводом в программе на Турбо Паскале необходимо первой строкой раздела описаний программы записать ссылку на использование модуля CRT в форме:

uses CRT;

где: uses - ключевое слово, означающее подключение модуля к программе.

Установка цвета фона, цвета символов и очистка экрана.

Модуль CRT допускает использовать в текстовом режиме экрана 16 цветов, задаваемых стандартными константами цветов от black до white (это имена констант, а сами константы являются целыми числами от 0 до 15, так black соответствует константе 0, а white - константе 15). Эти константы представлены следующей таблицей:

Для цвета фона можно использовать первые 8 цветов, а для цвета символов - все 16 цветов. Эти цвета устанавливаются следующими операторами:

TextBackground( < цвет> );

TextColor(< цвет> );

где: < цвет> - константа цвета.

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

Часто для установки цвета фона на экране используют оператор очистки экрана. Его действие эквивалентно заполнению всего экрана пробелами (с предварительно установленным цветом фона) и установке курсора в верхний левый угол экрана (с координатами 1,1). Этот оператор очистки экрана имеет название ClrScr. Оператор стирает имеющуюся ранее информацию и подготавливает вывод в верхнюю строку экрана (в отличие от потокового вывода, выполняемого всегда в нижнюю строку экрана). Ввод и вывод при этом могут выполняться теми же операторами read, readln, wrire, writeln.

Установка окон на текстовом экране.

Для установки окна предусмотрен оператор

window (x1,y1,x2,y2);

где: x1,y1,x2,y2 - координаты левого верхнего и правого нижнего угла окна.

При установке окна просто соответствующая площадь экрана резервируется для последующего ввода-вывода. Никакого стирания ранее выведенной информации не происходит, не происходит также и обрамления окна рамками (для этого необходимо использовать программу обрамления, которая не предусмотрена в составе средств CRT).

После установки окна все последующие операторы ввода-вывода, в том числе и операторы CRT относятся только к этому окну до тех пор, пока не будет открыто новое окно (сам оператор window относится к полному экрану). Полный экран можно рассматривать как окно, устанавливаемое оператором window (1,1,80,25).

Замечание Если в операторе window указать координаты окна вне экрана, выполнение оператора window будет проигнорировано без какого либо системного сообщения!

Задача 4.2.6(20)

program alex20;

type mas=array[1..3,1..4]of integer;

var a,b:mas;

i,j,minj:integer;

procedure proc(x:mas;k,m:integer;var l:integer);

var i,j,n:integer;

min:real;

sr:array[1..4]of real;

begin

for j:=1 to m do

begin

sr[j]:=0;

for i:=1 to k do

sr[j]:=sr[j]+x[i,j];

sr[j]:=sr[j]/m;

end;

min:=sr[1];

l:=1;

for i:=2 to m do

if sr[i]<min then begin

min:=sr[i];

l:=i;

end;

end;

begin

for i:=1 to 2 do

for j:=1 to 4 do

read(a[i,j]);

writeln;

for i:=1 to 3 do

for j:=1 to 3 do

read(b[i,j]);

proc(a,2,4,minj);

writeln('v 1 matrice ',minj,' stolbec');

proc(b,3,3,minj);

writeln('vo 2 matrice ',minj,' stolbec');

readln;

readln;

end.


 

А также другие работы, которые могут Вас заинтересовать

35234. Метод Рунге-Кутта вирішення задачі Коші. Складання алгоритму 37.5 KB
  Навчитися вирішувати задачу Коші методом Рунге-Кутта; скласти алгоритм.
35235. Тема: Екстраполяційний метод Адамса розвязання задачі Коші. 42 KB
  h double Fdouble x double y { return cos2xy1.5xy; } void min {int n; double hb; doublek=new double [4]; doubleq=new double[n1]; doubledq1=new double[n1]; doubledq2=new double[n1]; doubledq3=new double[n1]; doublex=new double[n1]; doubley=new double[n1]; cout Vvedite bh endl; cin ; cin b; cin h; cout Vvedite y[0] endl; cin y[0]; n=b h; x[0]=; cout x y ; cout endl; cout ; cout endl; for int i=0; i =2; i { k[0]=hFx[i]y[i]; k[1]=hFx[i]h 2y[i]k[0] 2;...
35236. Формули Н’ютона через кінцеві різниці 40 KB
  Формули Нютона через кінцеві різниці Мета. Навчитися обчислити значення функції при даному значенні аргумента використовуючи формули Нютона через кінцеві різниці.
35237. Настройка компютерної системи засобами BIOS SETUP 36.5 KB
  Включіть ПК, після появи службової інформації на екрані дисплея натисніть клавішу DELETE для запуску програми BIOS SETUP.
35238. Побудова багаточлена Лагранжа. Складання алгоритму 51 KB
  Навчитися будувати багаточлен Лагранжа, скласти алгоритм.