Вторая пачка часть 159
0;
FOR I := 1 TO N DO
CASE K OF
1: SS := SS+X[I];
2: SS := SS + SQR(X[I]);
END;
SUMX := SS;
END.
Формальные параметры процедуры. Входные: N (тип in¬teger) - общее число точек, ко¬то¬рые суммируем; К (тип integer) - параметр, оп¬р嬬де¬ля¬ю¬щий тип сум¬ми¬ро¬ва¬ния: К = 1 - сум¬ми¬ру¬ем первые степени хi; К = 2 - су쬬ми¬ру¬ем квад¬ра¬ты чисел хi. Выходной: про¬цедура воз¬вра¬щает число (тип real), равное ис¬ко¬мой сум¬ме.
FUNCTION SUMXY (N,K:INTEGER; X,Y: MAS1) : REAL;
VAR SS : REAL; I : INTEGER;
BEGIN
SS := 0.0;
FOR I := 1 TO N DO
SS := SS+X[I]*Y[I];
SUMXY := SS;
END.
Формальные параметры процедуры. Входные: N (тип in¬¬teger) - общее чис¬ло точек, ко¬то¬рые суммируем; К (тип integer) - параметр, оп¬ре¬д嬬ля¬ющий тип сум¬ми¬ро¬ва¬ния: К = 1 - суммируем про-изведение первых ст嬬пе¬ней хi на уi. Выходной: процедура возвращает чис¬¬ло (тип real), равное искомой сумме.
В параграфах этой главы предложенные процедуры бу¬дут мди¬фи¬цироваться за счет вклю-чения в оператор САSЕ но¬вых вариантов конструкций сумм.
Теперь, используя предложенные процедуры-фун¬¬к¬¬ции, можно определить про¬цедуры, вы¬пол-ня¬ю¬щие вы¬чис¬ления неизвестных параметров А и В. Зବме¬тим, что все вычисления можно было бы свес¬ти к одной проце¬дуре, но для яс¬нос¬ти изложения бы¬ло решено составить для каждого варианта вы¬чис¬ления свою.
Метод выбранных точек при В = 0 настолько прост, что вы¬чис¬ли¬тель¬ная процедура не со-став¬ля¬ет¬ся.
Метод средних и метод наименьших квад¬ра¬тов. Pа¬бо¬той фун¬кции управляет па¬ра¬метр К, который при К = 1 вызывает определение А м嬬тодом средних, а при К = 2 - методом наименьших квад¬ратов.
FUNCTION A (N : INTEGER; X,Y : MAS1; K : INTEGER) : REAL;
VAR S : REAL;
BEGIN
CASE K OF
1: S := SUMX (N,1,Y) / SUMX (N,1,X);
2: S := SUMXY(N,1,X,Y) / SUMX (N,2,X);
END;
A := S;
END.
{ **** МЕТОД ВЫБРАННЫХ ТОЧЕК ДЛЯ А ? 0; В ? 0*** }
POCEDURE AB1 (X1,Y1,X2,Y2 : REAL; VAR A,B : REAL;
VAR K : INTEGER);
BEGIN
IF ABS(X2-X1)<1
Индекс
Элементарные функции
Линейные уравнения
Нелинейные уравнения
Случайные числа
