IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Pascal. Выбор в массиве определенных членов.
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Мужской

Репутация: -  -1  +


Даны натуральные n, целые числа a1......an. Внутри данной последовательности могут быть повторяюшиеся члены. Получить числа. взятые по одному из каждой группы равных членов.

я делал так :

Код


Program laba3;
Uses Crt;
Var
a:array[1..10000] of integer;
k,i,n:integer;
Begin
ClrScr;

WriteLn('***************************');
WriteLn('Vvedi n. 0 < n <=10000 ');
ReadLn(n);
WriteLn('***************************');

for i:=1 to n do
  begin
   WriteLn('Enter a[',i,']');
   ReadLn(a[i]);
  end;

WriteLn('***************************');

Write('Massiv zapolnen. Sosoit iz : ');

for i:=1 to n do
  Write(a[i],' ');

  WriteLn;

for i:=1 to n do
  begin
   for k:=1 to n do
    if a[i]=a[i+k] then
     begin
      WriteLn('============================');
      WriteLn('Vot chislo iz pari : ',a[i]);
      WriteLn('============================');
     end;
  end;

  WriteLn('That''s all.');
  ReadLn;
End.



Но мою лабуду заброкавали. Прога работает, но если вводить: n=4, а потом 3 3 3 3, то фигня получается. Так же проблема с нулями.
Сказали, что нужно переделать.

заранее спасибо.
p.s. извините, что создал 2 темы сразу
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






И эту задачу тебе уже решили... Тебе же все не так и не этак. Вот и приведи 10 тестов, чтоб было ясно, КАК программа должна работать mad.gif
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Мужской

Репутация: -  -1  +


volvo, смотри
n=6 1 46 74 32 1 1 вывести 1
n=8 2 3 0 0 0 2 3 2 вывести 2 3 0
n=5 0 0 0 1 1 вывести 0 1
n=5 1 2 3 0 5 вывести ничего

понятно теперь?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Так?
...
for i := 1 to n - 1 do begin

before := 0; after := 0;
for j := 1 to i - 1 do
if arr[j] = arr[i] then inc(before);

for j := i + 1 to n do
if arr[j] = arr[i] then inc(after);

if (after > 0) and (before = 0) then write(arr[i], ' ');

end;
writeln;
...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Мужской

Репутация: -  -1  +


Всем спасибо, вот мой вариант

Код

Program laba3;
Uses Crt;
Var
a:array[1..10000] of integer;
d,p,j,i,n:integer;
Begin
ClrScr;
WriteLn('Hi, it''s laba3_7 by Serega M. Vesion 0.3 . yes or die');
WriteLn('***************************');
WriteLn('Vvedi n. 0 < n <=10000 ');
ReadLn(n);
WriteLn('***************************');

for i:=1 to n do
  begin
   WriteLn('Enter a[',i,']');
   ReadLn(a[i]);
  end;

WriteLn('***************************');

Write('Massiv zapolnen. Sosoit iz : ');

for i:=1 to n do
  Write(a[i],' ');

  WriteLn;

for i:=1 to n-1 do
  begin
   d:=0;
   p:=0;

   for j:=1 to i-1 do
    if a[j]=a[i] then inc(d);

   for j:=i+1 to n do
    if a[j]=a[i] then inc(p);

   if (p>0) and (d=0) then
    writeln('Chislo iz pari : ',a[i],' ');
  end;

WriteLn('That''s all!');
readln;
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






Ну, и чем он отличается от вышеприведенного мной? Тем, что ты поменял названия переменных? dry.gif
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 19.09.2017 22:26
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"