Как найти одинаковые элементы массива паскаль - Исправление недочетов и поиск решений вместе с Examum.ru

0 / 0 / 0

Регистрация: 21.11.2009

Сообщений: 10

Поиск повторяющихся элементов в массиве

09.12.2009, 20:36. Показов 19353. Ответов 1

дайте, пожалуйста, программный код нахождения повторяющихся элементов в массиве. заранее благодарю!

Тамила

753 / 546 / 211

Регистрация: 12.11.2009

Сообщений: 1,100

09.12.2009, 20:44

Сообщение было отмечено Памирыч как решение

Решение

Pascal

uses crt;
var a:array[1..100]of integer;
i,n,kol,ch,j:integer;
begin clrscr;
randomize;
write('n=');
read(n);
for i:=1 to n do
 begin
  a[i]:=random(20);
  write(a[i],'  ');
 end;
writeln;
for j:=1 to n do
 begin
  kol:=0;
  ch:=a[j];
  for i:=1 to n do
  if a[i]=ch then inc(kol);
  writeln('element ',ch,' vstrechaetsya ',kol,' raz');
 end;
readkey;
end.

Источник

Здравствуйте. В колледже весь курс проходили паскаль и настало время практики. Дали индивидуальные задания и сроки. Не скажу, что паскалем владею в совершенстве, скорее на уровне опытного пользователя. В задании было всего 5 задач, 4 из которых успешно выполнены и записаны в отчёт, а вот с пятой возникли трудности.

Текст задачи:

Дан двумерный массив положительных целых чисел. Известно, что в нём присутствуют совпадающие элементы (одинаковые числа). Вывести их индексы.

Всё вроде бы и звучит просто и не должно занимать много времени, но придумать алгоритм не могу. Заранее благодарю.

αλεχολυτ♦

28.4k10 золотых знаков56 серебряных знаков118 бронзовых знаков

задан 18 июн 2012 в 18:27

Создаём массив индексов, т.е. заполняем массив натуральным рядом. Берём первый элемент, сравниваем с остальными в цикле. Индексы меньших записываем в один массив, больших — в другой (или с конца или сначала к середине нового массива), индексы равных выводим. Повторяем рекурсивно то же для меньших и для больших пока длина больше 1.

ответ дан 18 июн 2012 в 21:16

sercxjosercxjo

6,8842 золотых знака26 серебряных знаков55 бронзовых знаков

1 берем первый элемент проверяем с остальными

2 если попадается одинаковый — выводим индекс копии и индекс проверяемого элемента

3 крутимся в цикле пока есть елементы в массиве

Хорошо бы ввести проверку типа, если индекс копии меньше индекса проверяемого элемента — нечего не делать, так как он уже будет учтен

ответ дан 18 июн 2012 в 18:36

GoretsGorets

12.4k1 золотой знак19 серебряных знаков43 бронзовых знака

Стандартный алгоритм требует каждый раз пробегаться по всем элементам для сравнения.
Можно сделать еще трехмерный массив где будут сохраняться значения вида (число, индекс в первоначальном массиве) и отсортировать по возрастанию.
Получится чтото типа 10, 19, 89, 128, 170, 230, 300, …
Далее берем число1 из первого массива и сравниваем. Если число1 становится меньше числа из второго массива то break

экономим N/2 пробежек на каждом проходе

ответ дан 18 июн 2012 в 22:08

ТентаклькоацтльТентаклькоацтль

3101 золотой знак2 серебряных знака12 бронзовых знаков

Источник

const N=10;
var 
  a,b:array [1..N] of integer;
  i, j, k,l:integer;
  z:boolean;
begin
  randomize;
  for i:=1 to N do
   begin
     a[i]:= random(1,N);
     write(a[i]:3);
   end;
   writeln;
   l:=0;
   write('Эти числа повторяются: ');
   for i:= 1 to N do
     for j:= i+1 to N do
       if a[i]=a[j] then begin
         z:=true;
         for k:=1 to l do 
           if a[i]=b[k] then begin
             z:=false;
             break;
           end;
         if z then begin 
           l:=l+1;
           b[l]:=a[i];
         end;
        end;
  if l=0 then writeln('отсутствуют повторяющиеся элементы') else
    for i:=1 to l do write(b[i],' ');
end.

Источник

Поиск в массиве одинаковых элементов

В этой теме 0 ответов, 1 участник, последнее обновление 6 лет, 2 месяца назад сделано Васильев Владимир Сергеевич.

Сообщения

На языке Pascal проверить есть ли в заполненном случайными числами массиве элементы с одинаковыми значениями.

program arrays_9;
uses crt;
var
  n, i, j: integer;
  b: boolean;
  A: array[1..100] of integer;
begin
  clrscr;
  randomize;
  b:=false;
  write('Количество элементов > '); read(n);
  for i:=1 to n do
  begin
    A[i]:=random(10); write(A[i], ' ');
    if i>1 then for j:=i-1 downto 1 do
    if A[i]=A[j] then b:=true;
  end;
  if b then write('Одинаковые элементы в массиве имеются')
  else write('Одинаковых элементов в массиве нет');
  readkey;
end.

Автор

Сообщения

Для ответа в этой теме необходимо авторизоваться.

Источник

1 ответ:

0

0

Var a: array[1..10] of integer;
var i, j, ans:integer;
begin
ans:=0;
for i:=1 to 10 do
begin readln(a[i]);
end;
for i:=1 to 10 do
begin
for j:=i+1 to 10 do
begin
if a[i]=a[j] then ans:=ans+1;
end;
end;
if ans>0 then writeln(‘есть’)
else writeln(‘нет’);
end.

Читайте также

#include «pch.h»

#include <iostream>

using namespace std;

int main()

{

cout << «2nn0nn4t2nn3t3nn6t4t2nn6t6t6nn8t6t4t2nn9t9t9t9»;

system («pause»);

return 0;

}

Компилятор: Microsoft Visual Studio 2017 15.8.1

Найдем кол-во символов в сообщении:
K=32*40*8=10240
Найдем информационный объем одного символа:
10 кб переводим в биты: 10*1024*8=81920, тогда информационный объем одного символа (i) = 81920/10240 = 8, тогда кол-во символов в алфавите (N):
N=2^i (2 в степени i) = 2^8 = 256.
Ответ: в алфавите 256 символов

На всякий случай сделал проверку и на русские, и на английские.
задача 1.
uses crt;
var i:integer;
s:string;
begin
i:=1;
read(s);
repeat
if (s[i]=’a’) or (s[i]=’а’) then
s:=copy(s,1,i)+’ ‘+copy(s,i+1,length(s));
i:=i+1;
until i=length(s)+1;
writeln(s);
end.
задача 2.
uses crt;
var i:integer;
s:string;
begin
i:=1;
read(s);
repeat
if (s[i]=’о’) or (s[i]=’o’) then
s:=copy(s,1,i-1)+’ ‘+copy(s,i+1,length(s));
i:=i+1;
until i=length(s)+1;
writeln(s);
end.

Ответ:

n = int(input())

a = [int(i) for i in input().split()]

print(*[i for i in a if not i % 2])

Объяснение:

//PascalABC.Net 3.1 сборка 1200
uses System;

begin
 var Replace4to16 := new Dictionary<string, string>();
 Replace4to16.Add(’00’, ‘0’);
 Replace4to16.Add(’01’, ‘1’);
 Replace4to16.Add(’02’, ‘2’);
 Replace4to16.Add(’03’, ‘3’);
 Replace4to16.Add(’10’, ‘4’);
 Replace4to16.Add(’11’, ‘5’);
 Replace4to16.Add(’12’, ‘6’);
 Replace4to16.Add(’13’, ‘7’);
 Replace4to16.Add(’20’, ‘8’);
 Replace4to16.Add(’21’, ‘9’);
 Replace4to16.Add(’22’, ‘a’);
 Replace4to16.Add(’23’, ‘b’);
 Replace4to16.Add(’30’, ‘c’);
 Replace4to16.Add(’31’, ‘d’);
 Replace4to16.Add(’32’, ‘e’);
 Replace4to16.Add(’33’, ‘f’);

var n4 := ReadString(‘a_4 = ‘);
if n4.Length mod 2 = 1 then n4 := ‘0’ + n4;

        var n16 := »;
    for var i := 0 to n4.Length div 2 — 1 do
        if Replace4to16.ContainsKey(n4.Substring(2 * i, 2)) then
            n16 += Replace4to16[n4.Substring(2 * i, 2)]
        else writeln(‘Неверные знаки «‘, n4.Substring(2 * i, 2), ‘» в числе’);

writeln(n16);
end.

Источник