Понятие информатики. История развития информатики. Место информатики в ряду других фундаментальных наук.
Мировоззренческие экономические и правовые аспекты информационных технологий.
Понятие информации и ее измерение. Количество и качество информации. Единицы измерения информации. Информация и энтропия.
Сообщения и сигналы. Кодирование и квантование сигналов.
Информационный процесс в автоматизированных системах. Фазы информационного цикла и их модели.
Информационный ресурс и его составляющие.
Информационные технологии. Технические и программные средства информационных технологий.
Основные виды обработки данных. Обработка аналоговой и цифровой информации. Устройства обработки данных и их характеристики.
Принцип программного управления.
Функциональная и структурная организация компьютера.
Сетевые технологии обработки данных. Виды и характеристики носителей и сигналов. Спектры сигналов. Модуляция и кодирование.
Каналы передачи данных и их характеристики. Методы повышения помехоустойчивости передачи и приема. Современные технические средстваобмена данных и каналообразующей аппаратуры.
Организация данных на устройствах с прямым и последовательным доступом. Файлы данных. Файловые структуры. Носители информации и технические средства для хранения данных.
Представление информации в цифровых автоматах (ЦА). Информационные основы контроля работы цифровых автоматов.
Систематические коды. Контроль по четности, нечетности, по Хеммингу.
С каждым разом увеличивается на 1 , 2 , 3 и т. д.
г- 08
д- 12
е - 17
Какие числа? Любые?Сфотографируй или напиши числа.
Напишу программу на паскале, блок схему нет возможности нарисовать
P.S inc - это увеличение переменной на единицу. Удачи по иформатике)
_____________________________________________________________
<span>var
i, k, c, pr: int64;
begin
k := 1;
pr := 0;
while pr < 100 do
begin
c := 0;
for i := 1 to k do begin
if k mod i = 0 then inc(c)
end;
if c = 2 then begin
write(k, ' ');
inc(pr)
end;
inc(k)
end;
<span>end.</span></span>
Var
y0, yk, yk1, eps, d: double;
i: integer;
begin
y0 := 0; yk1 := y0;
Write('Введите величину погрешности: ');
Readln(eps);
repeat
yk := (yk1 + 1) / (yk1 + 2);
d := yk - yk1;
if d >= eps then yk1 := yk
until d < eps;
Writeln('yn=', yk)
end.
Тестовое решение:
Введите величину погрешности: 1e-8
yn=0.618033988205325