Контрольная. Составление программ.

ID работы - 619455
информатика (контрольная работа)
количество страниц - 5
год сдачи - 2012

---

СОДЕРЖАНИЕ:

---

Cодержание


Задание 1. 3
Составить программу для вычисления функции У, заданной различными аналитическими выражениями, в которых используются элементы массива В, П и переменная Х, заданная её начальным значением 24, конечным значением -4 и шагом изменения 2. В – одномерный массив, состоящий из 5 элементов.
Вi3 *? – cos(?-X), где X<13 или 5 Y= X2+ sin (Bi /?) , где X>13 и Bi<5
sinX +vI Bi I , при всех других значениях X и Bi
Задание 2. 5

Составить программу обработки элементов матрицы, состоящей из 15 строк и 5 столбцов, находящую сумму отрицательных элементов 5 строки и произведение элементов 5 столбца, больших 9,93.

---

ВВЕДЕНИЕ:

---

Задание 1. 3
Составить программу для вычисления функции У, заданной различными аналитическими выражениями, в которых используются элементы массива В, П и переменная Х, заданная её начальным значением 24, конечным значением -4 и шагом изменения 2. В – одномерный массив, состоящий из 5 элементов.
Вi3 *? – cos(?-X), где X<13 или 5 Y= X2+ sin (Bi /?) , где X>13 и Bi<5
sinX +vI Bi I , при всех других значениях X и Bi
Задание 2. 5

Составить программу обработки элементов матрицы, состоящей из 15 строк и 5 столбцов, находящую сумму отрицательных элементов 5 строки и произведение элементов 5 столбца, больших 9,93.
Задание 1.
Составить программу для вычисления функции У, заданной различными аналитическими выражениями, в которых используются элементы массива В, П и переменная Х, заданная её начальным значением 24, конечным значением -4 и шагом изменения 2. В – одномерный массив, состоящий из 5 элементов.

Вi3 *? – cos(?-X), где X<13 или 5 Y= X2+ sin (Bi /?) , где X>13 и Bi<5
sinX +vI Bi I , при всех других значениях X и Bi
Решение:
Program1;
Uses crt;
Var b: array [1..20] of real;
i: integer;
begin
clr scr;
For I :=24 downto -4 step 2 do
Begin
Write(b[i]);
If (i >13) or (b[i]>5)and (b[i]<7) then
Y:= b[i]^3*Pi- cos (Pi- i)
Else
If (i>138) and (b[i]<5) then
Y:= i^2 + sin (b[i]/ Pi)
Else
Y:= sin(i) + sqrt(abs( b[i]);
Writeln;
Writeln(‘b[i]=’,b[i], ‘X=’,i, ‘Y=’,Y);
End;
End.

---

СПИСОК ЛИТЕРТУРЫ:

---

Цена: 1000.00руб.