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

Составьте программы для вычисления следующих формул: а) z=3+x^2-3x^3; б) d=x(sin x+cos x^2+ixi);

👇
Ответ:
omtanya
omtanya
18.10.2021
Программа:
var x,z,d:real;
begin
write('x = '); readln(x);
z:=3+x*x-3*x*x*x;
writeln('z = ',z);
d:=x*(sin(x)+cos(x*x)+abs(x));
writeln('d = ',d);
end.

Пример:
x = 3
z = -69
d = 6.68996923852557
4,5(37 оценок)
Ответ:
mulz
mulz
18.10.2021
//Задание a
var x,z:real;
begin
  write('Введите Х ');
  readln(x);
  z:=3+sqr(x)-3*sqr(x)*x;
  writeln('z = ',z);
end.

Тестовое решение:
Введите Х 12
z = -5037

// Задание б
var x,d:real;
begin
  write('Введите Х ');
  readln(x);
  d:=x*(sin(x)+cos(x*x)+abs(x));
  writeln('d = ',d:0:3);
end.

Тестовое решение:
Введите Х 28
d = 796.395
4,5(72 оценок)
Открыть все ответы
Ответ:
Vanea228
Vanea228
18.10.2021
// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
  var n:=ReadInteger('n=');
  if n<0 then Writeln(n,'! не определено: n<0')
  else
    if n=0 then Writeln('0!=1')
    else begin
      var p:BigInteger:=1;
      for var i:=2 to n do p*=i;
      Writeln(n,'!=',p)
      end
end.

Тестовое решение:
n= 138
138!=691778647261948849222819828311491035886734385827028118707676848307166514238979223884785249055995983385450621636277440066920043595627074569065446040152660143904127838730788278294186615891819670506731208704000000000000000000000000000000000
4,4(79 оценок)
Ответ:
рикки8
рикки8
18.10.2021
// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
  var a:array[1..20] of integer;
  Randomize;
  for var i:=1 to 20 do a[i]:=Random(-50,50); a.Println;
  var b:=Range(2,20,2).Select(i->a[i]);
  Writeln('Элементы с четными индексами по возрастанию');
  b.Sorted.Println;
  Writeln('Элементы с четными индексами по убыванию');
  b.SortedDescending.Println;
end.

Тестовое решение:
-15 46 -34 -3 43 16 -17 -28 -19 12 -28 -11 48 -12 -1 33 -37 9 6 -40
Элементы с четными индексами по возрастанию
-40 -28 -12 -11 -3 9 12 16 33 46
Элементы с четными индексами по убыванию
46 33 16 12 9 -3 -11 -12 -28 -40
4,7(44 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ