Задание 1.
Составить программу для вычисления функции У, заданной различными аналитическими выражениями, в которых используются элементы массива В, П и переменная Х, заданная её начальным значением 16, конечным значением 2 и шагом изменения 3,5. В - одномерный массив, состоящий из 16 элементов.
Вi- ?(X/Bi), где X>8 и Bi=5
Y= X3+ sin (Bi2-?) , где X<8 или Bi<5
cosX +?I ?- Bi2I , при всех других значениях X и Bi
Решение:
Program1;
Uses crt;
Var b: array [1..20] of real;
i: integer;
begin
clr scr;
For I :=16 downto 2 step 3.5 do
Begin
Write(b[i]);
If (i >8) and (b[i]=5) then
Y:= b[i]^5- sqrt(i/b[i])
Else
If (i<8) or (b[i]<5) then
Y:= i^3 + sin (b[i]^2 - Pi)
Else
Y:= cos(i) + sqrt(abs(Pi- b[i]^2);
Writeln;
Writeln('b[i]=',b[i], 'X=',i, 'Y=',Y);
End;
End.
|