|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.11.2016, 19:59 | #1 |
Новичок
Джуниор
Регистрация: 30.11.2016
Сообщений: 1
|
кто сможет перевести с Паскаля на C++
Дан набор из 10 чисел. Создать две очереди: первая должна содержать числа из исходного набора с нечетными номерами (1, 3,..., 9), а вторая - с четными (2, 4,..., 10); порядок чисел в каждой очереди должен совпадать с порядком чисел в исходном наборе. Вывести указатели на начало и конец первой, а затем второй очереди.
[B]program Pointer15; type PNode=^TNode; TNode=record Data: Integer; Next: PNode; // Prev: PNode; end; procedure Add(var P1,P2:PNode;D:integer); var p :PNode; begin new(p); p^.data:=D; p^.next:=nil; if P2<>nil then begin P2^.Next:=P; P2:=P2^.Next; end else begin P1:=p; P2:=p; end; end; var Even1,Even2,Odd1,Odd2:PNode; a:^Word; i,D:integer; begin new(Even1); new(Even2); new(Odd1); new(Odd2); Even1:=nil; Even2:=nil; Odd1:=nil; Odd2:=nil; for i:=1 to 10 do begin Write('num:'); Readln(D); if odd(i) then Add(Odd1, Odd2,D) else Add(Even1,Even2,D); end; a:=Addr(Odd1); Writeln('odd_begin',a^); a:=Addr(Odd2); Writeln('odd_end',a^); a:=Addr(Even1); Writeln('Even_begin',a^); a:=Addr(Even2); Writeln('Even_end',a^); end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перевести из паскаля в Си | AirC | Общие вопросы C/C++ | 8 | 19.05.2014 18:42 |
Кто сможет ? | Renq | Общие вопросы C/C++ | 9 | 16.02.2014 00:40 |
Перевести с Паскаля на Си | lyubov17 | Помощь студентам | 0 | 10.12.2013 21:11 |
перевести из паскаля в си++ | екатерина новикова | Помощь студентам | 0 | 19.12.2011 19:02 |
Нужен кто-нибудь, кто сможет подсказать, как подступиться к программированию Delphi & C++ | Koshka_Kali | Помощь студентам | 2 | 30.11.2008 13:23 |