Delete(x,n,l) – удаляет из строковой переменной x группу символов, начиная с позиции с номером n. Количество символов равно l

End.

Readln

Begin

s:=0;

for i:=1 to 4 do

s:=s+f[i,j];

x[j]:=s;

write( x[j]:7:2,' ' )

end;

В программе arrsum в разделе описания переменных описываются два массива. Первый из них – это двумерный массив f, который в дальнейшем будет заполнен числами вещественного типа. В данном массиве, как видно из описания, имеется 4 строки и 5 столбцов. Второй описанный в разделе массив x является одномерным и в дальнейшем будет заполнен элементами, каждый из которых представляет собой сумму элементов, содержащихся в одном из столбцов двумерного массива. Всего в одномерном массиве x должно быть 5 элементов – по количеству столбцов в двумерном массиве f. Вспомогательная переменная s – используется для подсчета суммы элементов, содержащихся в одном из столбцов

Рис. 7.8.2. Результаты работы программы, заполняющей двумерный массив произвольными элементами, и формирующей на его основе одномерный массив

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

7.9.1. Функции

Для выполнения таких как возведение числа в квадрат, извлечение квадратного корня, определение модуля (абсолютной величины) числа, вычисление тригонометрических функций, округление дробного числа до ближайшего целого, определение длины строковой переменной и другие предусмотрены стандартные функции, которые являются неотъемлемой частью языка Паскаль.

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

К наиболее широко употребляемым стандартным функциям кроме уже известных нам функций length, ord и char, используемых для работы со строковыми переменными, относятся также следующие:

abs(x) – определяет aбсолютное значение аргумента, которым может быть число или выражение целого или вещественного типа;

arctan(x) – вычисляет арктангенс угла, значение которого выражено в радианах;

cos(x) – вычисляет косинус угла, значение которого выражено в радианах;

exp(x) – вычисляет экспоненту аргумента (то есть e в степени x);

int(x) – определяет целую часть аргумента. Значением функции является величина вещественного типа;

ln(x) – вычисляет натуральный логарифм аргумента (т. е. логарифм по основанию e);

pi – данная функция не имеет параметров, а значением ее является число 3.1415926…

round(x) – округляет значение аргумента до ближайшего целого числа;

sin(x) - вычисляет cинус угла, значение которого выражено в радианах;

sqr(x) – вычисляет квадрат аргумента, которым может быть число или выражение целого или вещественного типа;

sqrt(x) – вычисляет квадратный корень из аргумента;

trunc(x) – определяет целую часть аргумента. Значением функции является величина целого типа;

copy(x,n,l) – выделяет в строковой переменной x группу символов, начиная с позиции с номером n. Длина группы равна l. Параметры n и l должны быть величинами целого типа;

В качестве примера программы с использованием стандартных функций рассмотрим программу решения квадратного уравнения ax²+bx+c=0 ( рис. 7.9.1).

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

При значениях коэффициентов уравнения 2, 7 и 3 получаем решение, изображенное на рис. 7.9.1.

Рис. 7.9.1. Программа решения квадратного уравнения и результаты его решения.

Набор стандартных функций языка Паскаль не ограничивается вышеприведенным списком, однако в ряде случаев программисту может потребоваться для решения поставленной задачи создать свою собственную функцию. Такая функция должна быть описана в тексте программы после раздела описания констант и переменных и до начала ее основной части (то есть до слова begin).

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

< заголовок функции >;

< раздел описания констант и переменных, используемых внутри функции >;

Дата добавления: 2014-10-17