| Вариант
| Номера тем
| Вариант
| Номера тем
|
|
| 5, 14
|
| 7, 10
|
|
| 6, 13
|
| 8, 9
|
|
| 7, 12
|
| 9, 12
|
|
| 8, 11
|
| 6, 8
|
|
| 9, 10
|
| 7, 9
|
|
| 6, 14
|
| 5, 6
|
|
| 7, 13
|
| 7, 8
|
|
| 8, 12
|
| 11, 13
|
|
| 9, 11
|
| 12, 14
|
|
| 10, 8
|
| 13, 10
|
|
| 5, 9
|
| 9, 14
|
|
| 6, 11
|
| 7, 9
|
Тема 16. Процедурные типы.
Использовать процедурные типы в программах, разработанных при выполнении заданий по предыдущим темам. Управляющий параметр ввести с клавиатуры.
Пример 1.Вычислить
, где
-функция аргумента x, вид которой зависит от целочисленного управляющего параметра flag.
Значения flag и x ввести с клавиатуры. Значение y вывести на экран монитора.
program pr16;
uses crt;
type fun = function(x: real): real;
function f1(x: real): real; far;
begin
f1:= sin(x)+ cos(x)
end;
function f2(x: real): real; far;
begin
f2:= sin(x)-cos(x)
end;
function f3(x: real): real; far;
begin
f3:= sin(x)*cos(x);
end;
function sfun(x: real; f: fun): real;
begin
sfun:= sqrt(1 + sqr(f(x)))
end;
var x1: real;
flag: shortint;
ff: fun;
begin clrscr;
write('Введите x ->');
readln(x1);
write('Введите управляющий параметр ->');
readln(flag);
if flag = -1 then ff:= f1 else if flag = 0
then ff:= f2 else ff:= f3;
writeln('y = ', sfun(x1, ff):6:3);
readkey
end.
