|
Задание 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.
|
На уровень вверх
Купить