Информатика_всем

текст

Как видно из примера, выводимый текст заключается в апострофы. Если же требуется вывести значение некоторой переменной, то необходимо указать лишь ее имя.

var x:byte;

M x:=5;

write(x);

M

Содержимое экрана:

5

Эти два способа вывода можно комбинировать так: var

x:byte;

M x:=5;

write(‘x=’,x);

M

Содержимое экрана:

x=5

В этих примерах производится вывод значенй переменных типа byte, но если выводить на экран переменную типа real (или любого типа описанного выше в одной таблице с ним), то она будет представлена на экране в экспоненциальном виде. Например:

var x:real;

M x:=5.001;

write(x);

M

Содержимое экрана:

5.00100000000000E+0000

Такая запись чисел удобна, если их значения имеют в экспоненте значения больше трех, но чаще всего в учебных задачах используют значения, для записи которых вообще нет необходимости в экспоненте. В этом случае лучше при выводе числа использовать форматирование или так называемую маску вывода: write(x:m:n).

Здесь m – количество знакомест на экране выделяемое для печати всего числа; n – количество знаков после десятичной точки (до скольких знаков число округляется). Указанное форматирование применимо только для чисел, которые имеют вещественный формат (real). Для целочисленных переменных вывод их значения следующий: write(x:m). Т.е. число знаков после запятой не указывается, поскольку их там просто нет. Рассмотрим пример вывода:

var x:real;

M x:=7.538;

write(x:6:2);

M

Содержимое экрана:

▒▒7.54

Символ «▒» обозначает пробел. В этом примере число округлено до двух знаков после десятичной точки, для него выделено на экране 6 знакомест, но т.к. оно заняло лишь 4, то оставшиеся два знакоместа слева были заполнены пробелами.

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

Для ввода значений с клавиатуры используют процедуру readLn. Она приостанавливает работу программы, ожидая ввода значения. После нажатия клавиши Enter набранное значение помещается в первую переменную указанную в качестве параметра процедуры. Далее после следующего ввода набранное значение помещается в следующую переменную и так далее. Формат у процедуры таков:

readLn(a, b, c, …);

где a, b, c – параметры ввода (переменные). Процедура readLn может быть задана без параметров, в этом случае она просто приостанавливает выполнение программы до тех пор, пока не будет нажата клавиша Enter. Здесь стоит сказать, что обычно readLn не используется сама по себе, поскольку приостанавливает работу алгоритма, ожидая нажатия клавиши. Пользователь программы, естественно, в большинстве случаев будет просто

не в курсе того, что и в какой последовательности в данный момент нужно вводить. Для внесения ясности нужно обязательно делать приглашение ко вводу, как правило, при помощи процедур write / writeLn. Потому всегда, где в блок-схемах алгоритмов идет блок ввода, подразумевается в программе наличие, как минимум пары стандартных процедур. Это, помимо, readLn, еще и предшествующий write / writeLn, выводящий комментарии к тому, что нужно ввести в данном месте. Пример записи процедуры:

ПРИМЕР

Ввести с клавиатуры значение аргумента и вычислить значение функции y = sin(x).

Program ex_IO; var

x,y:real; begin

write(‘x=’);

readLn(x);

y:=sin(x);

writeLn(‘y=’,y:6:2)

end.

Содержимое экрана:

x=–2.36 y=▒–0.70

Символом обозначено место, в котором нажата клавиша Enter.

3.6 Строковый тип данных

Как отмечалось выше, для работы с последовательностями символов используют строковый тип данных string. Pascal Отличается относительной простотой работы с этим типом данных. В Pascal существуют, прежде всего, строковые константы и строковые переменные. Любая строковая константа заключается в апострофы.

Строки в Pascal состоят не более чем из 255 символов (char), причем в нулевом байте строки содержится ее длина. Для ввода/вывода строк используют стандартные процедуры write/writeLn и readLn.

Для объявления переменной строкового типа в разделе описания нужно указать ключевое слово string. В этом случае под строку будет выделено максимально возможное количество памяти, т.е. 256 байт. Если заранее известно, что строка не будет принимать такие большие значения, то нужно пользоваться строкой ограниченного размера. Для этого пишут в квадратных скобках количество значимых символов.

ПРИМЕР var

srt1: string; str2: string[10]; str3: string[255];

Здесь переменные str1 и str2 имеют одинаковую размерность (256 байт),

апеременная str2 занимает 11 байт и может хранить 10 полезных символов.

ВPascal строки можно обрабатывать двумя способами. Первый способ предполагает строку единым неделимым объектом, а второй, соответственно относится к строке как к сложной структуре, состоящей из отдельных символов.

Первый способ весьма удобен и является отличительной чертой именно языка Pascal по сравнению, например, с C. Так, для присвоения значения строковой переменной достаточно просто записать значение, которое в нее будет помещено. Довольно легко организована операция строковой контактезации или сцепления. Это выражается, прежде всего, в том, что для string определен оператор «+».

Рассмотрим простейшую интерактивную программу.

ПРИМЕР

writeLn(‘Как Вас зовут?’); readLn(Name);

str1 := ‘Привет, ’;

str2 := ‘от Деда Мороза’;

str3 := str1 + Name + ‘, ‘ + str2 + ‘ и Снегурочки!’; writeLn(str3);

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

При работе со строкой как с массивом символов возможно прямое обращение к ее составляющим.

ПРИМЕР

str1 := ‘отдел Оптика’; str1[7] := ‘А’; str1[10] := ‘е’;

В результате слово «Оптика» поменяется на «Аптека».

Некоторые полезные функции и процедуры работы со строками представлены в Таблица 3.6.

3.7 Программирование развилок

Развилка является одной из наиболее часто употребляемых алгоритмических управляющих структур. В языке Pascal простые развилки записываются очень просто:

if условие then

управляющий оператор положительной ветви else

управляющий оператор отрицательной ветви;

Это полная развилка (обратите внимание, что перед else «;» не ставится). Неполная же развилка имеет следующий вид:

if условие then

управляющий оператор положительной ветви;

ПРИМЕР

Ввести 3 заведомо неравных числа (A, B, C). Наибольшее из них возвести в квадрат.

Program Max3;

Var A,B,C : integer; begin

writeLn('Введите 3 числа (A,B,C)'); readln(A,B,C);

if (A>B) and (A>C) then A:=sqr(A)

else

if B>C then B:=sqr(B)

else C:=sqr(C);

writeLn('A=',A,' B=',B, ' C=', C); end.

Рассмотренный пример показывает, как именно можно пользоваться разветвляющимися процессами. Блок-схема программы представлена на Рисунок 3.2.

Дословно «if … then … else …» переводится как «если … тогда … иначе…».

Начало

Ввод A, B, C

(A>B) and (A>C)

Вsвод A, B, C

Конец

Рисунок 3.2 Возведение в квадрат наибольшего из трех неравных чисел

Развилка есть процесс принятия решения относительно выбора дальнейшего движения в зависимости от некоторого условия. Наиболее часто используемыми являются развилки с вариантом решения «да» или «нет». Алгоритмические управляющие структуры развилкой с двумя вариантами дальнейшего движения были рассмотрены ранее. Однако существует так называемая, развилка множественного выбора. Т.е. когда мы можем двигаться далее по алгоритму не в двух возможных направлениях, а в гораздо большем их количестве.

Для этого используют развилку с множеством путей. Записывается она следующим образом:

case значение of

первый вариант: управляющий оператор для 1-го варианта; второй вариант: управляющий оператор для 2-го варианта; третий вариант: управляющий оператор для 3-го варианта;

…

else: управляющий оператор для ветви «иначе»; end;

Опять подробности работы этой управляющей структуры удобнее рассматривать на примере. Блок-схема алгоритма на Рисунок 3.3.

ПРИМЕР

По введенному номеру дня, определить к какой части недели он относится.

Program CaseWeek;

Var H :integer;

S :string[20]; begin

writeLn('Введите номер дня недели:'); readln(H);

case H of

1..3: S:='начало недели';

4:S:='четверг';

5:S:='пятница'; 6,7: S:='выходные';

else

S:='нет такого дня';

end;

writeLn('Дню ', H, ' соответствует ', S); end.

Рисунок 3.3 Пример работы Case

3.8 Программирование циклов

Циклические алгоритмические управляющие структуры в Pascal представлены все три рассмотренные ранее. Цикл с предусловием, или цикл «пока» имеет следующую реализацию

while условие do

тело цикла;

«while … do» можно перевести как «пока истинно … выполняй».

Цикл с постусловием записывается как repeat

тело цикла;

until условие выхода;

«repeat … until» можно перевести как «повторяй … до тех пор пока не».