Question

Составить программу вычисления и печати значений функции  Y=sin(x-1)/2x. Значения аргументов задать в массиве X, состоящего  из 6 элементов. Значения функции записать в массив Y.

Answer 1

USES Crt;
 VAR
   X,Y:ARRAY[0..6] OF REAL;
   I: BYTE;
 BEGIN
   ClrScr;
   FOR I:=1 TO 6 DO Begin
     Write('Введите ',I,' значение аргумента '); ReadLn(X[I]);
   End;
   FOR I:=1 TO 6 DO Begin
     Y[I]:=SIN(X[I]-1)/(2*X[I]);
     WriteLn(' X= ',X[I]:4:1,'   Y=',Y[I]:5:2);
   End;
 END.