Силаенков А.Н. Лекции по технологии программирования

Подождите немного. Документ загружается.

Пример строковой функции:

Length(S: String): Integer;

Возвращает число символов, фактически используемое в строке S.

Процедуры работы с динамической памятью

Процедуры управления программой (Модуль System )

Procedure Break;

Процедура осуществляет досрочный выход из циклов For, While или Repeat.

Процедура должна находиться внутри этих циклов, иначе транслятор сообщит об ошибке.

Procedure Continue;

Процедура досрочно начинает следующую итерацию циклов For, While или Repeat.

Процедура должна находиться внутри этих циклов, иначе транслятор сообщит об ошибке.

Procedure Exit;

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

является главная программа, она завершает работу.

Procedure Halt[(Exitcode: Integer)];

Процедура выполняет аварийное завершение программы. Чтобы нормально завершить

приложение, вызовите Application.Terminate. Exitcode - необязательное выражение, которое

определяет код завершения вашей программы.

Процедуры и функции работы с файлами (Модуль System)

Procedure AssignFile(var F; FileName: String);

Процедура открытия файла.

Procedure CloseFile(var F);

Процедура закрытия файла.

Процедуры работы с множествами (Модуль System )

Procedure Exclude(var S: Set of T; I:T);

Удаляет элемент I из множества S.

S - переменная типа-множество, и I - выражение типа, совместимого с исходным типом S.

Procedure Include(var S: Set of T; I:T);

Добавляет элемент I к множеству S.

Процедуры и функции работы с порядковыми величинами

Procedure Dec(var X [; N: LongInt]);

Вычитает единицу или N из переменной X.

Dec(X) соответствует X := X - 1, и Dec(X, N) соответствует X := X - N.

X - переменная перечислимого типа или типа PChar, если допускается расширенный синтаксис, и

N - выражение с целочисленного типа.

Процедура Dec генерирует оптимальный код и особенно полезна в длительных циклах.

Procedure Inc(var X [; N: LongInt]);

Прибавляет единицу или N к переменной X.

X - переменная перечислимого типа или типа PChar, если допускается расширенный синтаксис, и

N - выражение целочисленного типа.

Inc (X) соответствует инструкции X := X + 1, и Inc (X, N) соответствует инструкции X := X + N.

Процедура Inc генерирует оптимальный код и особенно полезна в длительных циклах.

Function Odd(X: LongInt): Boolean;

Возвращает True, если X - нечетное число и False в противном случае.

Function Pred(X);

Возвращает предыдущее значение параметра.

X - выражение перечислимого типа. Результат того же самого типа.

Function Succ(X);

Возвращает следующее значение параметра.

X - выражение перечислимого типа. Результат того же самого типа.

Процедуры и функции преобразования величин

Procedure Str(X , S);

Преобразовывает число X в строковое представление S.

Function Chr(X: Byte): Char;

Возвращает символ с порядковым номером Х в ASCII-таблице.

Function High(X);

Возвращает наибольшее значение в диапазоне параметра.

Function Low(X);

Возвращает наименьшее значение в диапазоне параметра.

Function Ord(X);

Возвращает порядковое значение выражения перечислимого типа.

X - выражение перечислимого типа.

Function Round(X): LongInt;

Округляет значение вещественного типа до целого.

X - выражение вещественного типа. Round возвращает значение Longint, которое является

значением X, округленным до ближайшего целого числа. Если X - точно посередине между двумя

целыми числами, возвращается число с наибольшей абсолютной величиной.

Function Trunc(X): LongInt;

Усекает значение вещественного типа до целого.

Если округленное значение X выходит за диапазон LongInt, генерируется ошибка времени

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

ситуации EInvalidOp .

Procedure Val(S; var V; var Code: Integer);

Преобразовывает число из строкового значения S в числовое представление V.

S - выражение строкового типа - последовательность символов, которая формирует целое или

вещественное число.

Если выражение S недопустимо, индекс неверного символа сохраняется в переменной Code. В

противном случае Code устанавливается в ноль

Процедуры и функции работы с датой и временем

Function Date: TDateTime;

Возвращает текущую дату.

Функции форматирования (Модуль SysUtils )

Function StrToFloat(const S: String): Extended;

Преобразовывает данную строку в число с плавающей запятой. Строка должна состоять из

необязательного знака (+ или -), последовательности цифр с необязательной десятичной точкой и

необязательным “E” или “e”, сопровождаемым целым числом со знаком.

Function IntToStr(Value: Integer): String;

Преобразовывает целое число в строку.

Function StrToInt(const S: String): Integer;

Преобразовывает строку, представляющую целое число в десятичной или шестнадцатеричной

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

ситуация EConvertError.

Разные процедуры и функции

3. Примеры составления программ с использованием

стандартных функций и процедур

Пример 1. Составить программу вычисления суммы элементов двумерного

массива, среднеарифметического значения элементов массива и найти

наибольшее значение элементов массива

procedure TForm1.Button1Click(Sender: TObject);

var

i,j,str,stl,res,code:integer;

number,k,m1,m2:string[40];

a:array [1..10,1..10] of real;

S,sa,max:real;

begin

str:= strtoint(edit1.text);//Ввод числа строк

stl:= strtoint(edit2.text);// Ввод числа столбцов

{Ввод в диалоге элементов массива}

for i:=1 to str do

for j:=1 to stl do

begin

number:=inputbox('Ввод элементов массива','Введи элемент массива','0');

val(number,a[i,j],code);

end;

s:=0;

{Расчет в цикле суммы элементов массива}

for i:=1 to str do// str- число сторк

for j:=1 to stl do// stl- число столбцов

begin

s:=s+a[i,j]; //Вычисление суммы элементов массива

end;

res:=trunc(s);//Выделение целого

k:=IntTostr(res); //Перевод целого числа в строку

sa:=res/(str*stl); //Вычисление среднего арифметического }

m1:=FloatToStr(sa);//Перевод вещественного числа в строку

Listbox1.Items.Add('Сумма элементов массива='+k);

Listbox1.Items.Add('Среднее арифметическое ='+m1);

{Выбор наибольшего элемента массива}

max:=a[1,1];

for i:=1 to str do

for j:=1 to stl do

begin

if a[i,j]>=max then max:= a[i,j];

if a[i,j]<max then max:= max;

end;

m2:=FloatToStr(max);

Listbox1.Items.Add('Наибольший элемент массива='+m2);

end;

end.

Лекция №11. Объектно-ориентированное программирование.

Разработка программ с использованием нестандартных функций и

процедур

Довольно часто некоторые специфичные для данной прикладной

программы действия не находят прямых аналогов в библиотеках Delphi, и

тогда программисту приходится разрабатывать свои, нестандартные

процедуры и функции.

Нестандартную подпрограмму необходимо описать, чтобы компилятор

смог установить связь между оператором вызова и теми действиями, которые

предусмотрены в подпрограмме. Описание подпрограммы помещается в

разделе описаний (до начала исполняемых операторов).

1.Процедура

Процедура — это разновидность подпрограммы. Обычно подпрограмма

реализуется как процедура в двух случаях:

 когда подпрограмма не возвращает в основную программу никаких

данных. Например, вычерчивает график в диалоговом окне;

 когда подпрограмма возвращает в вызвавшую ее программу больше

чем одно значение. Например, подпрограмма, которая решает

квадратное уравнение, должна вернуть в вызвавшую ее программу два

дробных числа — корни уравнения.

// здесь инструкции процедуры

В общем виде объявление процедуры выглядит так:

procedure Имя ( var формальный параметр1: тип1; var.. формальный

параметр К: типК) ;

var // здесь объявление локальных переменных процедуры, если они

нужны

begin

[операторы]

End;

где:

 procedure — зарезервированное слово языка Delphi, обозначающее, что

далее следует объявление процедуры;

 имя — имя процедуры, которое используется для вызова процедуры;

 параметры 1.. K — формальные параметры.

 Слово var перед именем параметра не является обязательным. Однако

если оно стоит, то это означает, что в инструкции вызова процедуры

фактическим параметром обязательно должна быть переменная.

Формальный параметр- это переменная, которой при вызове программы

присваивается значение фактического параметра.

Чтобы вызвать процедуру нужно задать её имя и список фактических

параметров. Синтаксис вызова имеет вид

Имя процедуры (фактический параметр1, ... фактический параметр К ) ;

Перечисление параметров выполняется через запятую.

При составлении списка формальных параметров нужно иметь в виду:

1. Количество формальных параметров должно быть равно количеству

фактических параметров.

2. Тип каждого фактического параметра должен совпадать с типом

каждого формального параметра.

3. Имя фактического параметра никак не связано с именем формального

параметра.

Расположение процедуры под процедурой обработчика событий.

Пример 1. Процедура Arif () выполняет 4 арифметических действия над

переменными a и b.

Внешний вид формы для решения

задачи

1.Обработчик события при щелчке на кнопке Вычислить

procedure TForm1.Button1Click(Sender: TObject);

//************************************************

{Процедура выполнения арифметических действий}

Procedure Arif(n1:real;n2:real; var sum:real; var ras:real; var pr:real; var

stast:real );

Begin

Sum:=n1+n2;

Ras:=n1-n2;

Pr:=n1*n2;

Stast:=n1/n2;

end;

//************************************************

var //описание переменных основной программы

m1,m2,sum,ras,pr,stast:real;

code:integer;

s1,s2,s3,s4:string;

begin

val(edit1.Text,m1,code);//ввод 1 числа

val(edit2.Text,m2,code);//ввод 2 числа

Arif (m1,m2, sum, ras, pr,stast); //обращение к процедуре

str(sum:8:4,s1);//перевод значения суммы в строковую переменную

str(ras:8:4,s2);

str(pr:8:4,s3);

str(stast:8:4,s4);

Memo1.lines.add('Сумма ='+s1); //вывод результатов в окно редактора

Memo1.lines.add('Разность='+s2);

Memo1.lines.add('Произведение='+s3);

Memo1.lines.add('Частное='+s4);

end;

end.

2. Функция

Функция отличается от процедуры тем, что в функцию можно предавать

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

Синтаксис функции имеет вид:

Function имя – (формальный параметр 1: тип1; формальный параметр 2:

тип 2; …): Тип функции;

[локальные объявления:]

Begin

Операторы;

Возвращаемое значение c выводом на экран;

End;

Вызовом функции является записанное в вызывающей программе имя

функции со списком фактических параметров в круглых скобках

Имя функции (фактический параметр 1, фактический параметр 2, …);

Пример 2. Разработать программу, вычисляющую сумму элементов массива.

Вычисление суммы элементов массива оформить как функцию.

procedure TForm1.Button1Click(Sender: TObject);

type

mass=array [1..100]of integer;

var // описание переменных основной программы

i,code,s,n:integer;

number:string;

b:mass;

{Подпрограмма функция, вычисляющая сумму элементов массива}

function summas(n:integer;a:mass):integer;

var

i,s:integer; //описание переменных функции

sum:string;

begin

s:=0;

for i:=1 to n do //вычисление в цикле суммы

begin

s:=s+a[i];

end;

str(s,sum); //Перевод значения суммы в строковую переменную

memo1.Lines.Add ('Сумма элементов массива='+sum); //вывод результата

end;

******************************************************************

{Вызывающая программа(основная)}

begin // Начало основной программы

val (edit1.Text,n,code);

for i:=1 to n do //Ввод элементов массива

begin