0 / 0 / 0
Регистрация: 28.02.2011
Сообщений: 12
1

Определить, сколько раз массив M2 встречается в M1

28.02.2011, 19:17. Показов 1648. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дан массив целых чисел M1.
Вводим массив M2, размер которого значительно меньше, чем у M1.
определить, сколько раз массив M2 встречается в M1.


Помогите с прогой на языке Паскаль - за год позабыл че да как, а нужно курсач написать
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.02.2011, 19:17
Ответы с готовыми решениями:

Массив: Определить, сколько раз встречается минимальное число?
Дан одномерный массив .Определить сколько раз встречается минимальное число

массив. Определить сколько раз встречается число 7 среди элементов массива
1) его массив из n элементов. Определить, сколько раз встречается число 7 среди элементов массива....

Определить сколько раз в строке встречается заданное слово через массив символов
C# ИМЕННО ЧЕРЕЗ МАССИВ СИМВОЛОВ! Определить сколько раз в строке встречается заданное слово

Дан числовой массив. Определить, сколько раз в нем встречается максимальный по величине элемент.
7.10.1. Помогите, пожалуйста, решить задачу в С++. Дан числовой массив. Определить, сколько...

4
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
01.03.2011, 10:09 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
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
uses crt;
const nmax=100;
var m1,m2:array[1..nmax] of integer;
    n,m,i,j,k:byte;
    f:boolean;
begin
clrscr;
randomize;
repeat
write('Размер массива M1 от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Введите элементы массива М1:');
for i:=1 to n do
 begin
  write('m1[',i,']=');
  readln(m1[i]);
 end;
repeat
write('Размер массива M2 до ',n-1,' m=');
readln(m);
until m in [1..n-1];
writeln('Введите элементы массива М2:');
for i:=1 to m do
 begin
  write('m2[',i,']=');
  readln(m2[i]);
 end;
clrscr;
writeln('Массив М1:');
for i:=1 to n do
write(m1[i],' ');
writeln;
writeln;
writeln('Массив М2:');
for i:=1 to m do
write(m2[i],' ');
writeln;
writeln;
k:=0;
for i:=1 to n-m+1 do
 begin
  f:=true;
  j:=1;
  while(j<=m)and f do
  if m2[j]<>m1[i+j-1] then f:=false
  else j:=j+1;
  if f then k:=k+1;
 end;
write('Массив М2 входит в массив М1 ',k,' рз.');
readln
end.
1
0 / 0 / 0
Регистрация: 28.02.2011
Сообщений: 12
03.03.2011, 21:12  [ТС] 3
спасибо) а так правильно?

Pascal
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
program aa;
const
p=20;
m=5;
var
a:array [1..p] of integer;
b:array [1..m] of integer;
k,i,j,n:byte;
t:boolean;
begin
   k:=0;
   writeln ('Введите массив А');
   for i:=1 to p do
    readln(a[i]);
   writeln ('Введите массив Б');
   for i:=1 to m do
    readln(b[i]);
   i:=1;
   repeat
     t:=true;
     if b[1]=a[i] then begin
     n:=i;
      for j:=2 to m do begin
      inc(n);
       if a[n]b[j] then begin t:=false; break; end; end;
     if t then inc(k); end;
     inc(i);
     until i>p-m+1;
  writeln ('Массив Б встречается в массиве А ',k, 'раз');
  readln;
end.
0
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
03.03.2011, 21:17 4
если в этой строке
Pascal
1
if a[n]b[j] then begin t:=false;
было
Pascal
1
if a[n]<>b[j] then begin t:=false;
то правильно.
0
0 / 0 / 0
Регистрация: 28.02.2011
Сообщений: 12
03.03.2011, 21:20  [ТС] 5
да забыл поставить
спасибо)
0
03.03.2011, 21:20
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.03.2011, 21:20
Помогаю со студенческими работами здесь

Дан массив А(п), состоящий из целых чисел. Определить сколько раз в нём встречается заданное целое число n
Дан массив А(п), состоящий из целых чисел. Определить сколько раз в нём встречается заданное целое...

Дан массив А(п), состоящий из целых чисел. Определить сколько раз в нём встречается заданное целое число n
Дан массив А(п), состоящий из целых чисел. Определить сколько раз в нём встречается заданное целое...

Определить, сколько раз в строке встречается буква a, сколько цифр и сколько заглавных букв
4)Вводится строка символов, заканчивающаяся точкой. Определите, сколько раз в ней встречается...

Дан массив из n элементов. Определить, сколько раз встречается число 5 среди элементов массива.
Здравствуйте. Помогите, пожалуйста, решить задачу. Дан массив из n элементов. Определить, сколько...

Дан двухмерный массив n×m элементов. Определить, сколько раз встречается число 7 среди элементов массива
Дан двухмерный массив n×m элементов. Определить, сколько раз встречается число 7 среди элементов...

Дан двухмерный массив n×m элементов. Определить, сколько раз встречается число 7 среди элементов массива
как построить цикл на поиск числа 7


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru