АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

Стандартные функции. Для работы с вещественными данными могут использоваться встроенные математические функции, Стандартные математические функции Турбо Паскаля

Читайте также:
  1. III. ФУНКЦИИ ДЕЙСТВУЮЩИХ ЛИЦ
  2. III. Функции семьи
  3. Wait функции
  4. Абсолютные и относительные ссылки. Стандартные формулы и функции. Логические функции
  5. Акцентная структура слова в русском языке. Система акцентных противопоставлений. Функции словесного ударения.
  6. Акцентная структура слова в русском языке. Функции словесного ударения.
  7. Алгоритм нахождения глобального экстремума функции
  8. Аппарат государства – это система государственных органов, обладающих государственной властью и осуществляющих функции государства.
  9. Аргументы функции main(): argv и argc
  10. Бактерицидные функции
  11. Бесконечно малые функции.
  12. Билет 6(функции соц-ии)

Для работы с вещественными данными могут использоваться встроенные математические функции,

Стандартные математические функции Турбо Паскаля
Обращение Тип параметра Тип результата Примечание
abs (x) Real Real Модуль аргумента
АrсТаn (х) Real Real Арктангенс (значение в радианах)
cos (х) To же То же Косинус, угол в радианах
ехр (х) " " Экспонента
frас (х) " " Дробная часть числа
int(x) " " Целая часть числа
ln(x) " " Логарифм натуральный
Pi - " л = 3.141592653...
Random - " Псевдослучайное число, равномерно распределенное в диапазоне 0...[1]
Randomize - - Инициация генератора псевдослучайных чисел
sin(x) Real Real Синус, угол в радианах
sqr (x) To же То же Квадрат аргумента
sqrt (x) " " Корень квадратный

 

В Паскале отсутствует функция возведения числа в степень, а также нет тригонометрических функций tg(), ctg(), arcsin() и arccos(), но они могут быть реализованы сочетанием стандартных функций:

X n = EXP(N*LN(X));

tg(X) = SIN(X)/COS(X);

ctg(X) = COS(X)/SIN(X);

arcsin(X) = ARCTAN(X/SQRT(1-SQR(X)));

arccos(X) = ARCTAN(SQRT(1-SQR(X))/X).

 

Примеры:

1. Программа возведения положительного числа "x" в степень"n", т. е. y = xn. Расчет производится по формуле: y=Exp(n*ln(x)).

Program N_2; {возведение положительного числа в степень}

Var n, x, y: real;

BEGIN

Writeln('Возведение положительного числа x степень n');

Writeln('x = ');

Readln(x);

Write('n = ');

Readln(n);

y:= exp(n*ln(x));

Writeln('результат y=', y:10:6);

readln; {задержка экрана до нажатия Enter}

END.

Программа N_2; {возведение положительного числа в степень}

Переменная n, x, y: действительная;

Начало

ВывестиСтр('Возведение положительного числа x степень n');

ВывестиСтр('x = ');

ВвестиСтр(x);

Вывести('n = ');

ВвестиСтр(n);

y:= Exp(n*Ln(x));

ВывестиСтр('результат y=', y:10:6);

ВвестиСтр; {задержка экрана до нажатия Enter}

конец.

2. Программа вычисления конечной суммы денежного вклада в банк через N месяцев при ежемесячной процентной ставке "pr" (5% cоответствует pr=5).

PROGRAM VKLAD; {расчет конечной суммы вклада в банк}

var

S, Sn, pr: Real;

i, N: Integer;

Begin

Write('Введите начальную сумму вклада S=');

readln(S);

Write('Введите процент по вкладу pr=');

readln(pr);

Write('Введите количество месяцев вклада N=');

readln(N);

For i:= 1 to N do S:= S*(1+pr/100); { цикл произведений }

Writeln('Конечная сумма вклада S=', S:10:2);

readln

End.

Программа VKLAD; {расчет конечной суммы вклада в банк}

Переменная

S, Sn, pr: действительная;

i, N: целая;

Начало

Вывести('Введите начальную сумму вклада S=');

ВвестиСтр(S);

Вывести('Введите процент по вкладу pr=');

ВвестиСтр(pr);

Вывести('Введите количество месяцев вклада N=');

ВвестиСтр(N);

Для i:= 1 до N выполнить S:= S*(1+pr/100); { цикл произведений }

ВывестиСтр('Конечная сумма вклада S=', S:10:2);

ВвестиСтр

конец.

 


1 | 2 | 3 | 4 | 5 | 6 |

Поиск по сайту:

Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.004 сек.)