Приклади складання алгоритмів для роботи з масивами

Приклад 1. Хай в одновимірному масиві Х є n значень величини х. Треба знайти їхні середні значення.

Наведемо формули, за якими обчислюються середні величини.

Середнє арифметичне:

Середнє квадратичне:

Середнє кубічне:

Середнє гармонійне:

Середнє геометричне:

Перші чотири формули можна об’єднати в одну формулу:

При k=1, k=2, k=3 маємо формули (1), (2), (3). Якщо k= - 1, то маємо формулу (4).

Алгоритм може мати вигляд:

АЛГ Знаходження середніх значень (ціл n, дійсн Таб X[1:n], Ср[1:5])

АРГ n, X

РЕЗ Ср

ПОЧ ціл і, m, k, дійсн s, p, літ таб nc[1:5]

‘Формування масиву назв середніх значень

nc[1]:=’ арифметичне ‘

nc[2]:=’ квадратичне‘

nc[3]:=’ кубічне ‘

nc[4]:=’ гармонійне ‘

nc[5]:=’ геометричне ‘

p:=1

для m від 1 до 5

пц

s:=0

Вибір

при m=1: k=1

при m=2: k=2

при m=3: k=3

при m=4: k= - 1

Все

для і від 1 до n

пц

якщо

то s:=s+X[i]^k

інакше p:=p*X[i]

все Призначення комірок:

Все

кц

для m від 1 до 5

пц

ДРУКУВАТИ (‘ Середнє ‘, nc[i], ‘дорівнює’, Cp[m])

кц

КІН

З урахуванням того, що , алгоритм мовою Паскаль має вигляд:

Program Middle;

const n=100;

Name: array [1..5] of string [15]=(‘ арифметичне ‘, ‘ квадратичне ‘, ‘ кубічне ‘, ‘ гармонійне ‘, ‘ геометричне ‘);

var A: array [1..n] of real;

Mid: array [1..5] of real;

i, j: word; S, p: real;

k: shortint;

Begin

S:=0; p:=1;

for i:=1 to 5 do

Begin

S:=0;

case і of

1: k:=1;

2: k:=2;

3: k:=3;

4: k:= - 1;

end;

for j:=1 to n do

if j< >5

then S:=S+exp(k*(ln(A[j])

else p:=p*A[j];

if i< >5

Поиск по сайту: