aliya77usa
18.08.2022 09:09

ОЧЕНЬ Разработать алгоритм и составить программу для табулирования функции на некотором промежутке [а; b] с шагом h и обработки значений функции согласно условия. Значение a, b, h ввести с стандартной функции ввода. Результаты вывести в виде таблицы: значение аргумента и соответствующее ему значение функции. Вычисление выражения оформить в виде функции.
y = lnk^4+lgm^-6
Условие: определить сумму, количество и произведение отрицательных значений функции.

Как переделать код чтобы он соотвествовал задиню?

#include
#include
#include
#include
#include
void vuraz( float Xk, float x, float h)
{
float y;
while (x < Xk)
{

if (x < -14)
y = x * fabs(x + 21);
else
if (x >= -14 && x < -5)
y = pow(x, 2) * log(fabs(pow(x, 2) + 48));
if (x >= -5 && x < 0)
y = (x / 3) + sqrt(pow(x, 2) + 16);
else
y = 2 + (x / 3);

printf("\n| %7.2f | %7.2f | ", x, y);
x += h;
}

}
int main()
{

setlocale(0, ""); int t; float X0, Xk, x, y, h;
printf("Введ1ть дан1:\n");
printf("t = "); scanf("%d", &t);
printf("\nВвед1ть Хпоч," "Хк1н, h ... ");
scanf("%f %f %f", &X0, &Xk, &h);
printf("\nІнтервал [%3.2f, %3.2f]\n Крок h = %3.2f\n", X0, Xk, h);
printf("\n\n| x \t | y \t |");
printf("\n|||");
vuraz(Xk,x,h);
printf("\n");
return 0;
}

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
ket95651
10.01.2021 15:35

program matrica;

const k=10;

type vector=array[1..k]o byte; masiv=aray[1..k] o vector;

var b:masiv;

procedure vved(n:byte; var a masiv);

var i,j:byte;

begin

randomize;

for i:=1 to n do

for j:=1 to n do

a[i,j]:=0;

for j:=round(n/2) to n do

for i:=n-j+1 to j do

a[i,j]:=random(255);

end;

proceure vuvid(n:byte;:masiv);

var i,j:byte;

begin

for i:=1 to  do

begin

for j:=1 to n do

write(a[i,j]:5);

riteln;

end;

end;

procedure rahnok(n:byte; a:masiv);

var i,j:byte; s,l:byte;

begin

l:=0;

for j:=1 to round(n/2) do

for i:=j to (n-j+1) do

if (a[i,j] mod 2=0) then l:=l+1;

writeln('kilkist=' l);

0,0(0 оценок)
Ответ:
Dimon2005Dima
10.01.2021 15:35
// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк/столбцов в матрице:');
  var a:=MatrRandom(n,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var ijv:=a.ElementsWithIndexes.Select(x->(x[0],x[1],abs(x[2])))
      .MaxBy(x->x[2]);
  for var i:=ijv[0] to n-2 do a.SwapRows(i,i+1);
  for var j:=ijv[1] to n-2 do a.SwapCols(j,j+1);
  SetLength(a,n-1,n-1); a.Println(4)    
end.

Пример
Количество строк/столбцов в матрице: 5
  87  -5 -38  -9  57
  31  66  57 -25  40
  11  66  99 -79  91
  12  95  93  27 -97
  33 -94  14  19  39

  87  -5  -9  57
  31  66 -25  40
  12  95  27 -97
  33 -94  19  39
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота