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

Дана матрица a(n, m). получить вектор x(m), равный p-ой строке матрицы.

👇
Ответ:
letsplei1212
letsplei1212
10.03.2021
// PascalABC.NET 3.2, сборка 1382 от 06.02.2017
// Внимание! Если программа не работает, обновите версию!

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 p:=ReadInteger('Номер строки для формирования вектора:');
  var x:=a.Row(p-1); x.Println
end.

Пример:
Количество строк в массиве: 6
Количество столбцов в массиве: 9
*** Исходный массив [6,9] ***
  25 -94  49  38  93   6  76  61 -79
  49  25 -82 -43 -92 -51 -78  62   4
 -31  43 -78 -34  48  19 -17 -26 -98
  82  44 -43  36  82  50 -14  39 -87
  88 -25  12 -94 -96  68   7   9 -28
  96  38 -15 -77 -99 -78 -60 -21  57

Номер строки для формирования вектора: 4
82 44 -43 36 82 50 -14 39 -87
4,5(18 оценок)
Ответ:
TiltPro
TiltPro
10.03.2021
Program prog;
Uses crt;

var a: array [0..100, 0..100] of integer;
    x: array [0..100] of integer;
    n,m,p,i,j: integer;
    
begin;
clrscr;
randomize;

write('N = ');
readln(n);
write('M = ');
readln(m);
write('P = ');
readln(p);
writeln;

for i:=1 to n do
begin
    for j:=1 to m do
        begin
        a[i,j]:= random(101)-50;
        write(a[i,j]:5);
        
        if (i=p) then
        x[j]:= a[i,j];
        end;
    writeln;
end;

writeln;
for j:=1 to m do
write(x[j]:5);

end.
4,5(93 оценок)
Открыть все ответы
Ответ:
Hkolnik32
Hkolnik32
10.03.2021

4 Кбайт

Объяснение:

1 байт = 8 бит

1 Кбайт = 2¹⁰ байт

N = 64 Кбайт = 64 * 2¹⁰ байт = 2⁶ * 2¹⁰ байт = 2¹⁶ байт

ν₁ = 4096 бит = 4096 / 8 байт = 2¹² / 2³ = 2⁹ байт = 512 байт

ν₂ = 256 бит = 2⁸ / 2³ байт = 2⁵ байт= 32 байта

I - ый вариант:

Найдём время передачи файла. Оно будет равно отношению размера файла (2¹⁶ байт) к скорости передачи (2⁹ байт):

2¹⁶ / 2⁹ = 2⁷ = 128 секунд

Чтобы найти размер файла, надо скорость передачи (2⁵ байт) умножить на время (2⁷ секунд), которое осуществлялась передача:

2⁵ * 2⁷ = 2¹² байт = 2¹² / 2¹⁰ Кбайт = 2² Кбайт = 4 Кбайт

II - ой вариант:

N = ν * t, N - размер файла, ν - скорость передачи, t - время передачи

Между скоростью передачи и размером файла зависимость прямо пропорциональная: во сколько раз увеличится скорость передачи, во столько раз увеличится размер файла, который можно передать, и наоборот.

Составим пропорцию:

2¹⁶ байт - 2⁹ байт

?    байт - 2⁵ байт

2¹⁶ * 2⁵ / 2⁹ = 2²¹ / 2⁹ = 2¹² байт = 2¹² / 2¹⁰ Кбайт = 2² Кбайт = 4 Кбайт

4,7(80 оценок)
Ответ:
priss666
priss666
10.03.2021
Var a,b,c,angA,angB,angC,cs: real;
    s: string;
begin
  write('длины сторон через пробел:  ');
  readln(a,b,c);
  if (a+b>c) and(a+c>b) and (c+b>a) then
  begin
    cs:=(sqr(a)+sqr(b)-sqr(c))/(2*a*b);
    angC:=360*ArcCos(cs)/(2*pi);
    writeln('угол С = ',angC:4:2);
    cs:=(sqr(a)+sqr(c)-sqr(b))/(2*a*c);
    angB:=360*ArcCos(cs)/(2*pi);
    writeln('угол B = ',angB:4:2);
    angA:=180-angB-angC;
    writeln('угол A = ',angA:4:2);
    if (angA<90) and (angB<90) and (angC<90) then
       s:='треугольник остроугольный';
    if (angA>90) or (angB>90) or (angC>90) then
       s:='треугольник тупоугольный';
    if (sqr(a)+sqr(b)=sqr(c)) or (sqr(a)+sqr(c)=sqr(b)) or 
      (sqr(b)+sqr(c)=sqr(a)) then
       s:='треугольник прямоугольный';
       writeln(s);
     end
  else writeln('треугольник составить нельзя');
end.
    
4,6(55 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ