3. Пример программы на использование в Turbo Pascal типа данных Boolean

Программа

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

uses crt; Var a, b : boolean; Begin clrscr; writeln('Логический тип данных Boolean'); writeln; a:=true; b:=false; writeln('a=',a,' b=',b); writeln; writeln('a=',ord(a),' b=',ord(b)); writeln; readln end.

1. Аббревиатура CRT будет расшифровываться по-русски как «электронно-лучевая трубка». И действительно, в модуле CRT реализованы специальные процедуры и функции для работы с текстовой информацией на дисплее, позволяющие: управлять текстовыми режимами, организовывать окна вывода на экран, настраивать цвета символов на экране, управлять курсором. Его стандартное местонахождение – системная библиотека TURBO.TPL. Для подключения модуля достаточно включить его в директиву USES (использовать) в самом начале программы: USES CRT; {означает: модуль CRT подключен } При подключении модуля CRT исключаются медленная функция MS DOS и повышается скорость вывода информации на дисплей. 2. ClrScr-сокращенная запись функции реализованной в модуле CRT. Она выполняет процедуру очистки текущего окна на экране.

11. Содержание занятия.

11.1. Самостоятельная работа.

Задание

1. Вызвать Turbo Pascal , набрать вышеуказанные программы и провести анализ

2. Наберите программу, задайте разные значения переменной, например, 1,5 и т.д. Обратите внимание на результат. Измените в программе знак < на знак > и задайте те же значения. Сравните полученные результаты.

program aba;

var x: real;

t: boolean; begin read (x);t:=x<round(x); { арифметическая функция round(x) - округление числа} writeln(t); end

3. Наберите программу, дайте для а и в разные значения ,обратите внимание на результат.

Program a1;

Var x,y:Boolean;

A,b:integer;

Begin

Writeln(‘a,b ввести’);

Read(a,b);

X:=true;

Y:=false;

If a>b then writeln (‘a>b-‘,x) else writeln (‘a>b-‘,y);

Readln;

End.

4. Вычислить значения логических выражений:

а) К mod 7=K div 5-1 при К=15; в) not odd(n)при n=0; д) (x*y<>0) and (y>x) при х=2, y=l;

б) odd(trunc(10*P)) при Р=0.182; г) t and (P mod 3=0) при t=true, P=10101; e) a or not b при a=false, b=true.

5. Если a=true и х=1, то какое значение получит логическая переменная d после выполнения оператора присваивания: a) d:=x<2; б) d:=not a or odd(x);

6. При подключении модуля CRT исключаются медленная функция MS DOS и повышается скорость вывода информации на дисплей. Понятно, что чем «медленнее» работает компьютер, тем заметнее будет эффект от подключения модуля CRT. Эту разницу можно увидеть: для чего просмотрите пример двух программ (без запуска)

Пример:

{Программа использует стандартный вывод}

PROGRAM Standart Output;

VAR i : Byte; {счетчик цикла }

for i : = 1 to 100 do Write (‘* Турбо Паскаль*’);

WriteLn

END.

{Программа использует средства модуля CRT}

PROGRAM CRT_Output;

USES CRT;

VAR i : Byte;

BEGIN

for i : = 1 to 100 do Write (‘* Турбо Паскаль*’);

WriteLn

END.