М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
messi114
messi114
22.02.2023 23:49 •  Информатика

с клавиатуры вводятся аргументы, найти и вывести значение функции t=e^-ax*корень(x+1)+e^ax*корень(x-1)

👇
Ответ:

1. Создадим код для программы Pascale:

function f(x, a: real): real;

begin

 f := exp(-x) - a * x

end;

 

function root(xmin, xmax, a, eps: real): real;

var fc, fm, xc: real;

begin

 repeat

   xc := (xmin + xmax) / 2;

   fc := f(xc, a);

   fm := f(xmax, a);

   if ((fc >= 0) and (fm >= 0)) or ((fc <= 0) and (fm <= 0))

     then xmax := xc

     else xmin := xc

 until abs(xmax - xmin) < eps;

 root := (xmin + xmax) / 2 {можно просто root := xmin, или root := xmax}

end;

 

var a, eps: real;

 

begin

 repeat

   write('Точность вычисления > 0;  eps = ');

   readln(eps)

 until eps > 0;

 write('Параметр a = ');

 readln(a);

 if a > 0

   then writeln('x = ', root(0, 1 / a, a, eps))

   else if a = 0

     then writeln('x стремится к бесконечности')

     else if a > -exp(1)

       then writeln('При данном параметре корней не существует.')

       else if a = -exp(1)

       then writeln('x = ', -1.0)

       else writeln('x1 = ', root(-ln(-a), 0, a, eps), ', x2 = ', root(-2 * ln(-a), -ln(-a), a, eps));

 readln

end.

2. Активируем код в Pascale

3.Вводим значение t=e^-ax*KOREN(x+1)+e^ax*KOREN(x-1)

Все буквы русского языка были заменены на английские так-как программа не умеет распозновать посторонние языки

4.Получаем нужное значение

Объяснение:

Pascale ABC

4,5(9 оценок)
Открыть все ответы
Ответ:
yra221111
yra221111
22.02.2023
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var n:=ReadInteger('n=');
  var a:=MatrixRandom(n,n,10,99);
  var s:=0;
  var k:=0;
  for var i:=0 to n-1 do begin
    for var j:=0 to n-1 do Print(a[i,j]);
    Writeln;
    if a[i,i].IsEven then begin s+=a[i,i]; Inc(k) end;
    end;
  if k>0 then Writeln('S=',s/k:0:2)
  else Writeln('На главной диагонали нет четных элементов')
end.

Тестовое решение
n= 8
63 13 33 90 25 21 87 91
88 88 48 13 30 59 81 27
73 23 76 77 52 19 33 97
53 87 13 74 17 35 61 70
77 96 51 61 82 33 63 22
39 88 84 54 88 73 74 69
76 26 69 14 45 80 70 54
80 36 47 38 18 22 84 62
S=75.33
4,5(90 оценок)
Ответ:
KALINACHKA
KALINACHKA
22.02.2023
Program N70231806_1;
var a:array[ 1 .. 10 ] of shortint;
i:byte;
t:shortint;
begin
randomize;
writeln('Исходный массив: ');
for i := 1 to 10 do
begin
a[ i ] := random(21) - 10;
write(a[ i ]:4)
end;
writeln;
t := a[ 10 ];
for i := 10 downto 2 do
a[ i ] := a[ i - 1 ];
a[ 1 ] := t;
writeln('Результат: ');
for i := 1 to 10 do
write(a[ i ]:4);
readln
end.

2)
program N70231806_2;
var a:array[ 1 .. 12 ] of shortint;
i, j:byte;
t:shortint;
begin
randomize;
writeln('Исходный массив: ');
for i := 1 to 12 do
begin
a[ i ] := random(25) - 10;
write(a[ i ]:4)
end;
writeln;
for j := 1 to 4 do
begin
t := a[ 12 ];
for i := 12 downto 2 do
a[ i ] := a[ i - 1 ];
a[ 1 ] := t
end;
writeln('Результат: ');
for i := 1 to 12 do
write(a[ i ]:4);
readln
end.
4,5(37 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ