мне, нужно сделать сегодня же
3. Человек принимает информацию:
Магнитным полем
Органами чувств
Внутренними органами
Инструментальными средствами.
4. Что является графической формой представления математической информации:
Математическое уравнение
График функции
Таблица значений функции
Математическое выражение.
5. К объекту можно отнести:
Глобус
Грозовой разряд
Модель землетрясения
Модель развития вселенной
6.Схема – это:
Упрощенный объект, который отражает существенные особенности реального объекта
Компоненты системы изображающиеся кругами
Направленные линии, стрелки
Средство для наглядного представления состава и структуры системы
7. Система – это:
Целое, состоящее из объектов, взаимосвязанных между собой
Целое, состоящее из объектов, взаимосвязанных между собой с указанием, как эти элементы связаны друг с другом
Процесс превращения множества объектов в систему
8. Логическая функция – это:
Закон соответствия между логическими переменными
Закон соответствия между логическими выражениями
Переменная, которая может принимать только одно значение 0 или 1.
9. Логическое умножение – это:
Конъюнкция
Дизъюнкция
Инверсия
10. Формула вычисления мощности алфавита, если известно количество информации одного символа:
I=2N
N=2I
P=K/N
P=N/K
Часть 2
1.Переведите в двоичную систему счисления: 16410=
2. Перевести в другие единицы:
160 Кбайт = байт = бит
49152 бит = байт = Кбайт
3. Сообщение занимает 23 страницы. На каждой странице по 48 строк. В каждой по 64 символа. Найдите информационный объем (в Кб) такого текста, если при его составлении использовали 256-символьный алфавит.
var
c, a: array[1..20] of integer;
i: integer;
begin
write('Первый массив ');
for i := 1 to 20 do begin
c[i] := i * (-5);
write(c[i], ' ');
end;
writeln;
write('Преобразованный массив ');
for i := 1 to 20 do begin
a[i] := c[20 - i + 1];
write(a[i], ' ');
end;
end.
ИЛИ Программа не использующая два массива, а просто переворачивающая первый
var
c: array[1..20] of integer;
i: integer;
begin write('Первый массив ');
for i := 1 to 20 do begin
c[i] := i * (-5);
write(c[i], ' ');
end;
writeln;
write('Преобразованный массив ');
for i := 20 downto 1 do write(c[i], ' ');
end.
Обе программы работают!
uses crt;
Var a,b,c:integer;
Begin
Write('Введите 1-ю сторону: '); Readln(a);
Write('Введите 2-ю сторону: '); Readln(b);
Write('Введите 3-ю сторону: '); Readln(c);
{Проверка на существование треугольника}
if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then
Begin
if ((a=b)or (b=c) or (a=c)) then
Writeln('Треугольник равнобедренный');
if ((a=b) and (b=c)) then
Writeln('Треугольник равносторонний')
else Writeln('Треугольник разносторонний');
if ((a*a+b*b = c*c) or (a*a+c*c = b*b) or (b*b+c*c = a*a)) then
Writeln('Треугольник прямоугольный');
end
else Writeln('Треугольник нельзя построить');
Readln();
END.