Программирование на языке Turbo Pascal

If A=True then y:=1 else y:=1/x;


Пример использования логических переменных:

Составить программу, которая выдает на экран True, если заданная своими координатами точка лежит внутри  выделенной области:

Результат работы программы:



Uses crt;

Var x,y:integer; L:Boolean;

Begin

Write(‘введите Х и У ->’);

Readln(x,y);

L:=((x<=0) and (Sqr(x)+Sqr(y)<=9) and (y>=-x-3)) or ((Sqr(x)+Sqr(y)<=25) and (x>0));

Writeln(‘Точка лежит в задвнной области? - ’,L);

readkey;

end.

введите Х и У ->1 1

Точка лежит в задвнной области? - True

Перечисляемый тип – это описание упорядоченного множества значений, задаваемых идентификаторами в круглых скобках. Переменные перечисляемого типа могут использоваться в логических выражениях или операторах присваивания и не могут использоваться в операторах ввода или вывода. Например, программа определения дня недели может выглядеть так:

PROGRAM DEMO1;

USES CRT;

   TYPE WEEK=(MONDAY, TEUSDAY, WEDNESDAY, THURSDAY, FRIDAY, SATYRDAY, SUNDAY);

    VAR DAY: WEEK;

BEGIN

   DAY:=THURSDAY;

   IF (DAY=SUNDAY) OR (DAY=SATYRDAY) THEN WRITELN(‘УИКЕНД’)

                                                                                   ELSE WRITELN(‘РАБОЧИЕ ДНИ’);

{или - IF (DAY<SATYRDAY) THEN WRITELN( ‘РАБОЧИЕ ДНИ’) ELSE WRITELN (‘УИКЕНД’);}                                                                        

READLN;

END.

Применение перечисляемых типовделает программы нагляднее.

Тип – диапазон (интервальный тип) – этот тип получается путем введения ограничения на уже определенный некоторый простой тип. Ограничения определяются заданием диапазона – минимального и максимального значений констант в этом диапазоне. Тип, из которого выбирается диапазон (отрезок), называется  базовым типом. Левая граница диапозона на должна превышать правую. Диапазоны для вещественных типов не допускаются. Например, рассмотрим  типы:

TYPE    A=10..100;

WEEK=(MONDAY, TEUSDAY, WEDNESDAY, THURSDAY, FRIDAY, SATYRDAY, SUNDAY);

WORKDAY=MONDAY..FRIDAY;


WEEKEND= SATYRDAY.. SUNDAY;

Базовый тип для диапазона А – тип INTEGER; для диапазонов WORKDAY и WEEKEND – перечисляемый тип WEEK.

Использование диапазонов позволяет более экономично распределять память, особенно в случае данных типа INTEGER. Декларация интервального типа указывает компилятору, что для переменных возможны только значения в заданном интервале, тем самым в программе автоматически организуется проверка корректности операций присвоения (см. приложение 1, СТРУКТУРА ТИПОВ ДАННЫХ).

2.      Функции, используемые для работы с порядковыми переменными.

Название функция

Назначение

Тип аргумента

Тип функции

Readkey

Ввод данных без «Эхо», т.е. программа передает значение нажатого символа без нажатия на клавишу Enter и вывода на экран вводимого символа.

Пример записи: A:=readkey;

Нет

CHAR

Pred(x)

Определение предшественника взятого символа х

Порядковый

Порядковый

Succ(x)

Определение последующего символа за  взятым символом х

Порядковый

Порядковый

Ord(x)

определяет код символа. Например, Ord(‘A’) - 65

Порядковый

Целочисленный

Chr(x)

определяет символ по коду. Например, Chr(65) - ’A’


Содержание раздела