ВУЗ:
Составители:
Рубрика:
18
2.1 Клиентские приложения для класса «Список»
Задача 1. Заполнить список десятью случайными целыми числами и вывести
его.
Решение. Достаточно использовать только основные и вспомогательные ме-
тоды:
uses IntList;
var L: List;
begin
Randomize;
L:=List.Create;
for i:=1 to 10 do
L.AddLast(Random(100));
writeln(L.ToString);
L.Destroy;
end.
Задача 2. Дан список целых. После каждого четного элемента вставить эле-
мент, равный удвоенному значению предыдущего элемента.
Решение. Воспользуемся перемещением по
списку с помощью внутреннего
итератора. Приведем решение, считая, что список уже создан и заполнен:
L.MoveFirst;
while not L.Eol do
begin
if L.Current mod 2 = 0 then
begin
L.InsertAfter(2*L.Current);
L.Next; // передвинуться на вставленный элемент
end;
L.Next;
end;
Задача 3. Дан список целых. Удалить все элементы, стоящие на четных мес-
тах.
Решение. Будем использовать тот факт, что после удаления элемента
внут-
ренний итератор передвигается на следующий элемент:
L.MoveFirst;
while not L.Eol do
begin
L.Next;
if not L.Eol then
L.Delete;
end;
Страницы
- « первая
- ‹ предыдущая
- …
- 14
- 15
- 16
- 17
- 18
- …
- следующая ›
- последняя »