Лекции по Turbo Pascal (стр. 4 )

Генерация случайных чисел:

Randomize – установка датчика случайных чисел в исходное состояние;

Random - формирование случайного дробного числа из диапазона от 0 до 1.

Примеры получения дробных случайных чисел:

a:=Random; 0<a<1

x:=Random+10; 10<x<11

y:=5*Random; 0<y<5

c:=10*Random-5; -5<c<5

b:=7*Random-3;

-3<b<4

Random (n) – формирование случайного целого числа из диапазона от 0 до n-1, где n – натуральное число.

Примеры получения целых случайных чисел:

a:=Random(3); 0, 1, 2

x:=Random(10); 0, 1, 2,…,9

y:=Random(5)+3; 3, 4, 5,…,7

c:=Random(8)-5; -5, -4,…,2

Смоделировать 5-кратное бросание игрального кубика:

randomize;

for i=1 to 5 do begin

x:=random(6)+1;

writeln(i,‘ бросок: ',x,’очков’);

end;

Смоделировать 10-кратное бросание монеты:

randomize;

for i=1 to 10 do

if random(2)=0

then writeln(’орел’)

else writeln(’решка’);

Приоритетность выполнения действий:

1.Выражение в скобках

2.Функции

3.Знак числа (+,-), not, @

4.*, /, div, mod, and, shl, shr

5.+, -, or, xor

6.=, <>, <, >, <=, >=, in

Задание: Составить программу, которая по введенным значениям чисел а и b, высчитывала бы и выводила бы на экран значения следующих функций:

a)  y = 7a2 – 3a + 6;

b)  ;

c)  y = a3 – 2,5ab + 1,78a2 – 12,5b + 1;

d)  y = 3,56(a + b)3 – 5,8b2 + 3,8a – 1,5;

e)  ;

f)  ;

g)  .

Вывод на экран организовать в следующем виде: у1(1.22, 0.45)=…и т. д.

Контрольная работа № 1 по теме: «Линейные алгоритмы. Деление нацело».

Стандартный модуль CRT.

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

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

Некоторые процедуры стандартного модуля CRT:

Clrscr - экран очищается текущим фоновым цветом, при этом курсор устанавливается в левый верхний угол экрана;

TextColor (c) – устанавливает цвет символов, где с – название или номер цвета: 0-черный, 1 – синий, 2 – зеленый, 3 – голубой, 4 – красный, 5 – фиолетовый, 6 – оранжевый, 7 – серый, 8 – темно-серый, 9 – светло-синий, 10 – светло-зеленый, 11 – светло-голубой, 12 – светло-красный, 13 – светло-фиолетовый, 14 – желтый, 15 – белый.

TextBackGround (с) – устанавливает цвет фона, где с – название или номер цвета: 0-черный, 1 – синий, 2 – зеленый, 3 – голубой, 4 – красный, 5 – фиолетовый, 6 – оранжевый, 7 – серый.

GotoXY (x, y) – устанавливает курсор в позицию экрана с координатами х и у, где х – номер столбца позиции (1..80), у – номер строки позиции (1..25).

TextMode (r) – установка режима экрана, где r – это номер текстового режима, который может принимать следующие значения: 1 - 40´25; 3 - 80´25; 257 - 40´50; 259 - 80´50.

Delay (ms) - задержка выполнения программы (миллисекунды);

Sound (f) – включение динамика, где f - это частота сигнала (Гц);

NoSound – отключение динамика;

Значение частот:

Гамма:

Uses Crt;

Var i : Integer;

Const f : array[1..7] of word = (523, 587, 659, 698, 783, 880, 998);

Begin

For i:=1 to 7 do begin

Sound(f[i]); delay(100);

end;

NoSound;

End.

ClrEol - очищается строка от текущей позиции до конца строки без изменения позиции курсора;

DelLine - удаляется строка, на которой находится курсор, и все строки, расположенные ниже, смещаются на позицию вверх;

InsLine - вставляется пустая строка, начиная с позиции, где находится курсор;

WhereX – функция, определяющая координату х курсора, результат возвращается типа integer;

WhereY– функция, определяющая координату y курсора, результат возвращается типа integer;

Window (x1,y1,x2,y2) – задание текстового окна, после задания окна все координаты задаются относительно этого активного окна;

KeyPressed – функция проверки буфера клавиатуры, результат булевского типа: True – если в буфере клавиатуры есть символы и False – если буфер клавиатуры пуст;

Примеры использования функции KeyPressed:

Repeat

<Операторы>

Until KeyPressed;

или:

While Not KeyPressed

begin

<Операторы>

end;

ReadKey – чтение первого байта (символа) из буфера клавиатуры. Если буфер клавиатуры пуст, то ожидание нажатия клавиш символа из буфера клавиатуры, результат функции должен быть типа char;

Пример фрагмента программы для чтения расширенного кода:

Key:=ReadKey; {чтение первого байта (#0)}

If Key=#0 Then

Key:=ReadKey; {чтение второго байта}

Коды некоторых клавиш:

Enter - 13 - 0 75

Esc - 27 ­ - 0 72

BackSpace - 8 ® - 0 77

Space - 32 ¯ - 0 80

Tab - 9 Home - 0 71

a - 97 End - 0 79

A - 65 Insert - 0 82

Пример фрагмента программы управления движением:

Repeat

Key:=ReadKey;

If Key=#0 Then Key:=ReadKey;

Case Key of

75 : Left;

77 : Right;

72 : Up;

80 : Down;

End;

Until Key=#27;

Highvideo – символы выводятся на экран с повышенной яркостью;

Lowvideo – символы выводятся на экран с пониженной яркостью.

Задание: Составить программу вывода на экран поздравления друга с Днем Рождения (использовать разумно разные цвета и местоположение текста на экране).

Самостоятельная работа по теме: «Модуль CRT».

Условия в Turbo Pascal. Виды условий.

Алгоритмы решения большинства задач не являются последовательными. Действия, которые необходимо выполнить, могут зависеть от определенного условия, например исходных данных, или результатов, полученных во время выполнения программы. Например, если нам необходимо переменной max присвоить значение большей из переменных х1 или х2, мы должны определить сначала какое число больше а уже после этого заносить его значение в переменную max.

В языке Pascal условие – это выражение логического типа (Boolean), которое может принимать одно из двух значений: истина или ложь.

В Pascal имеется шесть операторов, позволяющих сравнивать между собой значения числовых переменных, а также значения переменной и константу (число).

Использование операторов сравнения позволяет записывать простые условия. Например, х1>x2 или х1=х2, или х1<>х2 и т. п.

Из простых условий, которые являются выражениями логического типа, можно строить сложные условия с применением к ним, как к операндам, логических операторов:

Not – отрицание;

And – логическое «и»;

Or – логическое «или».

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

Например, нам необходимо из трех чисел выбрать большее, можно составить такое условие: (x>y) and (x>z), или условие попадания точки в интервал : будет выглядеть так:

(х<= -3) or (x>=7). Возможно составление и более сложных условий: (a=5) or ((a>10) and (a<1)).

Итак, следовательно, условия могут быть либо простыми, либо составными, полученными из простых с помощью логических связок.

Условный оператор.

В Turbo Pascal включены два условных оператора – if и case (хотя исторически так сложилось что последний называется оператором выбора), каждый из которых может быть записан в двух формах: полной и неполной.

Синтаксис инструкции IF:

If условие

then

begin

{инструкции выполняемые, если условие истинно};

end

else

begin

{инструкции выполняемые, если условие ложно};

end;

Инструкция if выполняется следующим образом:

1.  вычисляется значение условия (выражение логического типа).

2.  Если значение выражения условия равно true, то выполняются инструкции, следующие за словом then. Если значение выражения условия равно false, то выполняются инструкции, следующие за словом else.

Примечания:

1.  Перед ключевым словом else символ «;» никогда не ставится.

2.  Если при выполнении (невыполнении) условия надо выполнить только одну инструкцию, то слова begin и end после then (else) могут быть опущены.

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

if x>y then writeln (‘большее из данных двух чисел ’, x)

else writeln ( ‘большее из данных двух чисел ’,y);

Если какое-либо действие нужно выполнить только при выполнении условия, инструкция if может быть записана так:

If условие

then

begin

{инструкции выполняемые, если условие истинно};

end;

Пример: вычислить значение функции y=1/x. Фрагмент программы будет выглядеть так:

If x<>0 then y:=1/x;

Иногда возникает необходимость использования вложенных условных операторов.

Пример: С клавиатуры задаются три числа, необходимо вывести на экран значение большего из этих чисел. Фрагмент такой программы будет выглядеть так:

if x>y

then begin

if x>z then writeln (‘большее из данных чисел ’, x)

else writeln ( ‘большее из данных чисел ’,z);

end

else writeln (‘большее из данных чисел ’, y);

Либо можно построить несколько по другому, например так:

if (x>y) and (x>z)