В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
123456sa
123456sa
03.04.2023 17:01 •  Информатика

Переделать из pascal в c++

uses crt;
var e,l,xk,yk,a,b,x: real;
k: integer;
function f(x: real): real;
begin
f: =sin(x)*x; //искомая функция
end;

begin
l: =1;
k: =0; //количество итераций
a: =0; //интервал от
b: =6; // до
e: =0.001; //точность
repeat
xk: =(a+b)/2.0-e; //начальная
yk: =(a+b)/2.0+e; //точка
if f(yk)> =f(xk) then
b: =yk;
if f(yk) a: =xk;
inc(k);
until l< (b-a);
x: =(a+b)/2.0;
writeln('xm = ',x: 3: 2,' f(xm) = ',f(x): 3: 2);
writeln('итераций: ',k);
end.

Показать ответ
Ответ:
lobster32
lobster32
01.03.2022 20:03
1) Оперативная память, наряду с памятью накопительной (жесткий диск), являются накопительными устройствами, и необходимы для хранения данных. Для чего нужна оперативная память? Если жесткий диск используется для постоянного хранения файлов: музыки, фильмов, изображений, то оперативная память нужна для временного хранения данных, которые используются при работе компьютера процессором. После выключение компьютера, все содержимое оперативной памяти удаляется. ОЗУ – оперативно запоминающее устройство, так еще обозначают данный вид памяти.
2) Материнская плата (англ. motherboard, MB, также используется название англ. mainboard — главная плата; сленг. мама, мать, материнка) — это сложная многослойная печатная плата, на которой устанавливаются основные компоненты персонального компьютера (центральный процессор, контроллер ОЗУ и собственно ОЗУ, загрузочное ПЗУ, контроллеры базовых интерфейсов ввода-вывода) . Как правило, материнская плата содержит разъёмы (слоты) для подключения дополнительных контроллеров, для подключения которых обычно используются шины USB, PCI и PCI-Express. 
0,0(0 оценок)
Ответ:
doriii72
doriii72
28.06.2020 18:52
Var
  i,i_beg,i_end,k:longint;
  p:set of longint;
begin
  Writeln('Вводите целые числа большие двух, конец ввода по числу 0');
  i_beg:=1000000; i_end:=0;
  repeat
    Read(k);
    if k<>0 then
    begin
      if i_beg>k then i_beg:=k
      else if i_end<k then i_end:=k;
      Include(p,k)
    end
  until k=0;
  Writeln('Числа, не входящие в последовательность:');
  for i:=i_beg to i_end do
      if not (i in p) then Write(i,' ')
end.

Тестовое решение:
Вводите целые числа большие двух, конец ввода по числу 0
6 12 9 14 10 19 17 11 7 0
Числа, не входящие в последовательность:
8 13 15 16 18
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота