Добавил:
ivanov666
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Самоучитель игры на Паскале. АВС и немного Турбо
.pdf
for i:=1 to 4 do
for j:=1 to 4 do
a[i,j]:=0;
for i:=1 to 15 do begin
repeat
col:=Random(4) + 1;
row:=Random(4) + 1;
if a[row,col] = 0 then begin
a[row,col]:=i;
nasli:=true;
end
else nasli:=false;
until nasli;
end;
Обсуждение. Числа 4 и 15 употреблены для большей наглядности нашей
небольшой программы. В реальной жизни вместо них, конечно, должны
быть константы. Массив A вначале заполнен нулями. Ноль означает, что в
соответствующей ячейке фишки нет. Ес
ли фишка там присутств
ует, то
элемент массива содержит её номер, то есть то, что на фишке написано.
Обратите внимание на использование функции Random.
TP. В чём разница
Ну нету разницы, нету.
131
Глава 8.
Процедуры и функции
Процедура без параметров
Помните мою печаль по поводу циклов без массивов? Их
бессмысленности и бесполезности? В чём-то похожая ситуация с
процедурами без параметров. Ситуация похожая, но не до конца –
процедуры без параметров действительно жизненно необходимы. Но не
тем, что они, подобно правильно применённым циклам, сокращают текст
программы и, тем самым, труд программиста. Процедуры без параметров,
ьшинстве случаев, текст не сокращают нисколько, а вот труд
в бол
программиста сокращают очень даже – но не на этапе кодирования, а на
этапе отладки и даже позже.
Процедуры структурируют программу. А по простому
делают её понятнее. А это важнее всякой краткости.
Теперь пример. Пример абсолютно бесп
абстрактный, и, соответственно, на приме
всю программу целиком, поскольку здесь особо важна структура
программы (в смысле – что за чем идёт).
program Proc;
uses
Crt;
{--------------------------------------------}
procedure WriteSomething;
begin
Writeln(‘We don’’t need no education’);
Writeln(‘We don’’t need no thought control’);
Writeln;
end;
{--------------------------------------------}
begin
WriteSomething;
WriteSomething;
WriteSomething;
end.
132
олезный, бессмысленный,
ре текстового вывода. Привожу
? А по-простому –
На выходе имеем:
We don’t need no education
We don’t need no thought control
We don’t need no education
We don’t need no thought control
We don’t need no education
We don’t need no thought control
Долго думаем. В целом понятно. Даже не знаю, что объяснять-то…
Попробую всё же. Закомментируйте вот эти строки:
{WriteSomething;
WriteSomething;
WriteSomething;}
Запустите программу снова. Что случилось? Абсолютно ничего. То есть,
то, что находится между словами procedure…begin…end; само по себе не
ает ничего. А называется это описанием проц
дел
процедуры. А вот то, что мы закомментировали, называется вызовом
процедуры. Вызов процедуры без параметров эквивалентен тому, как если
бы вместо него просто подставили тело процедуры (то, что между begin и
end). Три вызова, как у нас – значит, тело подставили три раза.
Обратите внимание на поразительное сходство структуры процедуры и
программы. Вся разница только в точке в конце проц
разница.… Как увидим чуть позже, в процедуре точно так же можно
объявлять переменные. Это важно.
Имя процедуре даётся по тем же правилам, что и программе и вообще
переменным.
т, пожалуй, и всё о процедурах без параме
Ну, во
едуры, оно же тело
едуры. Ну, почти вся
тров.
133
То же и с параметрами
Сначала простенькая бесполезненькая программка для демонстрации
идеи. Здесь и далее я буду писать только саму процедуру и её вызов, а
программу вокруг всего этого дорисуйте сами.
procedure Out( x : integer);
begin
Writeln(x);
end;
Процедуру можно вызвать так:
Out(5);
На экране появится пятёрка.
А можно так:
y:=5;
Out(y);
На экране опять появится пятёрка.
Теперь важные тер
параметра. Са
при вызове процедуры – 5 или Y – это фактический параметр.
Видим, что фактический параметр может быть константой или
переменной. Имя этой переменной не обязано совпадать с именем
фактического параметра, но, в общем случае, может. Об этом мы
подробно пог
Фактический параметр мо
y:=5;
Out(y+1);
Выведется, понятное дело, шестёрка.
Условие одно – фактический параметр, будь то константа, переменная или
выражение, должны совпадать по типу с формальным параметром. В
оворим позднее.
мины. X : integer; - это описание формального
м X – это формальный параметр. То, что стоит в скобках
жет быть и выражением:
134
нашу процедуру нельзя передать дробное число или строку. Нельзя
передать и выражение, принимающее дробное значение, например 5/2.
Соответственно, если формальный параметр строка, фактический обязан
быть объявлен как string (или быть строковой константой), но не как
integer или real. Но если формальный параметр объявлен как real, на вход
процедуре можно передать и целое число и целую переменную - целое в
данном случ
о п
равилах присваивания дробных и целых чисел.
Теперь о сложном. Напишем вот так:
procedure Out( x : integer);
begin
x:=x*2;
Writeln(‘inside x =’x);
end;
………………………….
x:=5;
Out(x);
Writeln(‘outside x =’,x);
Что видим на экране?
inside x =10
outside x =5;
Во-первых, мы видим, что формальный параметр внутри процедуры
можно использовать как самую обычную пе
изменить его значение. Но изменение действует только в
процедуры. Вышли – забыли.
Об этом, как всегда, подробнее позже. Буквально рядом – в следующем
разделе.
А пока процедура посложнее – с несколькими параметрами.
Вспоминаем рисование квадрата методом опорной точки.
x0:=100;
y0:=100;
Line(x0,y0, x0+100,y0);
ае рассматривается как частный случай дробного. Вспомните
ременную, в том числе можно
пределах самой
135
Line(x0+100,y0, x0+100,y0+100);
Line(x0+100,y0+100, x0,y0+100);
Line(x0,y0+100, x0,y0);
Переоформляем это в виде процедуры.
procedure Square( x0,y0 : integer);
begin
Line(x0,y0, x0+100,y0);
Line(x0+100,y0, x0+100,y0+100);
Line(x0+100,y0+100, x0,y0+100);
Line(x0,y0+100, x0,y0);
end;
………………………………….
Square(100,100);
Как легко догадаться, Вам надлежит оформить это в виде законченной
программы.
А теперь добавим третий параметр – цвет, которым надо рисовать
квадрат. А какого цвет типа? Как несложно предположить из сказанного о
цвете раньше – целого, integer;
Добавляем цвет.
procedure Square( x0,y0 : integer;
color : integer);
begin
SetColor(color);
Line(x0,y0, x0+100,y0);
Line(x0+100,y0, x0+100,y0+100);
Line(x0+100,y0+100, x0,y0+100);
Line(x0,y0+100, x0,y0);
end;
………………………………….
Square(100,100, clGreen);
136
Тип параметров указывается аналогично типу переменных. Однотипные
параметры можно сгруппировать в одной строке.
А какие бывают параметры?
Теперь о сложных и серьезных материях. Кроме шуток. Какие бывают
параметры у процедур? Вариантов ровно два.
С чем мы только что познакомились? В качестве фактического параметра
можно передать хоть переменную, хоть константу или выраж
бы оно совпадало по типу с формальным параметром. Или почти
совпадало, как
переменную и изменить её внутри, по выходе из процедуры всё забудется.
Это называется передача параметров по значению. Другой, незнакомый
ещё вариант – передача параметров по ссылке.
Вообще говоря, в других учебни
другому. Так что, забываем про глупости и встречаем по одежке. Как оно
выглядит?
Если так:
procedure Make( x : integer);
то это первый вариант, нам знакомый, передача по значению. На вход что
угодно – переменная, константа, выражение, но изменения после выхода
не сохраняются.
Если так:
procedu
то это вариант номер два, нам по
В качестве фактического параметра можно передать только и только
переменную типа integer. Никаких констант, никаких выражений. Даже
если бы формальным параметром был real, передать на вход целое всё
равно нельзя. Зато если изменить значение переменной внутри
процедуры, изменения сохранятся и пос
Вернёмся к примеру из предыдущего раздел
procedure Out( var x : integer);
re Make( var x : integer);
в случае целых и дробных. Если подать на вход
ках они могут назы
ка незнакомый. Будем знакомиться.
ле выхода наружу.
а, только добавим var.
ваться как угодно по-
ение, лишь
137
begin
x:=x*2;
Writeln(‘inside x =’x);
end;
………………………….
x:=5;
Out(x);
Writeln(‘outside x =’,x);
Что теперь мы получим на экране?
inside x =10
outside x =10;
Как этим счастьем пользоваться? Никогда (почти) нельзя допускать,
чтобы в процедуру в качестве параметра с var входило одно значение, а
возвращалось, в этом же параметре, другое значение. Вход – параметр без
var, выход – параметр с var. Получается, что параметры с var пр
процедуру вообще, по сути, не должны иметь никакого зн
по сути и есть. Значение, конечно, всё равно присутствует, хотя бы и
какое-нибудь мусорное, от этого никуда не деться. Но мы должны вести
себя так, как будто его нет.
Непонятно? Забудьте! Поймёте потом. Ес
В качестве примера вспомним про когда-то подсчитанный на
факториал и изготовим из него процедуру. К факториалу нам придётся
вернуться ещё минимум дважды – скоро, добравшись до функций, и
нескоро, когда доползём до рекурсии.
Напоминаю – факториал N, обозначается N!, представляет собой
произведение всех целых чисел от 1 до N. И подсчитали мы его вот так:
N:=5;
fact:=1;
for i:=1 to N do
fact:=
Теперь изготовляем из этого процедуру с двумя параметрами.
fact * i;
ли станете программистом.
и входе в
ачения. Так оно
ми
138
procedure Fact( N : integer;
var result : integer);
var
i : integer;
begin
result:=1;
for i:=1 to N do
result:=result * i;
end;
Обратите внимание. Мы впервые встретились с одновременным
использованием параметров разных типов. И впервые – с объявлением
переменных внутри процедуры.
Кстати, факториал какого (максимально) числа, мы можем подсчитать, если в качестве результата у нас используется
переменная типа integer? Отмотайте назад, найдите какое максимальное значение может содержать integer и оцените.
О грустном
Почему о грустном? Когда-то, когда я изучал Паскаль, совсем даже ещё
не Турбо и не ABC,и уж, конечно, не Delphi , всё было хорошо, просто и
понятно. Всё, кроме передачи массивов в качестве параметров. Я как-то
даже поверить не мог, что это настолько плохо и ожидал, что вот-вот и
прочитаю в какой-нибудь книжке про человеческий способ сделать ЭТО.
Не прочитал. И ничего, привык. И читатель привыкнет. Присту
паем.
Да, я прекрасно знаю, что в Pascal ABC можно и по простому. Трагедия в
том, что когда вы выйдете на большую дорогу
в большую жизнь,
Паскаль вы встретите в виде Delphi. А там будет именно так, как я
сказал. Так что привыкайте делать правильно.
Что у нас есть в программе между program и первым begin’ом?
program
uses
const
var
begin
139
Нам пока ни разу не понадобилась ещё одна секция. Начинается она
словом type. Размещается обычно между объявлениями констант и
объявлениями переменных. Предназначена секция для объявления
пользовательских типов. Что это такое и зачем, подробно и осмысленно
рассказывать здесь не буду, эта тема для совсем другой книги.
Сначала очень простой пример.
type
TCol
or = integer;
Что это значит? Мы объявили новый тип по имени TColor. На самом деле,
это не мы его объявили
немного с другим именем ColorType
, в Pascal ABC уже объявлен такой тип, только
.
По существу новый тип является псевдонимом типа integer. Поняли?
Нет? В сущности, пользовательские типы (то есть, типы, определённые
пользователем) вещь абсолютно бесполезная, введённая исключительно
из образовательно-дисциплинарных целей. Как ни старался, я не смог
найти им ни малейшего применения. Преувеличиваю, конечно. Запись
(record) вполне целесообразно объявить типом, и в дальнейшем ссылаться
го. Возможно, если постараться, можно вспомнить ещё пару-тройку
на не
случаев, когда пользовательские типы
не совсем бесполезны. Но, в общем
и целом, они таковой бессмыслицей оставались, до появления в Паскале
концепции объектно-ориентированного программирования. Тут,
конечно, всё пошло совсем по-другому… Но об этом в другой книге.
А пока, всё что мы получили от введения нового типа, это возможность
вместо
procedu
color : int
re Square( x0,y0 : integer;
eger);
написать
procedure Square( x0,y0 : integer;
color : TСolor);
140
Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]