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

Напишите программу, которая заполняет матрицу случайными числами, а затем записывает нули во все элементы выше главной диагонали. на языке паскаль. 20

👇
Ответ:
ruslangusen
ruslangusen
08.01.2020
// PascalABC.NET 3.3, сборка 1607 от 31.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк (столбцов) в массиве:');
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(n,n,10,99);
  a.Println(3); Writeln(3*n*'-');
  for var i:=0 to n-2 do
    for var j:=i+1 to n-1 do a[i,j]:=0;
  Writeln('*** Выходной массив ***'); a.Println(3)
end.

Напишите программу, которая заполняет матрицу случайными числами, а затем записывает нули во все эле
4,6(89 оценок)
Ответ:
мага092
мага092
08.01.2020
1. PascalABC.NET 3.3
const n=5;
begin
 writeln('До:');
 var a:=MatrRandom(n,n,-10,10); a.Println(5);
 var b:=a.ElementsWithIndexes.Select(k->k[2]>k[1]?0:k[0]).ToArray;
 writeln('После:');
 a:=MatrGen(n,n,(i,j)->b[i*n+j]); a.Println(5);
end.

Пример:
До:
   -7    3    8   -6   -5
   -2    6   -1   -6   -8
    5    7    2  -10    0
    9    3   -8    5   -6
   -4    1    1    0  -10
После:
   -7    0    0    0    0
   -2    6    0    0    0
    5    7    2    0    0
    9    3   -8    5    0
   -4    1    1    0  -10

2.
const n=5;
var 
a:array[1..n,1..n] of integer;
i,j:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
   a[i,j]:=random(100);
   write(a[i,j]:4);
  end;
  writeln;
 end;
for i:=1 to n do
 for j:=i+1 to n do a[i,j]:=0;
writeln('Полученный массив:');
for i:=1 to n do
 begin
 for j:=1 to n do write(a[i,j]:4);
 writeln;
 end;
end.

Пример:
Исходный массив:
  62  25  21  54  22
  71  39  41  49  63
  26  93  50  79  35
  81  45  40  99  45
  46  87  63  36  15
Полученный массив:
  62   0   0   0   0
  71  39   0   0   0
  26  93  50   0   0
  81  45  40  99   0
  46  87  63  36  15
4,7(34 оценок)
Открыть все ответы
Ответ:
letych
letych
08.01.2020

Задание заключается в перепечатывании того, что написано на картинке, в соответствующие ячейки электронной таблицы.

Если хочется добиться полного совпадения, придется объединить ячейки D11:D12, выделить заголовки полужирным и настроить форматирование. То, что получилось у меня, приложено.

Для первого задания нужно поменять данные в ячейках B5:B8 - поставить высоту потолков, длину и ширину и указать, сколько процентов площади стен оклеивать не нужно (обычно двери, окна)

Во втором меняем значения B14:C19 и радуемся.

В третьем копируем строчку 19 вниз несколько раз и вписываем свои значения. Значения в столбиках D и E посчитаются сами.


с информатикой нужно выполнить эксперимент 1, 2 и 3
4,8(41 оценок)
Ответ:
armen1983armen
armen1983armen
08.01.2020

Задание заключается в перепечатывании того, что написано на картинке, в соответствующие ячейки электронной таблицы.

Если хочется добиться полного совпадения, придется объединить ячейки D11:D12, выделить заголовки полужирным и настроить форматирование. То, что получилось у меня, приложено.

Для первого задания нужно поменять данные в ячейках B5:B8 - поставить высоту потолков, длину и ширину и указать, сколько процентов площади стен оклеивать не нужно (обычно двери, окна)

Во втором меняем значения B14:C19 и радуемся.

В третьем копируем строчку 19 вниз несколько раз и вписываем свои значения. Значения в столбиках D и E посчитаются сами.


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