Списки, представления

11.12.2014, 01:55. Показов 572. Ответов 0

Метки нет (Все метки)

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

Даны натуральное число n, действительные числа а1,...,аn заканчивающиеся 0. Преобразовать последовательность а1,...,аn, расположив в начале отрицательные члены, а затем - неотрицательные. При этом порядок отрицательных чисел сохраняется прежним, а порядок неотрицательных изменяется на обратный.

Это нужно решить с помощью списков, как я ними работать не могу понять совсем, решила с помощью массивов, но такой вариант не принимают =( Помогите пожалуйста!

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

Pascal
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
type
    Tinf = integer;
    List = ^TList;
    TList = record 
        data: TInf;
        next: List;  
    end;
var
    Spis, tmpl: List;
    value, size, i: integer;
 
procedure add(var spis1: List; znach1: TInf);
    // Процедура добавления нового элемента в односвязный список
    var
        tmp: List;
    begin
        if spis1 = nil then
            begin
                new(spis1);  
                tmp := spis1;
            end
        else
            begin
                tmp := spis1;
                while tmp^.next <> nil do
                    tmp := tmp^.next;
                new(tmp^.next);
                tmp := tmp^.next;  
            end;
        tmp^.next := nil; 
        tmp^.data := znach1; 
    end;
 
begin
    Spis := nil;
    write('Введите размер списка: ');
    readln(size);
    for i:=0 to size do
        begin
            write('Элемент ', i, ': ');
            readln(value);
            add(Spis, value);
        end;
end.

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

11.12.2014, 01:55

Ответы с готовыми решениями:

Линейные списки и циклические списки
Подскажите,кто как может,у меня тут 2 лабы,с чего мне начать,где можно материал взять?? 1-ая лабораторная: Линейные списки ...

Как получить нужные данные из представления , а именно строки представления
Доброго времени суток. на главной форме у меня информация выводится через представление zews... информация в него попадает если запись...

Списки, списки, списки. не все так просто
Написать функцию, которая принимает 2 списка, содержащие одинаковое число строк, затем изменяет списки сопоставляя строки, занимающие...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

11.12.2014, 01:55

Помогаю со студенческими работами здесь

Как преобразовать вложенные списки из строки в обычные списки?
Доброе утро, форумчане. Подскажите пожалуйста, мне нужно написать скрипт, который разбирает строку на список вложенный друг в друга....

Список женихов и невест. Обьеденить списки в списки пар.
Имеется список женихов и невест. каждая запись списка содержит пол, имя, возраст, рост, вес, а также требуванию к партнеру: наименьший и...

Дан вектор, элементы которого списки из целых чисел.Заменить на NILL списки с суммой равной 0
Дан вектор, элементы которого списки из целых чисел.Заменить на NILL списки с суммой равной 0.

Списки, как склеить списки между собой?
Ребят, привет всем, есть код, в классе которого описаны несколько методов: добавление элемента в список, удаление и просмотр списка, дак...

Зависимые списки, снова списки и проблема
<div class="t-product__option js-product-option newselect"> <div class="t-product__option-title t-descr t-descr_xxs...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

Наверх