Cодержание

Задание 1. 3

18.Составить программу для вычисления функции У, заданной различными аналитическими выражениями, в которых используются элементы массива В, П и переменная Х, заданная её начальным значением 30, конечным значением 3 и шагом изменения 3. В – одномерный массив, состоящий из 8 элементов.

Задание 2. 6

18.Составить программу обработки элементов матрицы, состоящей из 8 строк и 18 столбцов, находящую сумму элементов 8 строки и произведение элементов 8 столбца, значения которых не равны 0 и 1.

Задание 3. 9

1.18Дано нелинейное уравнение sin x=0,2x. Найти корни этого уравнения:

1. Построить на первом листе Гладкий график функции на интервале [-5,10] с шагом 0,2;

2. На втором рабочем листе оформить вычисление уточнения значения одного из корней с точность 0,001 методом деления отрезка пополам.

Задание4. 15

Дана система линейных уравнений: разделить первое уравнение на А11?0 (значение коэффициента при 1 неизвестном первой строки. Если А11=0, то среди первых элементов найти ненулевой элемент и перестановкой строк переместить его на главную диагональ.

Задание 1. 3

18.Составить программу для вычисления функции У, заданной различными аналитическими выражениями, в которых используются элементы массива В, П и переменная Х, заданная её начальным значением 30, конечным значением 3 и шагом изменения 3. В – одномерный массив, состоящий из 8 элементов.

Задание 2. 6

18.Составить программу обработки элементов матрицы, состоящей из 8 строк и 18 столбцов, находящую сумму элементов 8 строки и произведение элементов 8 столбца, значения которых не равны 0 и 1.

Задание 3. 9

1.18Дано нелинейное уравнение sin x=0,2x. Найти корни этого уравнения:

1. Построить на первом листе Гладкий график функции на интервале [-5,10] с шагом 0,2;

2. На втором рабочем листе оформить вычисление уточнения значения одного из корней с точность 0,001 методом деления отрезка пополам.

Задание4. 15

Дана система линейных уравнений: разделить первое уравнение на А11?0 (значение коэффициента при 1 неизвестном первой строки. Если А11=0, то среди первых элементов найти ненулевой элемент и перестановкой строк переместить его на главную диагональ.

Задание 1.

18.Составить программу для вычисления функции У, заданной различными аналитическими выражениями, в которых используются элементы массива В, П и переменная Х, заданная её начальным значением 30, конечным значением 3 и шагом изменения 3. В – одномерный массив, состоящий из 8 элементов.

Sin(Вi) – cos(Bi/X), где X<12 и Bi>10

Y= X2+ (Bi /?)2 , где X>12 и Bi=10

vI Bi – X3 +?I , при всех других значениях X и Bi

Решение:

Program1;

Uses crt;

Var b: array [1..20] of real;

i: integer;

begin

clr scr;

For I :=30 downto 3 step 3 do

Begin

Write(b[i]);

If (i >12) and (b[i]>10) then

Y:= sin(b[i])- cos (b[i]/ i)

Else

If (i>12) or (b[i]=10) then

Y:= i^2 + (b[i]/ Pi)^2

Else

Y:= sqrt(abs( b[i]- i^3 +Pi);

Writeln;

Writeln(‘b[i]=’,b[i], ‘X=’,i, ‘Y=’,Y);

End;

End.

Примечаний нет.