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

Составьте программу, выясняющую, все ли элементы двухмерного массива А(P,Q)
различны.
в паскале

👇
Ответ:
kokosik23
kokosik23
28.12.2020

===== PascalABC.NET =====

begin

 var (p, q) := ReadInteger2('Введите p и q:');

 var a := MatrRandom(p, q, -99, 99);

 a.Println;

 if a.ElementsByRow.Distinct.Count = p * q then

   Print('Все элементы различны')

 else

   Print('Есть повторяющиеся элементы')

end.


Составьте программу, выясняющую, все ли элементы двухмерного массива А(P,Q) различны. в паскале
4,4(47 оценок)
Открыть все ответы
Ответ:
самая29
самая29
28.12.2020

D1

формула: =$A1*B$1+$C$1

значение: 9

D2

формула: =$A2*B$1+$C$1

значение: 14

E1

формула: =$A1*C$1+$C$1

значение: 24

E2

формула: =$A2*C$1+$C$1

значение: 44

Объяснение:

A1 = 5         B1 = 1         C1 = 4

A2 = 10       B2 = 2       C2 = 6

Вычислим значение формулы в ячейке D1:

D1 = $A1*B$1+$C$1 = 5 * 1 + 4 = 5 + 4 = 9

Разберём формулу из ячейки D1 (=$A1*B$1+$C$1)

Формула содержит 2 вида ссылок:

1) смешанные ($A1 и B$1) - часть которых будет изменяться при копировании

Для ссылки: $A1 будет изменяться номер строки при копировании сверху вниз по строкам, т.к. он не закреплён знаком ($) неизменности ссылки

Для ссылки: B$1 будет изменяться буква столбца при копировании слева направо по столбцам, т.к. она не закреплён знаком ($) неизменности ссылки

2) абсолютная ($C$1) - при копировании изменяться не будет (и номер столбца и номер строки закреплён знаком ($) неизменности ссылки)

Вычислим значение формулы в ячейке D2:

D2 = $A2*B$1+$C$1 = 10 * 1 + 4 = 10 + 4 = 14

При копировании формулы из D1 в D2 не меняется столбец и меняется строка, поэтому в первой ссылке изменится номер строки на 1, а вторая и третья ссылки останутся без изменений

Вычислим значение формулы в ячейке E1:

E1 = $A1*C$1+$C$1 = 5 * 4 + 4 = 20 + 4 = 24

При копировании формулы из D1 в E1 не меняется строка и меняется столбец, поэтому во второй ссылке изменится буква столбца на 1, а первая и третья ссылки останутся без изменений

Вычислим значение формулы в ячейке E2:

E2 = $A2*C$1+$C$1 = 10 * 4 + 4 = 40 + 4 = 44

При копировании формулы из D1 в E2 меняется и столбец и строка, поэтому в первой ссылке изменится номер строки на 1, а во второй ссылке изменится буква столбца на 1 и только третья ссылка останется без изменений

Ссылки в Excel бывают 3 видов:

1) Относительные ссылки - ссылки, в которых просто указываются буква столбца и номер строки (А1). При копировании изменяются: влево и в право изменяются названия столбца, вверх и вниз номер строки.

2) Абсолютные ссылки - ссылки в которых перед буквой столбца и номером строки ставится знак $ (знак неизменности ссылки) ($A$1). При копировании не изменяются.

3) Смешанные ссылки - ссылки, которые имеют признаки относительных и абсолютных ссылок одновременно ($A1 или A$1). При копировании изменяются только те столбцы или строки перед которыми нет знака $.

4,6(8 оценок)
Ответ:
Лера111222333
Лера111222333
28.12.2020
Const e=0.001;
var x,xn,h,an,s,f,y:real; n,k,i:integer;
begin
n:=10;
h:=(1-0.1)/(n-1);
x:=0.1-h;
for i:=1 to n do
 begin
 x:=x+h; an:=1;
 xn:=1; f:=1;
 k:=0;  s:=1;
 while an>e do
  begin
  xn:=xn*x*x;
  k:=k+1;
  f:=f*k;
  an:=(2*k+1)*xn/f;
  s:=s+an;
  end;
 y:=(1+2*x*x)*exp(x*x);
 writeln('x = ',x:4:1,'  s = ',s:6:4,'  y = ',y:6:4);
 end;
end.

Результат:
x = 0.1  s = 1.0303  y = 1.0303
x = 0.2  s = 1.1241  y = 1.1241
x = 0.3  s = 1.2911  y = 1.2911
x = 0.4  s = 1.5490  y = 1.5490
x = 0.5  s = 1.9260  y = 1.9260
x = 0.6  s = 2.4653  y = 2.4653
x = 0.7  s = 3.2320  y = 3.2320
x = 0.8  s = 4.3240  y = 4.3240
x = 0.9  s = 5.8894  y = 5.8895
x = 1.0  s = 8.1548  y = 8.1548
4,4(3 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ