Четверо слепых впервые в жизни встретились со слоном. Один из них дотронулся до хобота и сказал: «Слон похож на толстый канат». «Слон похож на столб», — сказал другой, ощупав ногу слона. Третий коснулся слоновьего живота и заявил: «Слон похож на огромную бочку». «Он похож на циновку», — потрогав слона за ухо, возразил четвертый. Попробуй выявить проблему в данной притче, для анализа ответь на поставленные вопросы:
· Как можно разрешить данную ситуацию?
· Какие вопросы могут возникнуть?
· Что я лично могу сделать?
· Чем мне необходимо владеть для разрешения ситуации?

👇

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

Ответ:

Babikovandrei48

29.10.2021

Из курса истории вам известно, какую огромную роль в развитии человечества сыграло возникновение письменности, позволившее зафиксировать устное слово с букв-знаков. Надписи на камне.

Папирусе, бумаге – не просто сообщения, дошедшие до нас через века. Это документы,позволяющие нам судить о том, как жили люди в ту или иную эпоху, о чём они думали, что их интересовало.
Слово «документ» переводится с латинского как «свидетельство», «доказательство». Первоначально оно означало письменное подтверждение событий или фактов.Например, факт рождения каждого человека документально оформляется в виде свидетельства о рождении

по окончании школы вы получаете аттестат – документ, подтверждающий ваше образование, и т. д.

Современное понятие документа значительно шире, чем «бумага,
заверенная печатью и подписью». Текст является одной из важнейших форм представления информации об окружающей действительности.
Под текстовым документом сегодня понимается информация, представленная на бумажном, электронном или ином материальном носителе в текстовой форме.

4,6(88 оценок)

Ответ:

Andrey1privet4

29.10.2021

Конечно, на основе функций решение было бы элегантнее, но требовались процедуры...

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

procedure GetMax(a:array[,] of integer; var mr,mc:array of integer);
// максимумы по строкам mr и столбцам mc
begin
mr:=a.Rows.Select(r->r.Max).ToArray;
mc:=a.Cols.Select(c->c.Max).ToArray;
end;

procedure MatrSort(a:array[,] of integer);
// сортировка срок по первой колонке
begin
for var i:=0 to a.RowCount-2 do
    for var k:=0 to a.RowCount-2-i do
      if a[k,0]>a[k+1,0] then a.SwapRows(k,k+1);
end;

procedure IsCont(n:integer; a:array [,] of integer; var res:boolean);
// есть ли элемент n в массиве a?
begin
res:=a.ElementsByRow.Contains(n)
end;

begin
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var vr:=new integer[n];
var vc:=new integer[m];
GetMax(a,vr,vc);
Write('Вектор максимумов по строкам: '); vr.Println;
Write('Вектор максимумов по столбцам: '); vc.Println;
MatrSort(a);
Writeln('*** отсортированный массив ***');
a.Println(4); Writeln(4*a.ColCount*'-');
var k:=ReadInteger('Введите значение элемента для поиска:');
var q:boolean;
IsCont(k,a,q);
if q then Writeln('Массив содержит введенное значение')
else Writeln('Массив не содержит введенного значения')
end.

Пример
Количество строк в массиве: 4
Количество столбцов в массиве: 7
*** Исходный массив [4,7] ***
-96 63   6 -96 -21 -61 -54
31 -20 63 -48 70 13 48
72 -27 -68 -52 32 15 -58
-71 -86 45 49 40 -64 -2

Вектор максимумов по строкам: 63 70 72 49
Вектор максимумов по столбцам: 72 63 63 49 70 15 48
*** отсортированный массив ***
-96 63   6 -96 -21 -61 -54
-71 -86 45 49 40 -64 -2
31 -20 63 -48 70 13 48
72 -27 -68 -52 32 15 -58

Введите значение элемента для поиска: 70
Массив содержит введенное значение

4,8(79 оценок)

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

Компьютеры-и-электроника

16.04.2022

Как играть онлайн в Words with Friends...

Компьютеры-и-электроника

11.09.2020

Как сделать GIF анимацию из видео в Photoshop CS5: шаг за шагом...

Стиль-и-уход-за-собой

27.10.2021

10 простых способов быть привлекательной...

Компьютеры-и-электроника