Работа в среде Турбо Паскаль. Составление программ с использованием функций

Слайд 2

Функции Структура программы Program ; Label ; Const ; Type ;

Функции

Структура программы
Program <имя программы>;
Label <метки>;
Const <константы>;
Type <типы данных>;
Var <переменные>;
<процедуры

и функции>;
Begin
<тело программы>;
End.

Структура функции
Function <имя функции> (<фор-мальные параметры>): тип ре-зультата;
{описательная часть функции}
Begin
<тело процедуры>;
<имя функции>:=результат;
End;

Слайд 3

Пример 15.1 Вычислить Program PR_15_1; const a=3; var b,P:real; function n_stepen_x

Пример 15.1 Вычислить

Program PR_15_1;
const a=3;
var b,P:real;
function n_stepen_x ( x ,

n : real ) : real ;
begin
n_stepen_x:=exp(n*ln(x));
end;

begin
b:=n_stepen_x(2,3);
P:=a*b;
writeln('P=',P:5:2);
writeln('x v n-oj stepeni=',b:5:2)
end.

Слайд 4

Пример 15.1 (Продолжение). 1) Что делает и как описывается функция? 2)

Пример 15.1 (Продолжение).

1) Что делает и как описывается функция?
2) Как в

программе вызывается
функция?
3) Запишите формальные и фак-тические параметры функ-ции.
4) Объясните работу програм- мы.

5) Проведите вычисления по программе для следующих параметров:
a) a=3, x=2, n=3;
b) a=4, x=4, n=3.

Слайд 5

Пример 15.2 Вычислить (См. пример 15.1 ). Program PR_15_2; const a=3;

Пример 15.2 Вычислить (См. пример 15.1 ).

Program PR_15_2;
const a=3;
var b,P:real;
function n_stepen_x

( x , n : real ) : real ;
begin
n_stepen_x:=exp(n*ln(x));
end;

begin
P:=a*(n_stepen_x(2,3));
writeln('P=',P:5:2);
writeln('x v n-oj stepeni=', n_stepen_x(2,3):5:2)
end.

Слайд 6

Пример 15.2 (Продолжение). 1) Что делает и как описывается функция? 2)

Пример 15.2 (Продолжение).

1) Что делает и как описывается функция?
2) Как в

программе вызывается
функция?
3) Запишите формальные и фак-тические параметры функ-ции.
4) Объясните работу програм- мы.

5) Проведите вычисления по программе для следующих параметров:
a) a=3, x=2, n=3;
b) a=4, x=4, n=3.
6) В чем схожесть и отличие программ в примерах 15.1 и 15.2 ?

Слайд 7

Пример 15.3 Вычислить (См. пример 15.1 ). Program PR_15_3; var a,b,c,d,P:real;

Пример 15.3 Вычислить (См. пример 15.1 ).

Program PR_15_3;
var a,b,c,d,P:real;
function n_stepen_x (

x , n : real ) : real ;
begin
n_stepen_x:=exp(n*ln(x)); end;

begin
writeln('vvedite parametri a,b,c');
read(a,b,c);
d:=n_stepen_x(b,c);
P:=a*d;
writeln('P=',P:6:2);
writeln('x v n-oj stepeni=',d:6:2)
end.

Слайд 8

Пример 15.3 (Продолжение). 1) Что делает и как описывается функция? 2)

Пример 15.3 (Продолжение).

1) Что делает и как описывается функция?
2) Как в

программе вызывается
функция?
3) Запишите формальные и фак-тические параметры функ-ции.
4) Объясните работу програм- мы.

5) Проведите вычисления по программе для следующих параметров:
a) a=3, x=2, n=3;
b) a=4, x=4, n=3.
6) В чем схожесть и отличие программ в примерах 15.1 и 15.3 ?

Слайд 9

Пример 15.4 Вычислить Program PR_15_4; var a,b,c,d,P:real; Function n_koren_x ( x

Пример 15.4 Вычислить

Program PR_15_4;
var a,b,c,d,P:real;
Function n_koren_x ( x , n

: real ) : real ;
begin
n_koren_x:=exp((1/n)*ln(x));
end;
begin
writeln('vvedite parametri a,b,c');
read(a,b,c);

d:=n_koren_x(b,c);
P:=a*d;
writeln('P=',P:5:2);
writeln('koren n-oj stepeni iz x=',d:5:2)
end.