Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Visual Studio Pro 2010 - не запускается установка http://www.cyberforum.ru/cpp-beginners/thread951072.html
Добрый день. Скачал версию professional rus, монтирую образ, запуская setup (autorun) от администратора. В появившемся окно нажимаю "Установить Microsoft Visual Studio 2010". Окно немного думает,...
C++ Проблемы с выводом Это часть программы. При вводе фамилии , имени, телфон, дату и вводишь "*" вывод получаеться правильный( выводить фамилия и имя). При вводе этих данных 2 и или более раз он начинает выводить телефон... http://www.cyberforum.ru/cpp-beginners/thread951059.html
C++ Коннект к реестру
Доброго времени суток! Стоит задача внести запись в реестр(автозагрузка определенной программы). Код: int main() { _TCHAR szPath = _T("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run\\"); ...
C++ Создание и завершение процессов и потоков. Приоритеты выполнения потоков
Здравствуйте. Буду очень раз если поможете понять,что конкретно нужно сделать в вот этом задании,пока особого представления о многопоточности не имею,так что вьехать самому не получилось. ...
C++ 0 (не + и не -) http://www.cyberforum.ru/cpp-beginners/thread951041.html
Необходимо чтобы 0 при заполнении массива не учитывался не в положительных, не в отрицательных числах массива. А задание было такое: Дан массив А(n). Все положительные его элементы поместить в начало...
C++ Вывести поля класса Положим, есть класс A: class A { public: int a,b,c,d; // . . . какие-то функции } Как перегрузить оператор << чтобы можно было вывести все поля класса? Может через макросы это можно сделать?... подробнее

Показать сообщение отдельно
wazler
2 / 2 / 0
Регистрация: 04.12.2011
Сообщений: 119

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

09.09.2013, 22:33. Просмотров 362. Ответов 0
Метки (Все метки)

C++
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
{
  13.5 Дан список из n целых чисел a1,a2,...,an.
       Вывести на экран элементы списка в указа-
       нной последовательности:
       an,a1,an-1,a2,...,a1,an
}
 
Uses crt;
Type PList=^TList;
     TList=record
       info,k:integer;
       prev,next:PList;
  end;
Var
  head, tail: PList;
  
{Процедура меняет значения  местами}
procedure Create(var head, tail: PList);
var p: PList;
    k,i,n:integer;
begin
  new(p);
  read(k);
  p^.info:=k;
  head:=p;
  head^.prev:=nil;
  tail:=head;
  for i:=1 to 7 do begin
    new(p);
    read(k);
    p^.info:=k;
    head^.next:=p;
    p^.prev:=head;
    head:=p;
  end;
end;
 
{Процедура печатает список на экран}
procedure PrintList (tail, head: PList);
begin
  while head<>nil do
  begin
    write(' ',head^.info:2);
    write(' ',tail^.info:2);
    tail:=tail^.next;
    head:=head^.prev;
  end;
end;
 
 
begin
  ClrScr;
  writeln('Начните вводить список: ');
  Create(head,tail);
  ClrScr;
  writeln('Осортированный список:  (an,a1,an-1,a2,...,a1,an) ');
  PrintList(tail, head);
  readkey;
end.
Помогите с переводом, кому не сложно.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru