Паскаль в примерах. Иринчеев А.А - 45 стр.

UptoLike

ВУЗ: 

ВСГУТУ | Улан-Удэ

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

Рубрика: 

45
FOR I:=1 TO N DO
BEGIN
P:=P*I:
END;
WRITELN(‘Ответ: P = ’,P:8:3);
READLN;
END.
Рассмотрим пример следующего типа.
Пример 20. Вычислить
ya
ii
N
=−
∑
()*1
1
.
Решение. В данном случае нам необходимо учесть знакочередование функции.
PROGRAM PR20;
VAR
I,N,P:INTEGER;
A.Y: REAL;
BEGIN
WRITE(‘ Введите N ’);
READLN(N);
WRITE(‘ Введите число A ’);
READLN(A);
P:=1;
Y:=0;
FOR I:=1 TO N DO
BEGIN
P:=P*(-1):
Y:=Y+(P)*(EXP(I*LN(A)));
END;
WRITELN(‘Ответ: Y = ’,Y:8:3);
END.
Пример 21. Определение наименьшего значения по выражению
K
3
*sin (n+
k
n
)
, где к= 1,2, ..N.
PROGRAM PR21;
VAR
ELEM, MIN, REAL;
K,N:INTEGER;
BEGIN
WRITE(‘Введите N ‘);
READLN(N);
MIN:= SIN(N+1/N);
FOR K:= 2 TO N DO
BEGIN
ELEM:=K*K*K*SIN(N+K/N);
IF ELEM < MIN THEN MIN:=ELEM
END;
WRITELN(‘MIN = ‘,MIN:8:5);
END. 
      FOR I:=1 TO N DO
        BEGIN
         P:=P*I:
        END;
      WRITELN(‘Ответ: P = ’,P:8:3);
       READLN;
   END.

Рассмотрим пример следующего типа.
                                  N
     Пример 20. Вычислить y = ∑ ( −1)i * a i .
                                  1
     Решение. В данном случае нам необходимо учесть знакочередование функции.
PROGRAM PR20;
 VAR
  I,N,P:INTEGER;
  A.Y: REAL;
   BEGIN
    WRITE(‘ Введите N ’);
     READLN(N);
      WRITE(‘ Введите число A ’);
       READLN(A);
        P:=1;
        Y:=0;
         FOR I:=1 TO N DO
          BEGIN
           P:=P*(-1):
           Y:=Y+(P)*(EXP(I*LN(A)));
           END;
        WRITELN(‘Ответ: Y = ’,Y:8:3);
    END.

    Пример 21. Определение наименьшего значения по выражению
           k
K3 *sin (n+ ), где к= 1,2, ..N.
           n
PROGRAM PR21;
 VAR
 ELEM, MIN, REAL;
 K,N:INTEGER;
BEGIN
  WRITE(‘Введите N ‘);
  READLN(N);
    MIN:= SIN(N+1/N);
      FOR K:= 2 TO N DO
       BEGIN
         ELEM:=K*K*K*SIN(N+K/N);
          IF ELEM < MIN THEN MIN:=ELEM
       END;
  WRITELN(‘MIN = ‘,MIN:8:5);
   END.




                                                                                45

Страницы