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

Задача Иосифа Флавия (Паскаль -> C++) - C++

Восстановить пароль Регистрация
 
aksdaqg
0 / 0 / 0
Регистрация: 31.03.2014
Сообщений: 112
19.05.2014, 20:18     Задача Иосифа Флавия (Паскаль -> C++) #1
Задача Иосифа Флавия. Надеюсь на вашу помощь. Заранее спасибо
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
uses crt;
type PCNode=^TCNode;
     TCNode=record
     data:integer;
     next:PCNode;
end;
var cirList,next:PCNode; i,k:byte; tmp: integer;
begin clrscr;
GetMem(cirList, sizeof(TCNode));
cirList^.next:= cirList;
cirList^.data:= 1;
write('n='); readln(k);
for i:= 2 to k do begin
next:= cirList^.next;
GetMem(cirList^.next, sizeof(TCNode));
cirList:= cirList^.next;
cirList^.next:= next;
cirList^.data:= i;
end;
repeat
write('k='); readln(k);
until(k>0);
while (cirList <> cirList^.next) do begin
for i:= 2 to k do
cirList:= cirList^.next;
next:= cirList^.next;
cirList^.next:= next^.next;
FreeMem(next, sizeof(TCNode));  end;
writeln('result = ', cirList^.data);
FreeMem(cirList, sizeof(TCNode));
readln;
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.05.2014, 20:18     Задача Иосифа Флавия (Паскаль -> C++)
Посмотрите здесь:

C++ Задача Иосифа
C++ из Паскаль в С++
Паскаль C++
C++ Написать алгоритм Иосифа Флавия, используя очередь
задача Иосифа Флавия / с помо щью циклического списка C++
C++ Задача девятого класса, Паскаль
C++ Задача Иосифа Флавия. Удалить каждый второй элемент из списка и в конце вывести на экран последний оставшийся элемент
C++ Задача Иосифа Флавия

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 07:03. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru