3 года назад

Вычислите значение функции y=2x^3+6/x^2-7 в диапазоне от 4 до 8 включительно с шагом 0,4

1 ответ:

Acro [38]3 года назад

0 0

Код на haskell

f(x) = 2 * x^3 + 6 / x^2 - 7
xs=[4, 4.4 ..8]
main = print(map f(xs))

вывод
[121.375,163.67791735537196,214.44441666666674,274.43789349112444,344.4233265306125,425.1666666666671,517.4344843750006,621.9937577854678,739.6117407407417,871.0558781163446,1017.0937500000014]

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

Помоги, пожалуйста, с задачей по Паскалю. Если можно, то с объяснением. В трехзначном числе x зачеркнули его последнюю цифру. Ко

Гена41

Разбираем число N на цифры, а затем собираем в нужном порядке:
var n,n1,n2,n3,x:integer;
begin
write('n = ');
readln(n);
n1:=n div 100;
n2:=n div 10 mod 10;
n3:=n mod 10;
x:=n3*100+n2*10+n1;
writeln('x = ',x);
end.

Пример 1:
n = 25
x = 520

Пример 2:
n = 823
x = 328

0 0

4 года назад

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

Выберите номера команды, при выполнении которых выделенный фрагмент текста попадает в буфер обмена: 1.Открыть 2.Копировать 3.Уда

anitserh [352]

1. Открыть
2. Найти
3. Копировать

0 0

3 года назад

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

Какой формат архива из ниже перечисленных является наиболее распространенным и подходящих для пересылки файлов другим людям? Вы

Иза [6]

из ниже перечисленных zip конечно

0 0

4 года назад

Пожалуйста, Папка ,в которую вложена другая папка, является для нее... А) вложенной В) родительской С)каталогом D)среди ответо

Айдол [165]

С)каталогом
D) графический редактор

0 0

4 года назад

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

Решить задачу в стиле турбо паскаля 80-х годов. Тема: Одномерные массивы Известны данные о мощности двигателя(в л.с.) и стоимост

Антонина Шрейдер [7]

Uses Crt;

const
n=30;

type
tA=array[1..n] of integer;
tS=array[1..n] of string[30];

var
i:integer;
p,c:tA;
s:tS;

begin
ClrScr;
for i:=1 to n do begin
 Write('Марка автомобиля ',i,': ');
 Readln(s[i]);
 Write('его мощность (л.с.) и стоимость (руб.); ');
 Readln(p[i],c[i])
 end;
Writeln;
Writeln('Автомобили мощностью не более 80 л.с.');
for i:=1 to n do
 if p[i]<=80 then Writeln(s[i]:30,p[i]:10,c[i]:10);
ReadKey;
end.

0 0

4 года назад