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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

Пример 3.1.3 Составить программу для расчета выражения
Fx
i
i
k
k
=+
==
∑∑
2
3
8
3
2
10
y
.
TYPE mas=ARRAY [1..20] OF real;
VAR x, y:mas; f:real; i,k:integer;
FUNCTION Sum(a:mas; n1,n2,p:integer):real;
VAR S:real; i:integer;
BEGIN S:=0;
FOR i:=n1 TO n2 DO S:=S+exp(p∗ln(a[i]));
Sum:=S
END;
BEGIN
{Ввод массивов x и y с клавиатуры.}
FOR i:=1 TO 8 DO
BEGIN
write(’x’,i, ’=’); readln(x[i]);
END;
FOR k:=1 TO 10 DO
BEGIN
write(’y’, k, ’=’); readln(y[k]);
END;
F:=Sum(x,3,8,2)+Sum(y,2,10,3);
writeln(’F=’,F:10)
END.
Пример 3.1.4
PROGRAM Stepen;
VAR x,y:real;
f1,f2:text;
FUNCTION POWER(a,b:real):real;
BEGIN
IF
a > 0 THEN power:=exp(b*ln(a))
ELSE
IF
a < 0 THEN power:=exp(b*ln(abs(a)))
ELSE
IF
b=0 then power:= 1
ELSE
power:=0;
END
;
40

Страницы