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

Дано два одномерных массива a и b. заменить местами максимальные элементы массивов a и b. использовать процедуру нахождения максимального элемента массива. преобразовать эту программу для двумерного массива.

👇
Ответ:
GabriellaKiM
GabriellaKiM
25.02.2021
//Pascal ABC.NET v3.1 сборка 1172

//Одномерные
Const
 n=10;
 
Type
 ty=array[1..n] of integer;

Var
 ara,arb:ty;
 i,j,max,maxia,maxib:integer;
 
procedure maxs(ar:ty;var max,maxi:integer);
 Var
  i:integer;
 begin
  for i:=1 to n do
   if max<ara[i] then
      begin
       maxi:=i;
       max:=ar[i];
      end;
 end;

begin
 randomize;
 max:=-1;
  writeln('Array A:');
   for i:=1 to n do
    begin
     ara[i]:=random(100);
     write(ara[i]:4);
    end;
 maxs(ara,max,maxia);
 writeln;
 max:=-1;
  writeln('Array B:');
   for i:=1 to n do
    begin
     arb[i]:=random(100);
     write(arb[i]:4);
    end;
 maxs(arb,max,maxib);
   j:=ara[maxia];
   ara[maxia]:=arb[maxib];
   arb[maxib]:=j;
 writeln;
 writeln('Final array A:');
 for i:=1 to n do
  write(ara[i]:4);
 writeln;
 writeln('Final array B:');
 for i:=1 to n do
  write(arb[i]:4);
end.

//Двумерные
Const
 n=10;

Type
 ty=array[1..n,1..n] of integer;

Var
 ara,arb:ty;
 i,j,max,maxia,maxib,maxja,maxjb:integer;
 
procedure maxs(ar:ty;var max,maxi,maxj:integer);
 Var
  i,j:integer;
 begin
  for i:=1 to n do
   for j:=1 to n do
    if max<ara[i,j] then
         begin
          maxi:=i;
          maxj:=j;
          max:=ar[i,j];
         end;
 end;
 
begin
 randomize;
 max:=-1;
  writeln('Matrix A:');
   for i:=1 to n do
    begin
    writeln;
     for j:=1 to n do
      begin;
       ara[i,j]:=random(100);       
        write(ara[i,j]:4);   
     end;
    end;
 maxs(ara,max,maxia,maxja);
 writeln;
 max:=-1;
  writeln('Matrix B:');
   for i:=1 to n do
    begin
    writeln;
     for j:=1 to n do
      begin;
       arb[i,j]:=random(100);
        write(arb[i,j]:4);   
     end;
    end;
 maxs(arb,max,maxib,maxjb);
 j:=ara[maxia,maxja];
 ara[maxia,maxja]:=arb[maxib,maxjb];
 arb[maxib,maxjb]:=j;
 writeln;
 writeln('Final matrix A:');
 for i:=1 to n do
  begin
   writeln;
   for j:=1 to n do
   write(ara[i,j]:4);
  end;
 writeln;
 writeln('Final matrix B:');
 for i:=1 to n do
  begin
   writeln;
   for j:=1 to n do
   write(arb[i,j]:4);
  end;
end.

Пример работы(одномерный):
Array A:
  11  83  41  30   0  23  14  41  93  66
Array B:
  53  40  58  40  56  17  98  33  90   6
Final array A:
  11  83  41  30   0  23  14  41  90  66
Final array B:
  53  40  58  40  56  17  98  33  93   6
4,5(24 оценок)
Открыть все ответы
Ответ:
Ayshalike
Ayshalike
25.02.2021
Однією з принципів роботи квантових комп'ютерів є складність квантового програмування. Квантове програмування є набором комп'ютерних мов програмування, які дозволяють запис квантового алгоритму з використанням конструкцій високого рівня. Завдання квантових мов не полягає у тому, щоб надати інструмент для програмістів, а в тому, щоб надати інструменти для дослідників, щоб зрозуміти краще, як працюють квантові обчислення і як формально доводити коректність квантових алгоритмів.
Можна виділити дві основні групи квантових мов програмування: імперативні квантові мови програмування і функціональні квантові мови програмування. Найбільш відомими представниками першої групи є QCL і LanQ.
Щоб працювати з квантовими комп'ютерами доведеться вивчити нові мови програмування. Також, щоб атом розумів що від нього хоче програміст, були розроблені кілька підходів. Наприклад MR створив імперативну мову квантового програмування QCL, а King і VST застосували для моделювання квантових ефектів на класичних комп'ютерах бібліотеки HASKELL. Також Пітер Селінгер запропонував функціональну мову квантового програмування QPL, в якому допускаються поєднувати класичний і квантовий інструкції.
Але квантовий комп’ютер не зможе замінити класичних комп’ютерів. Звісно квантові комп’ютери швидші, але це стосується тільки спеціальних типів обчислень де необхідно використовувати стани суперпозиції, які доступні одночасно. Якщо просто дивитися відео у високій роздільній здатності, сидіти в Інтернеті, працювати з документами, то ви не досягнете якоїсь більшої швидкості
4,5(74 оценок)
Ответ:
Jezzyfeed1
Jezzyfeed1
25.02.2021

Квáнтовий комп'ю́тер — фізичний обчислювальний пристрій, функціонування якого ґрунтується на принципах квантової механіки, зокрема, принципі суперпозиції та явищі квантової заплутаності. Такий пристрій відрізняється від звичайного транзисторного комп'ютера зокрема тим, що класичний комп'ютер оперує даними, закодованими у двійкових розрядах (бітах), кожен з яких завжди перебуває в одному з двох станів (0 або 1), коли квантовий комп'ютер використовує квантові біти (кубіти), які можуть знаходитися у суперпозиції станів. Інформатико-теоретичною моделлю такого обчислювального пристрою є квантова машина Тюрінга, або універсальний квантовий комп'ютер, яка була розроблена Девідом Дойчем у 1985 році[1]. Квантовий комп'ютер має низку спільних ознак із недетермінованим та ймовірнісним комп'ютерами, але ці пристрої не є тотожними. Вважається, що вперше ідею використання принципів квантової механіки для виконання обчислень висловили Манін Юрій Іванович у книзі «Обчислювальне і необчислювальне» у 1980 році[2] та Річард Фейнман у лекції на Першій конференції з фізики обчислень у МТІ в 1981 році[3][4], хоча пропозиції використання напівцілих спінів як найпростіших обчислювальних елементів лунали і раніше[

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