Сравнить поэлементно две последовательности

@Dazuko · Регистрация: 15.05.2012

Студворк — интернет-сервис помощи студентам

1.Дана последовательность чисел а_1…а_n и b_1…b_n (N<20). Сравнить поэлементно две последовательности. Выдать ответ “Различны” или “Одинаковы”.
2.Дана матрица А(m,n). Найти номера строки и столбца для элемента матрицы,наиболее близкого к среднему значению всех её элементов.
3.В последовательности а_1…а_30 элементы вычисляются так: а_1=1, а_2=2, а_3=(а_1-а_2)/2, а_4=(а_2-а_3)/2. Составить функцию вычисления элементов массива Element(n), где n-номер элемента, значение которого нужно получить. Заполнить с её помощью два одномерных массива.

@zuxa-zuxa · 15.05.2012, 11:04

Ну я так понял в 1 задаче массив.
ну так вроде сравнивать:

Delphi
1
if (a_[1]=b_[1]) and (a_[2]=b_[2]) ...... (a_[19]=b_[19]) then 'одинаковые' else 'разные'.

ну или проще:

Delphi
1
2
3
4
5
for i:=1 to 20 do
begin
  if a_[i]=b_[i] then k:=k=1;
end;
if k=20 then 'одинаковы' else 'разные'

@Dazuko · 15.05.2012, 11:07 **[ТС]**

да тут массив, помогите решить пожалуйста а то я не бум-бум совсем)

@вумудщзук · 15.05.2012, 11:16

k:=k=1 +)

@Dazuko · 15.05.2012, 11:27 **[ТС]**

вумудщзук, а 2ую задачку не можете решить? плиз очень нужно, там тоже массив

@вумудщзук · 15.05.2012, 11:34

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  b: boolean;
begin
  b:=true;
  for i := 0 to StrToInt(Edit1.text)-1 do
    begin
      if posled1.Cells[i, 0]<>posled2.Cells[i, 0] then
        begin
          b:=false;
        end;
    end;
  if b then label4.Caption:='Одинаковые'
       else label4.Caption:='Разные';
end;

@вумудщзук · 15.05.2012, 11:46

Сейчас до дому до берусь через час отвечу.

@zuxa-zuxa · 15.05.2012, 12:19

Сообщение от вумудщзук

k:=k=1 +)

Опечаточка...

Во 3-я задачка...

Delphi
1
2
3
4
5
6
7
8
a_[1]:=1;
a_[2]:=2;
i:=3;
while i<=30 do
begin
a_[i]:=a_[i-2] - a_[i-1];
i:=i+1;
end;

@вумудщзук · 15.05.2012, 12:57

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
procedure TForm1.Button1Click(Sender: TObject);
var
  N, M: integer;
begin
  setlength(mas, StrToInt(edit1.text), StrToInt(edit2.text));
  for N := 0 to StrToInt(Edit1.text) - 1 do
    begin
      for M := 0 to StrToInt(Edit2.text) - 1 do
        begin
          mas[N, M]:=random(51)-25;
          StringGrid1.Cells[N, M]:=IntToStr(mas[N, M]);
        end;
    end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  N, M, cnt, indN, indM: integer;
  Sum, SrAr, min: real;
begin
  if CheckBox1.Checked then
    begin
      setlength(mas, StrToInt(edit1.text), StrToInt(edit2.text));
      for N := 0 to StrToInt(Edit1.text)  - 1 do
        begin
          for M := 0 to StrToInt(Edit2.Text) - 1 do
            begin
              mas[N, M]:=StrToInt(StringGrid1.Cells[N, M])
            end;
        end;
    end;
  Sum:=0;
  cnt:=0;
  for N := 0 to StrToInt(Edit1.Text) - 1 do
    begin
      for M := 0 to StrToInt(Edit2.text) - 1 do
        begin
          Sum:=Sum+mas[N, M];
          cnt:=cnt+1;
        end;
    end;
  SrAr:=Sum/cnt;
  min:=abs(SrAr-mas[0, 0]);
  indN:=1;
  indM:=1;
  for N := 0 to StrToInt(Edit1.Text) - 1 do
    begin
      for M := 0 to StrToInt(Edit2.text) - 1 do
        begin
          if abs(SrAr-mas[N, M])<min then
            begin
              min:=SrAr-mas[N, M];
              indN:=N+1;
              indM:=M+1;
            end;
        end;
    end;
  ShowMessage('Наиболее близкий элемент к среднему значению муатрицы - А['+IntToStr(indN)+', '+IntToStr(indM)+'], равен '+StringGrid1.Cells[indN-1, indM-1]);
end;

@вумудщзук · 15.05.2012, 12:58

Сообщение от zuxa-zuxa

Delphi
1
2
3
4
5
6
7
8
a_[1]:=1;
a_[2]:=2;
i:=3;
while i<=30 do
begin
a_[i]:=a_[i-2] - a_[i-1];
i:=i+1;
end;

Delphi
1
2
3
4
5
6
7
8
a_[1]:=1;
a_[2]:=2;
i:=3;
while i<=30 do
begin
a_[i]:=(a_[i-2] - a_[i-1])/2;
i:=i+1;
end;

Деление, деление забыл!!!

Новые блоги и статьи Все статьи Все блоги /
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Рецензия / Мнение Это мой обзор планшета X220 с точки зрения школьника. Недавно я решила попытаться уменьшить свой. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .

Сравнить поэлементно две последовательности

Решение

Решение

@Dazuko 0 / 0 / 0 Регистрация: 15.05.2012 Сообщений: 3

	Сравнить поэлементно две последовательности 15.05.2012, 10:47. Показов 1467. Ответов 9 Метки нет (Все метки) 1.Дана последовательность чисел а_1…а_n и b_1…b_n (N<20). Сравнить поэлементно две последовательности. Выдать ответ “Различны” или “Одинаковы”. 2.Дана матрица А(m,n). Найти номера строки и столбца для элемента матрицы,наиболее близкого к среднему значению всех её элементов. 3.В последовательности а_1…а_30 элементы вычисляются так: а_1=1, а_2=2, а_3=(а_1-а_2)/2, а_4=(а_2-а_3)/2. Составить функцию вычисления элементов массива Element(n), где n-номер элемента, значение которого нужно получить. Заполнить с её помощью два одномерных массива. 0

@Dazuko 0 / 0 / 0 Регистрация: 15.05.2012 Сообщений: 3
	15.05.2012, 11:07 [ТС]
	да тут массив, помогите решить пожалуйста а то я не бум-бум совсем) 0

@вумудщзук 64 / 64 / 10 Регистрация: 19.05.2010 Сообщений: 198
	15.05.2012, 11:16
	k:=k=1 +) 0

@Dazuko 0 / 0 / 0 Регистрация: 15.05.2012 Сообщений: 3
	15.05.2012, 11:27 [ТС]
	вумудщзук, а 2ую задачку не можете решить? плиз очень нужно, там тоже массив 0

@вумудщзук 64 / 64 / 10 Регистрация: 19.05.2010 Сообщений: 198
	15.05.2012, 11:46
	Сейчас до дому до берусь через час отвечу. 0