Определить есть ли в файле повторяющиеся числа, и если да, то выдать их

@alex 12 · Регистрация: 21.01.2014

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

Дан файл содержащий действительные числа. Определить есть ли в нём повторяющиеся числа, и если да то выдать их.

@code-n'-help · 17.02.2014, 17:32

Попробуй так

Pascal

var n,i:word; A:array [1..10000] of real; etalon:real; Dopmas:array [1..5000] of real; counter:word;
begin
counter:=1;
n:=0;  
while not seekeof(f) do
begin
inc(n);
read(A[n]);
end;
for i:=1 to n do
  for j:=1 to n do
begin
etalon:=A[i];
if (i <>j) and (etalon=A[j]) and (etalon<>-12345)
then begin Dopmas[counter]:=etalon;
A[i]:=-12345;
A[j]:=-12345;
inc(counter);
end;
for i:=1 to counter do
write(Dopmas[i]);
end.

что-то типо этого но алгоритм не идеальный

Добавлено через 24 секунды
Попробуй так

Pascal

var n,i:word; A:array [1..10000] of real; etalon:real; Dopmas:array [1..5000] of real; counter:word;
begin
counter:=1;
n:=0;  
while not seekeof(f) do
begin
inc(n);
read(A[n]);
end;
for i:=1 to n do
  for j:=1 to n do
begin
etalon:=A[i];
if (i <>j) and (etalon=A[j]) and (etalon<>-12345)
then begin Dopmas[counter]:=etalon;
A[i]:=-12345;
A[j]:=-12345;
inc(counter);
end;
for i:=1 to counter do
write(Dopmas[i]);
end.

что-то типо этого но алгоритм не идеальный
Так лутше

@alex 12 0 / 0 / 0 Регистрация: 21.01.2014 Сообщений: 15
		1
	Определить есть ли в файле повторяющиеся числа, и если да, то выдать их 16.02.2014, 21:49. Показов 1293. Ответов 1 Метки нет (Все метки) Дан файл содержащий действительные числа. Определить есть ли в нём повторяющиеся числа, и если да то выдать их. 0

Опции темы

Определить есть ли в файле повторяющиеся числа, и если да, то выдать их

Решение