Стандартні арифметичні функції.

Для обчислення найуживаніших математичних функцій у ТР існує бібліотека мікропрограм, які називаються стандартними математичними функціями. Звертання до функції іде за іменем. Аргумент вказується у дужках. В якості аргументу може виступати константа, змінна, вираз. Кожна функція працює тільки з конкретним типом аргументу, і повертає результат конкретного типа.

• abs(x) - функція повертає модуль х

• cos(x) - функція повертає значення косинуса х

• sin(x) - функція повертає значення синуса х

• arctаn(x) - функція повертає значення арктангенса х

• exp(x) - функція повертає значення експоненти х

• ln(x) - функція повертає значення натурального логарифма х. Функції exp(x) та ln(x) користуються для возведення у степінь за формулою:

A^B= exp(B*ln(A))

• sqr(x) - функція повертає значення квадрата числа х

• sqrt(x ) функція повертає значення квадратного кореня з х

Для наведених вище функцій аргумент має мати тип real , і всі ці функції повертають значення типу real !!

• random(m) - функція повертає випадкове дійсного числа. Аргумент m може бути відсутній, тоді значенням функції буде випадкове число у діапазоні 0..1. У разі присутності аргументу функція повертає дійсне число у діапазоні 0 ..1 (randomize !).

• pi - повертає значення математичної константи рі.

• odd(x) - функція, що дозволяє визначати парність або непарність свого аргументу (х-longint; тип знач.функції -boolean).

• inc(x,n) - функція повертає значення х збільшене на n ( х- перераховуємий тип, n-integer; тип знач. ф. - тип х).

• dec(x,n) - функція повертає значення х зменшене на n ( х- перераховуємий тип, n-integer; тип знач. ф. - тип х).

• int(x) - функція повертає цілу частину х (х-integer, real; тип знач. функції -real ).

• frac(x) - функція повертає дробову частину х (х-integer, real; тип знач.функції - real).

• trunc(x) - функція повертає значення числа х тільки у форматі цілого числа - перетворює дійсне число у ціле (х- real; тип знач. функції- longint).

• round(x) - функція округлює аргумент х (х-integer, real; тип знач. функції - longint).

Оператор присвоєння.

Оператор присвоєння це найважливіший оператор у будь-якій мові програмування. Завдяки йому ми можемо надати змінній конкретне значення ( значення числового виразу). У лівій частині оператора стоїть змінна, у правій - вираз значення якого буде присвоєно змінній. Тип змінної та виразу обов’язково мають співпадати (Виняток: змінна - real, а результат - integer).

<змінна>:=<вираз>

Оператор присвоєння виконується у два етапи :

1) Обчислюється значення виразу з правої чатини;

2) це значення присвоюється змінній(попереднє

значення змінної втрачається !)

Завдання

1. Увійти у Turbo Pascal і ввести текст наступної програми

Program First;

Const A=5; B=7;

Var C:integer;

Begin

C:=A+B;

Writeln('C= ',C)

End.

2. Змінити розміри активного вікна №1.

3. Змінити положення активного вікна №1.

4. Розгорнути активне вікно на весь екран.

5. Зберегти програму для чого надати їй ім’я.

6. Провести компіляцію програми з вікна №1.

7. Завантажити на виконання програму з вікна №1. Попрацювати з цією програмою (компіляція, виконання).

8. Відкрити нове вікно , перенести у нього вміст вікна №1. Записати у вигляді пам’ятки як копіювати блоки.

9. Відкрити нове текстове вікно у ТП.

10.Ввести в нього програму для обчислення значення гіпотенузи за двома катетами

Program z(input,output);

uses crt;

var a,b,y:real;

begin

textbackground(7); textcolor(5); clrscr;gotoxy(10,5);

write(‘vvedite 1 katet : ’); readln(a);

write(‘vvedite 2 katet : ’); readln(b);

y:=sqrt( sqr(a)+ sqr(b));gotoxy(10,10);writeln(‘Gipotenuza = ’,y:6:2);

end.

11.Написати її на диск під будь-яким ім’ям ( *.pas).

12. Скомпілювати її, виправити можливі помилки та запустити на виконання.

13. Розібратися у її роботі (вставити коментарі), внести в неї зміни: нові кольори, розташування тексту, виведення тексту.

14. Створити програму для обчислення X⁶ за допомогою трьох операцій множення

Program STEP_X6;

var X,Y,R :real;

begin

writeln(‘vvedite chislo’);

readln(X);

R:=X*X*X; { 2 оperacii umnozhenija}

Y:= R*R; {escho odno umnozhenie}

writeln(' X = ',X,' X в 6 stepeni = ',Y)

end.

15. Зберегти програму , запустити на виконання.

16. Створити програму для обчислення за формулою:

Program EXPESSION;

var T, K, M, L, X, Y: real; {input data}

Z: real; {results}

begin

writeln(‘vvedite znachenija T, K, M, L, X, Y:’);

readln(T, K, M, L, X, Y);

Z:=Sqr((T*T-K*K)/(Sqr(Sqr(M))- Sqr(Sqr(L))*L))+Sqrt(Abs(Sqrt(X)+Y)/(12-Abs(X))+4);

writeln(‘Resultat: ’, Z:12:6)

end.

17. Зберегти програму , запустити на виконання.

18. Створити програму для обчислення середнього арифметичного та середнього геометричного двох невід’ємних чисел A і B.

Program SAB;

var A,B: real; {input data}

SA,SG: real; {output data}

begin

writeln(‘input A & B’);

readln(A,B); { A>=0,B>=0}

SA:=(A+B)/2; SG:=SQRT(A*B); {SQRT() – znahodzhennya korenya }

writeln(‘srednee arifmeticheskoe', SA, ' srednee geometricheskoe ' , SG)

end.

19. Зберегти програму , запустити на виконання.

20. Створити програму для обчислення y=xⁿ. Обчислення виконуються за формулою: y=e^n*ln(x)

Program Stepen;

Var A,B: Real;

N: Integer;

Begin

Writeln(' Stepen’ ');

Write('Vvedite chislo= '); Readln(A);

Write('Ukazhite stepen’= '); Readln(N);

Writeln;

B:=Exp(N*Ln(A));

Writeln('Result:');

Writeln('B= ',B:8:2);

Readln

End.

21. Зберегти програму , запустити на виконання. Результати виконання всіх дій занести до протоколу (постановка задачі, що розв’язується, текст програми, результат роботи програми)

Розв’язати самостійно наступні задачі

Задача 1. Створити програму для обчислення значення X⁷ за чотири операції множення.

Задача 2. Створити програму для обчислення значення X⁸ за три операції множення.

Задача 3. Створити програму для обчислення значення X¹⁰ за чотири операції множення.

Задача 4. Створити програму для обчислення за формулою:

Задача 5. Створити програму для обчислення за формулою:

Задача 6. Дано довжини трьох сторін трикутника АВС. Вивести на екран про нього нас­тупну інформацію: а) площа; б) периметр; в) довжини всіх висот; г) довжини всіх медіан.

Результати внести в протокол разом зі створеними для розв’язання задач програмами. В протоколі обов’язково повинні бути умови задачі, що розв’язується, програма і результати виконання програми(скріншоти). В тексти прикладів-програм внести коментарі і де потрібно звернення до функцій очистки екрану.

11