Практикум по основам программирования. Язык Паскаль

PROGRAM ERROR1 (OUTPUT);

VAR A:REAL;

FUNCTION F<XsREAL)sREAL;

BEGIN F :-X;

IF X<0 THEN F :=F+X

END;

PROCEDURE WI(VAR X:REAL; Y :REAL);

BEGIN X:=SINY END;

BEGIN WI(A,F(5)); WRITELN(As 6) END.

14*. Определить, что будет выдано на печать в резуль­ тате выполнения приведенной ниже программы:

PROGRAM ERR(OUTPUT);

VAR С sCHAR;

PROCEDURE P (X ,Ys CHAR);

BEGIN Y :=SUCC(X) END;

PROCEDURE Q (XsCHAR; VAR Y :CHAR);

BEGIN Y:=SUCC(X) END;

BEGIN C: - 'A '; P C B ’.C); WRITELN('C=',C);

C: = 'A '; Q (*В *,C); WRITELN(* C = C )

END.

15*. Написать функцию, обеспечивающую вычисление выражения

т\(п-т)\

где О ^ т ^ п .

9.4.ПРАКТИЧЕСКИЕ ЗАДАНИЯ

З А Д А Н И Е 1. ОРГАНИЗАЦИЯ ПРОГРАММ С ИСПОЛЬЗОВАНИЕМ ФУНКЦИЙ

Це л ь з а д а н и я

1.Получение навыков в написании программ с ис­ пользованием функций.

2.Изучение механизма передачи параметров по значе­ нию.

П о с т а н о в к а з а д а ч и Написать программу, которая вычисляет сумму

значений заданной в варианте функции F(X,Y) в пяти различных точках. Вычисление F(X,Y) оформить в ви­ де функции.

М е т о д и ч е с к и е у к а з а н и я

1.Если в качестве исходной информации в процедуру передается массив, то его следует передавать по ссылке для экономии памяти, так как в этом случае при вы­ зове процедуры не образуется локальный массив.

2.Несмотря на то что обрабатываемые массивы имеют разную длину, они описываются в программе как мас­ сивы одного и того же типа, так как при обращении к процедуре типы соответствующих формальных и фак­

тических параметров должны совпадать.

3. Приведенная ниже программа упорядочивает по не­ убыванию три массива разной длины (10,5,8) и выво­ дит их на печать. Упорядоченные массивы использу­ ются для построения массива с минимальной длиной(5). Новый массив образуется путем перемножения

FOR Js=l TO К DO WRITE<MCJ3:6:2);

WRITELN

END;

BEGIN

WWOD(10,X); WWOD <5,Y ); WW0D(8,Z>;

U P (10,X); UP <5,Y ); UP(8,Z);

WRITELN('МАССИВЫ ПОСЛЕ УПОРЯДОЧЕНИЯ');

WUWOD(10,X); WUWOD <5,Y ); WUWOD<3,Z);

WRITELN('РЕЗУЛЬТАТ');

FOR I:= 1 TO 5 DO RESCI 3:*XСI3*YCI3*ZСI3;

WUWOD(5,RES)

END.

П о с т а н о в к а з а д а ч и

Заданы три функции: F1(X), F2(X), F3(X). Требует­ ся найти определенный интеграл от каждой функции с точностью 10‘4 в заданных пределах. Для решения задачи использовать численный метод вычйсления оп­ ределенного интеграла - метод прямоугольников.

С о д е р ж а н и е о т ч е т а

1.Постановка задачи.

2.Описание численного метода интегрирования.

3.Тест и результаты отладки.

4.Текст программы и результаты ее выполнения.

5.Выводы.

М е т о д и ч е с к и е у к а з а н и я

1. Описание метода прямоугольников. Пусть требуется

ь

вычислить значение Jf(x)dx с заданной точностью

а

График функции f(x) представлен на рис. 9.1.

Найти значение определенного интеграла - это зна­ чит найти площадь заштрихованной области. Для вы­ числения первого приближения интеграла разделим отрезок [а,Ь] на п равных частей (л=4), определим зна­ чения /(*,), ще х, - a + hf- А/2; h - (Ь- а ) / п (рис. 9. 2).

Вычислим площадь sj каждого из полученных прямоугольников: s,-hf(x,). Сумма si площадей этих прямоугольников является приближенным значением интеграла:

*1“ £ $ -л £ /(д * ). <-i /-1

Однако одно приближение не позволяет оценить точность, с которой вычислено значение интеграла, не­

обходимо найти второе приближение. Для этого увели­ чим п в два раза, т. е. п:=2п. Аналогично s i найдем

* 2 -* £ /(* ). «•-1

Требуется вычислить значение интеграла с точно­ стью £, поэтому проверим условие Isl - s2I < & Если условие выполняется, то s2 принимается за искомое значение интеграла; если не выполняется, то послед­

отрезка и вычислим новое значение s2. Процесс удвое­ ния п и вычисления s2 будем продолжать до тех пор, пока модуль разности si и s2 не станет меньше &.

2. Вычисление интеграламетодом прямоугольни­ ков можно оформить либо в виде процедуры, либо в виде функции. Для функции в качестве формальных параметров следует принять границы интегрирования, имя подынтегральной функции, точность вычисления интеграла, а для процедуры еще и выходное значение интеграла. Например, заголовок функции вычисления интеграла может иметь вид

FUNCTION INT(A,B,E:REAL; FUNCTION F:REAL):REAL;

Заголовок процедуры вычисления интеграла может быть таким:

PROCEDURE W(A,B,E:REAL; FUNCTION F:REAL; VAR INTrREAL);

или параметр-функция содержал описание своих параметров, т. е.

PROCEDURE W(A,B,E:REAL; FUNCTION F(X:REAL):REAL; VAR INT:REAL);43

3. Так как в задании требуется найти значение интег­ рала для трех различных функций, то в программе следует описать три функции, имена которых должны подставляться в качестве фактических параметров при обращении к процедуре (функции) вычисления интег­ рала.

4. Структура программы должна иметь такой вид:

Заголовок программы. Описание переменных. Описание первой функции. Описание второй функции. Описание третьей функции.

Описание процедуры (функции) вычисления интеграла.

Раздел операторов.

/ э - У 2* -Т ; a j - 0,3; А3- 1,0.

а “ *g3^f +-4); аз - 0 ’0;