# Вторая пачка часть 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

Индекс
Элементарные функции Линейные уравнения Нелинейные уравнения Случайные числа