Отгадайте слово, обозначающее некое понятие информатики. в разных ситуациях оно может употребляться со следующими прилагательными: 1) секретная, научная, ложная, техническая, массовая2) текстовый, графический, системный 3) мультимедийная, концертная, обязательная, игровая4) разнообразное, диетическое, , вложенное5) разбитое, высокое, диалоговое, активное6) рыболовная, , торговая, локальная

👇

Увидеть ответ

Ответ:

муксик

12.08.2020

1)информация
2)редактор
3)программа
4)? Питание???
5)окно
6)сеть

4,5(44 оценок)

Открыть все ответы

Ответ:

alina555557

12.08.2020

По выполняемым функциям и возможности применения информационные технологии делят на используемые:1) в автономных компьютерах (ПЭВМ) и в локальных рабочих станциях (АРМ) в составе сетевых автоматизированных информационных систем (АИС) реального времени;2) в объектно-ориентированных, распределённых, корпоративных и иных локальных и сетевых информационно-поисковых, гипертекстовых и мультимедийных системах;3) в системах с искусственным интеллектом;4) в интегрированных АИС;5) в геоинформационных, глобальных и других системах.

4,7(63 оценок)

Ответ:

Марс2014

12.08.2020

Задача, аналогичная той, которую публиковали вчера. Только цикл repeat заменяем на while.

Сначала немного математики.
$\displaystyle a_n= \frac{n!}{(2n)!}=\frac{\prod_{i=1}^ni}{\prod_{i=1}^{2n}i}=\frac{\prod_{i=1}^ni}{\prod_{i=1}^{n}i\times\prod_{i=n+1}^{2n}i}=\frac{1}{\prod_{i=n+1}^{2n}i}; \quad n\in\mathbb N$
О модуле тут смысла нет говорить, поскольку все an - суть положительные величины на интервале (0;1).

uses Crt;

function ai(n:integer):real;
var
i:integer;
p:real;
begin
p:=1;
for i:=n+1 to 2*n do p:=p*i;
ai:=1/p
end;

var
i:integer;
eps,s,an:real;
begin
ClrScr;
Write('eps='); Read(eps);
s:=0; i:=1; an:=eps+1;
while an>=eps do begin
   an:=ai(i);
   if an>=eps then begin s:=s+an; Inc(i) end
end;
Writeln('s=',s);
ReadKey
end.

Тестовые решения:
eps=0.07
s= 5.8333333333E-01

eps=0.000001
s= 5.9229647667E-01

eps=1e-8
s= 5.9229653448E-01

Для контроля результата можно отметить, что сумма первых 1000 членов ряда равна приблизительно 5.922965365Е-01

Если раздражает наличие функции, можно и без нее:
uses Crt;

var
i,j:integer;
eps,s,an,p:real;
begin
ClrScr;
Write('eps='); Read(eps);
s:=0; i:=1; an:=eps+1;
while an>=eps do begin
    p:=1;
    for j:=i+1 to 2*i do p:=p*j;
    an:=1/p;
    if an>=eps then begin s:=s+an; Inc(i) end
end;
Writeln('s=',s);
ReadKey
end.

4,4(84 оценок)

Это интересно:

Питомцы-и-животные

06.11.2020

Как убить муху: 5 действенных способов...

Хобби-и-рукоделие

24.08.2021

Как сшить детское платье: пошаговая инструкция...

Искусство-и-развлечения

23.04.2020

Мастерство подбора музыки: Как выбрать мелодии для разных мероприятий?...

Здоровье