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

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

👇
Ответ:
ketivolkowa
ketivolkowa
28.02.2023
Const
  m=10;
  n=6;
var
  a:array[1..10,1..6] of integer;
  i,j:integer;
begin
  Writeln('Элементы массива');
  for i:=1 to m do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=sqr(i)+sqr(j);
      Write(a[i,j]:4)
    end;
    Writeln
  end
end.

Тестовое решение:
Элементы массива
   2   5  10  17  26  37
   5   8  13  20  29  40
  10  13  18  25  34  45
  17  20  25  32  41  52
  26  29  34  41  50  61
  37  40  45  52  61  72
  50  53  58  65  74  85
  65  68  73  80  89 100
  82  85  90  97 106 117
 101 104 109 116 125 136

const
  n = 10;
var
  a: array[1..n] of integer;
  i, t: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  for i := 1 to n do
  begin
    a[i] := Random(50);
    Write(a[i]:3);
  end;
  Writeln;
  t:=a[n];
  for i:=n-1 downto 1 do a[i+1]:=a[i];
  a[1]:=t;
  Writeln('Результирующий массив');
  for i := 1 to n do Write(a[i]:3);
  Writeln
end.

Тестовое решение:
Элементы массива
 13 43 26 31  1 21 12  0 33 25
Результирующий массив
 25 13 43 26 31  1 21 12  0 33
4,7(75 оценок)
Открыть все ответы
Ответ:
lluukkaa
lluukkaa
28.02.2023

Звуковые эффекты:

Использование звуковых карт, плат оцифровки звука и звуковых редакторов предоставляет компьютерному музыканту довольно широкие возможности по применению в музыкальных композициях различных звуковых эффектов и приемов обработки.

Звуковые эффекты могут быть реализованы аппаратным путем, и тогда их можно использовать в реальном времени, как, например, это сделано в высококачественных звуковых картах. Для этого в их состав включены цифровые сигнальные процессоры.

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

Озвучивание - Озвучивание видеоигр — важный и кропотливый процесс. В крупных гейм-проектах озвучке уделяется внимания ничуть не меньше, чем в голливудских фильмах, а требования к результаты самые серьезные. Звук — это то, благодаря чему мы неосознанно погружаемся в игру с головой и верим ей.

2)

Выбрать звук из библиотеки - использовать уже готовые звуки, которые доступны в открытом пользовании.

Записать новый звук - запись нового звукового эффекта.

Загрузить звук из файла - Наряду с базовой подсистемой файлового ввода/вывода, представленной функциями CreateFile, ReadFile, WriteFile и т.п., в Windows существует подсистема мультимедийного (звукового, видео и другого подобного) файлового ввода/вывода MMIO (Multimedia Input/Output). Подсистема была введена еще в Windows 3.x; она позволяет удобно и эффективно работать со звуковыми и видеофайлами, а также упрощает работу с файлами, размещенными в оперативной памяти (memory files).

4,4(68 оценок)
Ответ:
iraapukhtina7
iraapukhtina7
28.02.2023
Без проверки полагаем, что по заданным координатам точек можно построить треугольники.

//PascalABC.Net 3.0, сборка 1111
type
  Point=record
  x,y:double
  end;

function TriangleSquare(A,B,C:Point):double;
begin
  Result:=0.5*abs(A.x*(B.y-C.y)+B.x*(C.y-A.y)+C.x*(A.y-B.y))
end;

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

var
  A:array['A'..'F'] of Point;
  i:'A'..'F';
  s1,s2:double;
begin
  for i:='A' to 'F' do GetPoint(i,A[i]);
  s1:=TriangleSquare(A['A'],A['B'],A['C']);
  s2:=TriangleSquare(A['D'],A['E'],A['F']);
  if s1>s2 then Writeln('Площадь первого треугольника больше')
  else
    if s2>s1 then Writeln('Площадь второго треугольника больше')
    else Writeln('Площади треугольников равны')
end.

Тестовое решение:
Введите координаты точки A: -4 3.7
Введите координаты точки B: -6.3 0
Введите координаты точки C: 10.2 5.93
Введите координаты точки D: 7.143 8.1
Введите координаты точки E: -6 -3
Введите координаты точки F: 7.4 -5.7
Площадь второго треугольника больше
4,8(90 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ