М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
VladaCatVlada5
VladaCatVlada5
02.10.2020 23:10 •  Информатика

№ 1. В ситуациях, расположенных ниже, определите какой осуществляется информационный процесс.
Ситуации Информационный
процесс
Шахматист обдумывает очередной ход.
Девочка вдыхает аромат цветка.
Ученики выполняют перевод текста с английского на русский язык.
Водитель останавливается на красный сигнал светофора.
Мальчик делится впечатлениями о поездке.
ответ ученика на уроке.
Прослушивание песни.
Заучивание стихотворения.
Петя смотрит новости по телевизору.
Туристы фотографируются на фоне достопримечательностей.
№ 2. Установите соответствие.
1. Получение
информации
Процесс, связанный с
изменением информации или
действиями с использованием
информации.
2. Обработка
информации
Деятельность человека,
связанная с процессами сбора,
обработки, хранения и передачи
информации.
3. Информационный
объект
Зафиксированная каким-либо
информация.
4. Информационный
процесс
Процесс, в результате которого
изменяется форма
представления информации или
меняется содержание
информации.
5. Информационная
деятельность
Реализация живых
организмов к отражению
различных свойств
окружающего мира.
№ 3. Решите логическую задачу и оформите решение в виде таблицы. ответы без
рассуждений, зафиксированных в таблице приниматься не будут.
В симфонический оркестр приняли на работу трех музыкантов: Иванова, Петрова и
Сидорова, умеющих играть на скрипке, флейте, альте, кларнете, гобое и трубе. Каждый
умеет играть на двух инструментах. Известно, что Петров самый высокий; играющий на
скрипке меньше ростом играющего на флейте. Когда между альтистом и трубачом
возникает ссора, Петров мирит их. Скрипач, флейтист и Иванов любят пиццу. Иванов не
умеет играть ни на трубе, ни на гобое. Определите на каких инструментах играет каждый
из музыкантов.
№ 4. Решите логическую задачу и оформите решение в виде таблицы. ответы без
рассуждений, зафиксированных в таблице приниматься не будут.
В шахматном турнире принимали участие шесть игроков из разных городов России:
Воркуты, Иркутска, Саратова, Тюмени, Уфы, Рязани.
В первом туре Александр играл с представителем из Воркуты, уфимец – с Николаем,
а Геннадий – с Михаилом.
Во втором туре Денис играл с представителем Тюмени, а шахматист из Воркуты – с
Николаем.
В третьем туре Михаил играл с иркутянином.
Кто из игроков представлял какой город, если в итоге Николай занял первое место,
Геннадий и иркутянин поделили второе и третье места, Денис был четвертым, а Семен и
саратовец поделили пятое и шестое места?

file:///C:/Users/123/Downloads/ДЗ-2_инф%20процессы_2.pdf

👇
Открыть все ответы
Ответ:
linaageeva96
linaageeva96
02.10.2020
// PascalABC.NET 3.2, сборка 1425 от 22.04.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк в матрице:');
  var m:=ReadInteger('Количество столбцов в матрице:');
  Writeln('*** Исходная матрица [',n,',',m,'] ***');
  var a:=MatrRandom(n,m,-9,9);
  a.Println(3); Writeln(3*a.ColCount*'-');
  // 1. удалить строки с нулевыми элементами
  var v:=a.Rows.Select(x->x.All(y->y<>0)).ToArray;
  var q:=new integer[v.Where(r->r=true).Count,a.ColCount];
  var k:=0;
  for var i:=0 to v.Count-1 do
    if v[i] then begin
      q.SetRow(k,a.Row(i)); k+=1
      end;
  Writeln('Матрица, не содержащая строк с нулями');
  a:=Copy(q);
  a.Println(3);
  // 2. отсортировать элементы первого столбца по возрастанию
  a.SetCol(0,a.Col(0).OrderBy(x->x).ToArray);
  Writeln('Матрица с отсортированной колонкой 1');
  a.Println(3);
  // 3. игры с k и b
  var b:integer;
  Write('Введите значения b и 1<=k<=',a.RowCount,': '); Read(b,k);
  for var j:=k to a.RowCount-1 do a[j,m-1]+=b;
    Writeln('Матрица с модифицированной последней колонкой');
  a.Println(3)
end.

Пример
Количество строк в матрице: 5
Количество столбцов в матрице: 8
*** Исходная матрица [5,8] ***
 -4 -8  4 -4  8 -6  5 -2
  2 -7 -4  6  8  4  9 -8
  0 -8 -4 -7 -4 -7  6 -3
  6 -4 -8  9 -7 -5 -3 -2
 -9  7 -1 -2 -9  9  7  4

Матрица, не содержащая строк с нулями
 -4 -8  4 -4  8 -6  5 -2
  2 -7 -4  6  8  4  9 -8
  6 -4 -8  9 -7 -5 -3 -2
 -9  7 -1 -2 -9  9  7  4
Матрица с отсортированной колонкой 1
 -9 -8  4 -4  8 -6  5 -2
 -4 -7 -4  6  8  4  9 -8
  2 -4 -8  9 -7 -5 -3 -2
  6  7 -1 -2 -9  9  7  4
Введите значения b и 1<=k<=4: 5 2
Матрица с модифицированной последней колонкой
 -9 -8  4 -4  8 -6  5 -2
 -4 -7 -4  6  8  4  9 -8
  2 -4 -8  9 -7 -5 -3  3
  6  7 -1 -2 -9  9  7  9

Замечание: Под удалением без всяких условностей понимается именно удаление. Матрица после удаления просто содержит меньшее количество строк.
4,6(73 оценок)
Ответ:
Marína19112006
Marína19112006
02.10.2020
Первая программа:

Var a,b:integer;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
if a mod b = 0 then WriteLn(b,' - делитель ',a)
else WriteLn(b,' не является делителем ',a)
End.

Вторая программа:

Var
   a,b:real;
Begin
WriteLn('a и b - катеты прямоугольного треугольника');
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
WriteLn('S = ',a*b/2);
WriteLn('P = ',Sqrt(a*a+b*b)+a+b);
End.

Пример работы программы:

a и b - катеты прямоугольного треугольника
a = 3
b = 4
S = 6
P = 12

Примечание: программа не проверяет, существует ли треугольник и является ли он прямоугольным.

Третья программа:

Var
   a,b,c,D:real;
Begin
WriteLn('ax^2 +bx +c = 0');
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('c = ');ReadLn(c);
D:=b*b-4*a*c;
if D < 0 then Write('Действительных корней нет')
else
   Begin
   WriteLn('x1 = ',(-b-Sqrt(D))/(2*a));
   WriteLn('x2 = ',(-b+Sqrt(D))/(2*a));
   End
End.

Четвёртая программа:

Var a,b,c:real;
Begin
Write('Введите три числа: ');ReadLn(a,b,c);
a:=Abs(a-c);
b:=Abs(b-c);
if a < b then WriteLn('Первое число ближе к третьему')
else if a > b then WriteLn('Второе число ближе к третьему')
     else WriteLn('Первое и второе число - одинаково близки к третьему')
End.

Пример работы программы:

Введите три числа: 1 2 3
Второе число ближе к третьему

Введите три числа: 1 1 3
Первое и второе число - одинаково близки к третьему

Введите три числа: 2 1 13
Первое число ближе к третьему
4,6(63 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ