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

Найти ошибку в умножение двумерного массива.pas(29) : нельзя преобразовать тип integer к array [1..100] of array [1..100] of integer. вот сама программа: умножение матриц в обратном порядке, т.е первый элемент на последний, второй на предпоследний и.т.д. var x: integer; a1: array[1..100,1..100] of integer; a2: array[1..100,1..100] of integer; a3: array[1..100,1..100] of integer; i,j,m,n: integer; begin writeln('введите размер матрицы'); readln(m,n); for i: =1 to m do begin for j: =1 to n do end; begin writeln('введите элементы первой матрицы'); for i: =1 to m do begin for j: =1 to n do readln(a1[i,j]); end; end; begin writeln('введите элементы второй матрицы'); for i: =1 to m do begin for j: =1 to n do readln(a2[i,j]); end; end; begin a3: =a1[i,j]*a2[x+1-i,x+1-j]; for i: =1 to m do begin for j: =1 to n do readln(a3[i,j]); end; writeln; end; readln; end. заранее !

👇
Ответ:
aiym19
aiym19
31.05.2021
Const
handsfree = true;

type
mas100_100 = array[1..100, 1..100] of integer;

var
a1, a2, a3: mas100_100;
i, j, m, n: integer;

procedure InitializeMatrix(var a: mas100_100; m, n: integer);
var
i, j: integer;
begin
writeln('Данные матрицы');
for i := 1 to m do 
begin
for j := 1 to n do
if handsfree then begin
a[i, j] := random(30);
write(a[i, j]:2, ' ')
end
else
read(a[i, j]);
writeln;
end;
end;

begin
writeln('Введите размер матриц');
readln(m, n);

InitializeMatrix(a1, m, n);
InitializeMatrix(a2, m, n);

writeln('Вывод результата');
for i := 1 to m do 
begin
for j := 1 to n do 
begin
a3[i, j] := a1[i, j] * a2[m + 1 - i, n + 1 - j];
write(a3[i, j], ' ');
end;
writeln;
end;

readln;
end.
4,6(38 оценок)
Открыть все ответы
Ответ:
Darvin2004
Darvin2004
31.05.2021
                                           НАПИСАНО НА ПАСКАЛЕ!
2)

program fofgogjoj;
const nmax=100;
var
m:array[1..nmax] of integer;    
n,i,j,k:byte;    
a,b,x:integer;
begin
randomize;
repeat Write('Размер массива до ',nmax div 3,' n=');
readln(n);
until n in [1..nmax div 3];
Writeln('Исходный массив:');
for i:=1 to n do  
begin
m[i]:=random(50);  
Write(m[i],' ');  
end;
Writeln;
Writeln;
Write('Введите число для вставки перед a=');
Readln(a);
i:=1;
k:=0;
while i<=n do  
begin
if m[i]>a then    
begin    
n:=n+1;    
k:=1;    
for j:=n downto i+1 do    
m[j]:=m[j-1];    
m[i]:=a;    
i:=i+2;    end  
else i:=i+1;  
end;
if k=0 then
Writeln('Элементов больше ',a,' нет')
else  
begin  
Writeln('Массив после вставки числа ',a,' перед большими ',a);  
for i:=1 to n do  
Write(m[i],' ');  
Writeln;  
Writeln;  
Write('Введите число для вставки после b=');  
Readln(b);  
i:=1;k:=0;  
while i<=n do  
if m[i]<b then    
begin    
n:=n+1;    
k:=1;    
for j:=n downto i+2 do    
m[j]:=m[j-1];    
m[i+1]:=b;    
i:=i+2;    end  
else
i:=i+1;  
if k=0 then
Writeln('Элементов меньше ',b,' нет')  
else    
begin    
Writeln('Массив после вставки числа ',b,' после меньших ',b);    
for i:=1 to n do    
Write(m[i],' ');    
end;  
end;
readln
end.
4,4(99 оценок)
Ответ:
vhbhvgh
vhbhvgh
31.05.2021

Компьютерные словари. Словари необходимы для пере­вода текстов с одного языка на другой. Первые словари были созданы около 5 тысяч лет назад в Шумере и представ­ляли собой глиняные таблички, разделенные на две части. В одной части записывалось слово на шумерском языке, а в другой — аналогичное по значению слово на другом язы­ке, иногда с краткими пояснениями.

Современные словари построены по такому же принци­пу. В настоящее время существуют тысячи словарей для перевода между сотнями языков (англо-русский, немец­ко-французский и т. д.), причем каждый из них может со­держать десятки тысяч слов. В бумажном варианте словарь представляет собой толстую книгу объемом в сотни страниц, в которой поиск нужного слова — процесс достаточно трудо­емкий.

Компьютерные словари могут содержать переводы на разные языки сотен тысяч слов и словосочетаний, а также предоставляют пользователю дополнительные возможности:

•существуют многоязычные компьютерные словари, позволяющие пользователю выбрать языки и направ­ление перевода (например, англо-русский, испано-рус­ский и т. д.); •компьютерные словари могут кроме основного словаря общеупотребительных слов содержать десятки специа­лизированных словарей по областям знаний (техника, медицина, информатика и др.); •компьютерные словари обеспечивают быстрый поиск словарных статей: «быстрый набор», когда в процессе набора слова возникает список похожих слов; доступ к часто используемым словам по закладкам; возмож­ность ввода словосочетаний и др.; •компьютерные словари могут являться мультимедий­ными, т. е. предоставлять пользователю возможность

прослушивания слов в исполнении дикторов, носите­лей языка;

• онлайновые компьютерные словари в Интернете обес­печивают выбор тематического словаря и направления перевода.

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

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

Системы компьютерного перевода позволяют решить эти проблемы. Они, с одной стороны переводить мно­гостраничные документы с высокой скоростью (одна страни­ца в одну секунду), с другой стороны, переводить Web-стра­ницы «на лету», в режиме реального времени.

Системы компьютерного перевода осуществляют пере­вод текстов, основываясь на формальном «знании» языка: синтаксиса языка (правил построения предложений), пра­вил словообразования и использовании словарей. Програм­ма-переводчик сначала анализирует текст на одном языке, а затем конструирует этот текст на другом языке.

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

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

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