Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
1 / 0 / 0
Регистрация: 17.03.2012
Сообщений: 17
1

Удалить 2-й элемент списка,если он нечетный,иначе этот элемент обнулить

02.05.2012, 12:05. Просмотров 1206. Ответов 1
Метки нет (Все метки)

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

Как удалить выбранный элемент из списка (делфи)?
Подскажите пожалуйста процедуру удаления выбранного элемента из списка в следующей программе: unit...

Найти min элемент в А и min элемент в B, если min A < min B, то обнулить главную диагональ в А, иначе в В
Ребят помогите пожалуйста с задачей, не понимаю как ее решить, завтра за нее голову отрубят.. ...

Если элемент массива четный, то прибавить к нему первый элемент массива, если нечетный - то последний. В чем ошибка?
Помогите решить: Если элемент массива четный, то прибавить к нему первый элемент массива, если...

Удалить из списка L второй элемент, если такой есть
Описать процедуру, которая удаляет из списка L второй элемент, если такой есть. Использовать...

1
13029 / 5815 / 1704
Регистрация: 19.09.2009
Сообщений: 8,807
02.05.2012, 12:53 2
Лучший ответ Сообщение было отмечено astrobear как решение

Решение

На форму надо положить 2 Мемо и кнопку. В Мемо1 вводятся исходные числа для списка - каждое число на отдельной строке. В Мемо2 выводится результат.
Delphi
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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
type
  //Тип указателя на элемент списка.
  TPElem = ^TElem;
  //Тип элемента списка.
  TElem = record
    Data : Integer;
    PNext : TPElem;
  end;
 
//Распечатка однонаправленного списка.
function ListToStr(aPList : TPElem) : String;
var
  i : Integer;
begin
  Result := '';
  if aPList = nil then begin
    Result := 'Список пуст.';
    Exit;
  end;
 
  i := 0;
  while aPList <> nil do begin
    Inc(i);
    if i > 1 then Result := Result + ', ';
    Result := Result + IntToStr(aPList^.Data);
    aPList := aPList^.PNext;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  P1, P2, PElem : TPElem;
  i : Integer;
  S : String;
begin
  //Начальная инициализация списка.
  P1 := nil; //Указатель на первый элемент списка.
  P2 := nil; //Указатель на последний элемент списка.
 
  //Читаем числа из Мемо1 и добавляем их в список.
  //Предполагается, что каждое число расположено на отдельной строке.
  for i := 0 to Memo1.Lines.Count - 1 do begin
    S := Memo1.Lines[i];
    if S = '' then Continue; //Пропуск пустых строк.
    New(PElem);
    PElem^.Data := StrToIntDef(S, 0);
    PElem^.PNext := nil;
    if P2 = nil then P1 := PElem
    else P2^.PNext := PElem;
    P2 := PElem;
  end;
 
  Memo2.Lines.Add('--------------------------------------------------');
  Memo2.Lines.Add('Составлен список:');
  Memo2.Lines.Add(ListToStr(P1));
 
  //Решение задачи.
  if (P1 <> nil) and (P1^.PNext <> nil) then begin
    PElem := P1^.PNext;
    if PElem^.Data mod 2 = 0 then
      PElem^.Data := 0
    else begin
      P1^.PNext := P1^.PNext^.PNext;
      Dispose(PElem);
    end;
  end;
 
  Memo2.Lines.Add('Список после обработки:');
  Memo2.Lines.Add(ListToStr(P1));
 
  //Удаление списка из памяти.  
  P2 := nil;
  while P1 <> nil do begin
    PElem := P1;
    P1 := P1^.PNext;
    Dispose(PElem);
  end;
end;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.05.2012, 12:53

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

Если индекс элемента массива четный, то элемент возвести в квадрат, если нечетный – удвоить
Дан одномерный массив размерности 20. Заполнить его случайными числами на отрезке . Сформировать...

Удалить последний нечетный элемент из массива
Дан одномерный массив чисел. Удалить последний нечетный элемент

Удалить из массива первый нечетный элемент.
Дан массив B, состоящий из n элементов. Элементы массива ввести с использованием компонента Edit....

Удалить столбец матрицы, в котором находится первый нечетный отрицательный элемент
Дан двумерный массив размером 6*7,заполненный случайным образом. А)удалить столбец.в котором...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.