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

10 Позитивних ознак появи ПК

Показать ответ
Ответ:
DarknEssDk11
DarknEssDk11
18.08.2020 18:27

Кто с промежуточной аттестацией (тестом) Предупреждение : Wery Hard

--1 во Закончите фразу : "Информация это -

1)Последовательность знаков некоторого алфавита.

2)Книжный фонд библиотеки.

3)Сведения об окружающем мире и протекающих в нём процессах, воспринимаемые человеком непосредственно или с специальных устройств.

4)Сведения,содержащиеся в научных теориях.

--2 во Закончите фразу: "Компьютер это -

1)Устройство для автоматической обработки числовой информации.

2)Устройство для хранения информации.

3)Устройство для поиска,сбора,хранения,преобразования и использования информации в цифровом формате.

4)Совокупность программных средств,осуществляющих управление информационными ресурсами.

--3 во Отметьте информационные процессы (действия с информацией)

1)Работа на компьютере с клавиатурным тренажёром"

2)Установка телефона музыкального диска"

4)Чтение книги"

5)Видеодиск

6)Заучивание правила"

7)Толковый словарь

8)Видео

--4 во Отметьте устройства, предназначенные дл вывода информации.

1)Принтер"

2)Процессор

3)Монитор"

4)Сканер

5)Графопостроитель"

6)Джойстик

7)Клавиатура

8)Мышь

9)Микрофон

10)Акустические колонки"

11)Диск.

--5 во Отметьте элементы окна не имеющие отношения к приложению Paint.

1)Название приложения

2)Строка меню

3)Кнопка Закрыть

4)Кнопка Свернуть

5)Панель инструментов

6)Палитра

7)Панель Формирование"

8)Рабочая область

9)Полосы прокрутки

--6 во Отметьте операции при формировании документов.

1)Вставка

2)Удаление

3)Замена

4)Изменение шрифта"

5)Изменение начертания"

6)Изменение цвета"

7)Поиск и замена

8)Выравнивание"

--7 во Отметьте верное.

1)При формировании текстового документа происходит обработка связанная с получением нового содержания,новой информации или обработка информации не происходит.

2)При разработке плана действий происходит обработка, связанная с изменением формы информации, но не имеющая её содержания"

--8 во Отметьте информационные процессы (действия с информацией).

1)Разговор по телефону"

2)Посадка дерева

3)Диск любимой музыкальной группы

4)Письмо приятелю

5)Выполнение контрольной работы"

6)Разгадывание кроссворда телепередачи"

8)Учебник математики

--9 во пошла дичь) Считая,что каждый символ кодируется одним байтом, определите информационный объём следующего текста :

"В 1642 году Б.Паскаль создал первую механическую счётную машину."

1)64 бита

2)512 БИТ

3)54 байта"

4)512 БАЙТ

--10 во Слово алгоритм происходит от латинской формы написания имени великого математика :

1)Паскаль"

2)Аль Хорезми

3)Аль Фараби.

Всё,большая ответить сегодня,а то завтра мне

Объяснение:

0,0(0 оценок)
Ответ:
annashevelina
annashevelina
23.08.2021 21:50
// PascalABC.NET 3.0, сборка 1076
type
  Point=record
  x,y:real
  end;
  Line=record
  A,B:Point
  end;
  Triangle=record
  A,B,C:Point;
  sa,sb,sc:real; { длины сторон }
  end;

procedure GetPoint(PointName:char; var M:Point);
begin
  Write('Введите координаты точки ',PointName,'(x,y): ');
  Read(M.x,M.y)
end;

function LineLength(A,B:Point):real;
begin
  LineLength:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y))
end;
 
procedure CreateTriangle(var T:Triangle; var l:boolean);
begin
  With T do begin
    GetPoint('A',A);
    GetPoint('B',B);
    GetPoint('C',C);
    sa:=LineLength(B,C);
    sb:=LineLength(A,C);
    sc:=LineLength(A,B);
    l:=(sa+sb>sc) and (sa+sc>sb) and (sb+sc>sa)
  end
end;

function TriangleIsLikes(T1,T2:Triangle):boolean;
var
  k1,k2,k3:real;
begin
  k1:=T1.sa/T2.sa; k2:=T1.sb/T2.sb;
  if k1=k2 then begin
    k3:=T1.sc/T2.sc;
    TriangleIsLikes:=k1=k3
    end
  else
    TriangleIsLikes:=False
end;

var
  T1,T2:Triangle;
  legal:boolean;
begin
  Writeln('*** Первый треугольник ***');
  CreateTriangle(T1,legal);
  if legal then begin
    Writeln('*** Второй треугольник ***');
    CreateTriangle(T2,legal);
    if legal then
      if TriangleIsLikes(T1,T2) then Writeln('Треугольники подобны')
      else Writeln('Треугольники не подобны')
    else Writeln('Треугольник невозможно построить')
    end
  else Writeln('Треугольник невозможно построить')
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота