Составить программу которая проверяет есть ли в списке l хотя бы два одинаковых элемента

И в цикле ее вызывал для проверки от текущего элемента.
т.е. если функция вернет TRUE значит есть такой же элемент со значением в Value

I’m learning to live.
Форумчанин
Регистрация: 07.04.2009
Сообщений: 245

как массив впихнуть не знаю

А какой массив? И зачем его впихивать и куда? Выбросте из кода всё, что касается масива.
Всякое безобразие должно быть единообразным. Тогда это называется порядком.
Последний раз редактировалось Anatole; 30.06.2009 в 14:12 .
Форумчанин
Регистрация: 07.04.2009

Сообщений: 245
здесь не совсем коррекктно было написано

procedure dob; begin repeat new(p); write(‘vvedite zha4enie:’); readln(p^.inf); p^.next:=start; start:=p; writeln(‘else?’); readln(ch); until ch=’n’; writeln (‘spisok sozdan’); end;
Эту сточку исправте
case ‘m’ of
case ch of
Процедуру удаления отрицательных элементов со списка я бы написал так:

procedure delete_otr; var n:link; begin while (start<>nil) and (start^.inf < 0) do begin n:= start; start:=start^.next; Dispose(n); end; p := start; While p^.next <>nil do begin if p^.next^.inf < 0 then begin n:=p^.next; p^.next := p^.next^.next; Dispose(n); end else p := p^.next; end; end;
Всякое безобразие должно быть единообразным. Тогда это называется порядком.
Последний раз редактировалось Anatole; 30.06.2009 в 14:41 .
Пользователь
Регистрация: 09.06.2009

Как сравнить два списка в Excel

Сообщений: 10

Anatole, спасибо за поправки.

Stilet! А можно поподробней в каком цикле вызвать функцию.

Белик Виталий 🙂
Регистрация: 23.07.2007
Сообщений: 57,792
Приблизительно так:
У тебя есть процедура dva_odin
Вот я бы ее написал так, с учетом моей функции:

procedure dva_odin; strt:^rec; begin strt:= while strs<>nil do begin if aga(strt,strt^.inf) then begin Write(‘Есть повторы’); exit; end; strt:=strt^.next; end; end;
p.S. не проверял.
I’m learning to live.

Источник: www.programmersforum.ru

Определить, есть ли в списке хотя бы два одинаковых элемента — Turbo Pascal

Помогите решить или решите если не сложно задачу.. Составить программу, которая проверяет, есть ли в списке L хотя бы два одинаковых элемента.

Код к задаче: «Определить, есть ли в списке хотя бы два одинаковых элемента»

Листинг программы

uses crt; type alist=^l; l = record data: integer; next: alist; end; var first: alist; b,i,n: integer; procedure add(var first: alist; x: integer); var cur: alist; begin if first=nil then begin new(first); cur:=first; end else begin cur:=first; while cur^.next<>nil do cur:=cur^.next; new(cur^.next); cur:=cur^.next; end; cur^.next:=nil; cur^.data:=x; end; procedure list(first: alist); begin while first<>nil do begin write(first^.data,’ ‘); first:=first^.next; end; writeln; end; procedure same(first: alist); var cur,f: alist; begin f:=first; while first<>nil do begin cur:=f; while cur<>nil do begin if (cur^.data=first^.data) and (cur<>first) then begin writeln(‘Есть’); exit; end; cur:=cur^.next; end; first:=first^.next; end; writeln(‘Нет’); end; begin clrscr; first:=nil; write(‘Количество элементов: ‘); readln(n); for i:=1 to n do begin readln(b); add(first,b) end; writeln(‘Исходные элементы: ‘); list(first); same(first); readln; end.

Источник: studassistent.ru

Как найти в списке не повторяющееся элементы. Пишем на Python.

Developing.ru

есть ли в списке хотя бы два одинаковых элемента

3 сообщения •Страница 1 из 1

всем привет, помогите мне, пообещал девушке сделать прогу — забыл, нада на завтра. пожалуста помогите.

Проверить, есть ли в списке L хотя бы два одинаковых элемента.

а я обещал девушке три торта, бутылку коньяка, ужин при свечах.
поможешь? (сегодня ночью надо это все + лимузин).

Упорядочить список и пройти по нему в цикле: если хоть один элемент равен следующему за ним, то да. Сортировка в разделе «Алгоритмы».

Искусство программирования — заставить компьютер делать все то, что вам делать лень.
Для «спасибо» есть кнопка «Спасибо» в виде звездочки внизу под ником автора поста.

3 сообщения •Страница 1 из 1

• Системное и прикладное программирование
• ↳ Win API, Shell..
• ↳ C и C++
• ↳ Delphi и Pascal
• ↳ Программирование на Pascal и Delphi (Object Pascal)
• ↳ Все вопросы ООП
• ↳ Компоненты в Delphi
• ↳ Delphi и WinAPI, ActiveX и OLE , COM и DCOM, и т.д
• ↳ Java
• ↳ MS Office и VB(A).
• ↳ Ассемблер
• WEB программирование
• ↳ JScript, VBScript, DHTML.
• ↳ Perl, PHP, ASP .
• Некатегоризированное
• ↳ Вопрошайка
• ↳ SQL
• ↳ Алгоритмы
• ↳ Дизайн и графика
• Администрирование
• ↳ Apache, IIS.
• ↳ Операционные системы
• Работа
• ↳ Вакансии и заказы для программистов
• ↳ Поиск работы и заказов.
• ↳ Решите мне задачку
• ↳ задачи на Паскале и Delphi
• ↳ задачи на C и C++
• ↳ задачи на Basic и Visual Basic (VB)
• Прочее
• ↳ Жалобная книга
• ↳ Флейм.

Источник: www.developing.ru