Этапы программирования

Выполнение

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

Для заданного случайным образом массива х (1.5<=x<=2.5), состоящего из 12 элементов, определить среднее арифметическое для всех x и среднее геометрическое для х>2.

2. Математическое описание

- среднее арифметическое.

- среднее геометрическое

3. Разработка структограммы

4. Написание программы

Program PK1;

Var x:array [1..12] of real;

i,n,k:integer;

A,P:real;

Begin

A:=0; P:=1; n:=12; k:=0; {задание нач. зн.}

Randomize; {подключение генератора

случайных чисел}

For i:=1 to 12 do

Begin

x[i]:=random+1.5; {генерация x∈(1.5,2.5)}

A:=A+x[i]; {сумматор для среднего

арифметического}

If x[i]>2 then

Begin

P:=P*x[i]; {произведение для вычисление среднего геометрического}

k:=k+1; {счетчик сомножителей для вычисление среднего геометрического}

end;

end;

A:=A/n; {среднее арифметическое}

P:=exp(Ln(P)/k); {среднее геометрическое}

Writeln(A,P);

end.

5. Отладка и получение результатов

Выполнить самостоятельно.

Этапы программирования

Выполнение

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

Для шести произвольных значений X∈(1,3) рассчитать и записать массив Y.

2. Математическое описание

—

3. Разработка структограммы

4. Написание программы

Program P6;

Var

x,y:array[1..6] of real;

I:integer;

Begin

X[1]:=1,2;X[2]:=2,5;X[3]:=2,9;{зад. массивов}

X[4]:=1,7;X[5]:=1,5;X[6]:=2,3; {опер. присв.}

For i:=1 to 6 do

Begin

If x[i]<2 then y[i]:=exp(x[i]*ln(2,5));

If x[i]>=2 then y[i]:=sqr(sin(x[i])/cos(x[i]);

Writeln(x[i],y[i]);

End;

End.

5. Отладка и получение результатов

Выполнить самостоятельно

X

f(x)

2 f(x)

f(2x)

f(x+1)+2

|f(|x|)|

Вар.

f(x)

Вар.

f(x)

1

sin(x)

16

2+x

2

cos(x)

17

2-x

3

tg(x)

18

1/x²

4

ctg(x)

19

ln (x)

5

arcсos(x)

20

lg (x)

6

arctg(x)

21

log₂(x)

7

2∙e^x

22

3∙x^1.5

8

23

4∙1.5x

9

1/(x+1)

24

sin(x)/x

10

1/(x²+1)

25

sin(3x)

11

(x-1)²

26

sin²(x)

12

x²-1

27

3∙cos²(x)+1

13

x³+1

28

2tg²(x)

14

29

arctg(2x)

15

1-e^-x

30