Проблемно-ориентированная информатика химико-технологических процессов. Кравцов А.В - 39 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

Пример 3.1.2 Составить программу расчета массива Z(10)
(
)
Z
fx
c
x
Sq
i
i
=+
⋅
2
2
sin
.
Расчет функции
f(x) оформить в виде подпрограммы – функции
()
fx
xx
xx
=
>
+⋅ ≤
⎧
⎨
⎩
13
12 3
3
,,
,.
Расчет суммы – в виде подпрограммы – процедуры
Sx
i
i
=
=
∑
1
15
.
TYPE mas=ARRAY [1..10] OF real;
VAR x, z:mas; c, q, S:real;
FUNCTION F(x:real):real;
BEGIN
IF x>3 THEN f:=1/x ELSE f:=1+2∗x∗sqr(x);
END;
PROCEDURE Sum(x:mas;VAR S:real);
VAR i:integer;
BEGIN
S:=0;
FOR i:=1 TO 10 DO S:=S+sqrt(x[i]);
END;
BEGIN
writeln(’ c q’);
readln(c,q);
FOR i:=1 TO 10 DO
BEGIN
write(’X[’,i,’]=’);
readln(x[i])
END;
Sum(x,S);
FOR i:=1 TO 10 DO
BEGIN
P[i]:=sqr(f(x[i]))/sin(c)+sqrt(x[i])/(sqr(S)
∗q);
writeln(’P[’,i,’]=’,P[i]:10);
END;
END.
39

Страницы