Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Андрей Андреев
0 / 0 / 0
Регистрация: 29.05.2012
Сообщений: 15
1

Списки. Вывести на экран элементы списка в указанной последовательности

29.05.2012, 23:44. Просмотров 849. Ответов 1
Метки нет (Все метки)

дан список из n целых чисел a1,a2,...an.
вывести на экран элементы списка в указанной последовательности:
a(1),a(2),...,a (n/2), a(n),a (n-1),...,a (n\2 +1)
( n- четное)
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.05.2012, 23:44
Ответы с готовыми решениями:

Списки. Вывести экран элементы списка в указанной последовательности
1)Дан список из n целых чисел a,a2,...,a.Вывести экран элементы списка в...

Вывести на экран элементы списка в обратном порядке
Вывести на экран элементы списка в обратном порядке. Входные данные: N –...

Вывести на экран те элементы списка, которые больше своих соседей
Дан список из n целых чисел a1,a2,..,an. Вывести на экран те элементы списка,...

Однонаправленные списки.Написать подпрограмму,которая добавляет в конец списка А1 элементы списка А2 со значением больше за 3
Однонаправленные списки. Дано: 2-а списка .А1-первое поле-отрицательное число...

Списки. Поменять местами максимальный и минимальный элементы списка.
Написать программу, которая меняет максимальный и минимальный элементы списка....

1
Skyride
5 / 5 / 3
Регистрация: 02.12.2011
Сообщений: 13
30.05.2012, 11:25 2
Лучший ответ Сообщение было отмечено Андрей Андреев как решение

Решение

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
45
46
47
type pnode_t=^node_t;
         node_t=record
             info:integer;
             prev,next:pnode_t;
     end;
procedure create(var list,list_2:pnode_t);
var elem:pnode_t; x,i:integer;
begin
    new(elem);
    readln(x);
    elem^.info:=x;
    list:=elem;
    list^.prev:=nil;
    list_2:=list;
       for i:=1 to 5 do begin
     new(elem);
     readln(x);
     elem^.info:=x;
     list^.next:=elem;
     elem^.prev:=list;
     list:=elem;
        end;
     list^.next:=nil;
 
end;
procedure print(list_2,list:pnode_t);
var n,k,i:integer;
begin
n:=6 div 2;
for i:=1 to n do begin
writeln(list_2^.info);
list_2:=list_2^.next;
end;
for i:=n+1 to 6 do begin
writeln(list^.info);
list:=list^.prev;
end;
end;
 
var list,list_2:pnode_t;
begin
create(list,list_2);
writeln('=---===-------==');
 
print(list_2,list);
 
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.05.2012, 11:25

Списки. Удалить из списка все элементы, входящие в него в точности 2 раза
Дан список из n целых чисел a1,a2,..,an. Удалить из списка все элементы,...

Двунаправленные списки. Вывести положительные элементы, оба соседа которых - отрицательные
Вывести в обратном порядке все числа для которых выполняется условие : оба его...

Создание списка, печать списка на экран, добавления элемента в начало списка, конец списка
Построить динамическую структуру типа список . Необходимо реализовать следующие...


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

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

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