((a+b)^3-(a)^3)/(3a(b)^2+(b)^3+3(a)^2b) запись в паскале АВС с округлением получившегося числа до целой а=1000 b=0.0001

Знания

Информатика

1 ответ:

Nolereoo [51]4 года назад

0 0

Var a,b,ab,a2,b2:real;
begin
a:=1000;
b:=0.0001;
ab:=a+b;
a2:=a*a;
b2:=b*b;
writeln((ab*ab*ab-a2*a)/(3*a*b2+b2*b+3*a2*b):3:0);
//((a+b)^3-(a)^3)/(3*a*(b)^2+(b)^3+3*(a)^2*b)
end.

Результат:
1

Или так:
(exp(ln(a+b)*3)-a*a*a)/(3*a*b*b+b*b*b+3*a*a*b)

Читайте также

Составьте программу,которая заполняет массив b[1..15] случайными целыми числами в диапазоне от 1 до 20 и выводит тройки элементо

13voron37 [7]

//Это экспериментальное решение, не воспринимайте всерьёз
var ar:array[1..15] of integer;
i:integer;
begin;
var i1:=1;
while i1<=15 do
begin;
var ar1:=ArrRandomInteger(4,1,20);
sort(ar1);
ar[i1]:=ar1[1];
ar[i1+1]:=ar1[2];
ar[i1+2]:=ar1[3];
writeln(ar1[1]:4,ar1[2]:4,ar1[3]:4);
i1:=i1+3;
end;
writeln('Final array:');
for i:=1 to 15 do
write(ar[i]:4);
end.

0 0

4 года назад

Задана действительная квадратная матрица порядка n. Найти наибольший по модулю элемент матрицы. Не используя вспомогательного ма

Vivien88

// 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

4 года назад

Прочитать ещё 2 ответа

Напишите срочно, пожалуйста Алгоритм, математичкскую модель( с div и mod) Бегун ходит в 3 раза медленнее, чем бегает. Скорость е

Stacy777 [50]

При беге S=vt, ходьбе S=v1*t1, S одинаково, t1=vt/v1=3*t -ответ

0 0

4 года назад

Коротке повідомлення (5-10 речень) на тему: "Які функції виконують антивірусні програми?"

aborigen

Антивірусне програмне забезпечення зазвичай використовує два різних методи для виконання своїх задач.Наприклад:Перегляд (сканування) файлів для пошуку відомих вірусів, що відповідають визначенню в словнику вірусів та знаходження підозрілої поведінки будь-якої з програм, що схожа на поведінку зараженої програми.При цьому методі антивірусна програма під час перегляду файлу звертається до словника з відомими вірусами, що складений авторами програми-антивірусу.У разі відповідності якоїсь ділянки коду програми, що проглядається, відомому коду (сигнатурі) вірусу в словнику, програма-антивірус може виконувати одну з наступних дій.Хоча антивірусні програми створені на основі пошуку відповідності визначенню вірусу в словнику, за звичайних обставин, вони можуть досить ефективно перешкоджати збільшенню випадків зараження комп'ютерів, автори вірусів намагаються триматися на півкроку попереду таких програм-антивірусів, створюючи «олігоморфні», «поліморфні» і, найновіші, «метаморфічні» віруси, у яких деякі частини шифруються або спотворюються так, щоб неможливо було знайти спільне з визначенням в словнику вірусів.

0 0

4 года назад

Помогите с решением этой проблемы!!!

артур 174

В ошибке сказано, что драйверы на устройство от Nvidia повреждены/неправильно установлены или устарели. Обнови их и посмотри, что будет.

0 0

4 года назад

((a+b)^3-(a)^3)/(3*a*(b)^2+(b)^3+3*(a)^2*b) запись в паскале АВС с округлением получившегося числа до целой а=1000 b=0.0001

((a+b)^3-(a)^3)/(3a(b)^2+(b)^3+3(a)^2b) запись в паскале АВС с округлением получившегося числа до целой а=1000 b=0.0001