Возвращает адрес определённого объекта. Объявление: Режим: Замечание: Параметр X — идентификатор переменной, процедуры и функции. Результат — указатель на X. Как и NIL, результат функции Addr совместим со всеми типами указателей. Пример:
Read MoreМесяц:
Процедура AssignCrt — Pascal(Паскаль)
Модуль WinCrt Связывает текстовый файл с окном CRT. Объявление: Режим: Замечание: AssignCrt работает точно также как стандартная процедура Assign за исключением того, что не определяется имя файла. Вместо этого, текстовый файл связывается с окном CRT. Это позволяет выводить (и вводить) информацию быстрее, чем при использовании стандартного вывода (или ввода). Пример:
Read MoreФункция ArcTan() — Pascal(Паскаль)
Возвращает арктангенс параметра. Объявление: Режим: Замечание: В языке Turbo Pascal нет встроенной функции Tan, но тангенс может быть вычислен с помощью выражения: sin(x)/cos(x) Пример:
Read MoreФункция Abs() — Pascal(Паскаль)
Возвращает абсолютную величину входного параметра. Объявление: Режим: Замечание: Параметр X — выражение вещественного или целочисленного типа. Результат того же типа, что и X является абсолютной величиной X. Пример:
Read MoreПроцедура Assign — Pascal(Паскаль)
Процедура Assign(F; Name) назначает файловой переменной F имя внешнего файла Name. Объявление: Режим: Замечание: Параметр F — файловая переменная любого файлового типа, а Name — выражение со строковым типом или выражение типа PChar, если допускается расширенный синтаксис. Все дальнейшие операции с переменной F на самом деле происходят с внешним файлом с именем Name. После обращения к Assign, связь между переменной F и внешним файлом продолжает существовать до тех пор, пока для переменной F не будет сделано еще одно переназначение. Имя файла состоит из пути — нулевого или большего количества имен…
Read MoreПроцедура Arc — Pascal(Паскаль)
Процедура Arc(X, Y, StAngle, EndAngle, Radius) рисует дугу окружности из точки с координатами XY начиная с угла StAngle и заканчиваю в EndAngle радиусом Radius. Объявление: Режим: Ограничения: Нужно быть в графическом режиме. Пример:
Read MoreПроцедура Append — Pascal(Паскаль)
Модуль CRT Процедура Append(F, ‘TEST.TXT’) открывает существующий файл «TEST.TXT» для продолжения записи в файл. Объявление: Режим: Замечание: Параметр F — переменная текстового файла, которая должна быть связана с внешним файлом при помощи вызова процедуры Assign. Append открывает существующий внешний файл с именем, определенным в файловой переменной F. Если внешний файл с данным именем не существует, то происходит ошибка ввода/вывода. Если F уже открыт, то он закрывается и вновь открывается. Текущая позиция файла устанавливается на конец файла. Если в последнем 128-байтовом блоке файла присутствует символ Ctrl+Z (символ, с кодом 26), то…
Read MoreПроверка строгого чередования в массиве — Pascal (Паскаль)
Дана таблица а[1..n], состоящая из нулей и единиц. Проверить существует ли строгое чередование. Для решения задачи, необходимо в цикле пройтись по всему массиву, проверяя текущий и следующий за ним элементы на чередование. Текущий элемент(a[i]) может быть равен либо единице (1), тогда следующий элемент (a[i+1]) должен будет быть равным нулю(0), либо текущий равен нулю, а следующий за ним единице. Это условие запишеться следующим образом: If ((a[i]=1)and(a[i+1]=0))or((a[i]=0)and(a[i+1]=1)) Then … В противном случае, если условие не выполняется, то выходим из цикла и возвращаем «НЕТ» — как ответ на задачу. Основной проблемой при работе…
Read MoreМетод хорд — Pascal (Паскаль)
Найти корень уравнения методом хорд. Будем искать корень функции f(x). Выберем две начальные точки C1(x1;y1) и C2(x2;y2) и проведем через них прямую. Она пересечет ось абсцисс в точке (x3;0). Теперь найдем значение функции с абсциссой x3. Временно будем считать x3 корнем на отрезке [x1;x2]. Пусть точка C3имеет абсцисcу x3 и лежит на графике. Теперь вместо точек C1 и C2 мы возьмём точку C3 и точку C2. Теперь с этими двумя точками проделаем ту же операцию и так далее, т.е. будем получать две точки Cn + 1 и Cn и повторять операцию с ними. Таким образом мы будем получать две точки, отрезок, соединяющий которые, пересекает ось абсцисс в точке, значение абсциссы…
Read MoreВычислить сумму последовательности вида sin(x) + sin(sin(x)) + … + sin(sin … (sin(x))) — Pascal (Паскаль)
Дана последовательность вида: sin(x) + sin(sin(x)) + … + sin(sin … (sin(x))). Необходимо подсчитать сумму данной последовательности. Значение x вводиться с клавиатуры.
Read More