С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
KIKIMIKI
9 / 9 / 3
Регистрация: 17.09.2012
Сообщений: 65
1

Обратная задача Иосифа Флавия

18.12.2012, 20:46. Просмотров 701. Ответов 0
Метки нет (Все метки)

У меня получилось сделать только саму задачу Флавия. А нужно, что бы вводилось кол-во человек и номер выжевшего, а выводился интервал. И наоборот, вводился интервал и выживший, а выводилось кол-во.
Все мои попытки были не удачны.
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
program flav;
var 
 c:array[1..100] of boolean;
 i,n,k,col,temp:longint;
 
begin
 writeln('Введите количество солдат');
 readln(n);
 writeln('Введите интервал');
 readln(k);
 i:=1;
 while col<n-1 do
  begin
   temp:=0;
   while temp<k do
    begin
     if c[i]=false then
      inc(temp);
     inc(i);
     if i=n+1 then
      i:=1;
    end;
   if i>1 then 
    c[i-1]:=true
   else
    c[n]:=true;
   inc(col);
  end;
 for i:=1 to n do
  if c[i]=false then
   col:=i;
 writeln('Выживет солдат с номером ',col);
end.
Добавлено через 19 часов 37 минут
///up///
1
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.12.2012, 20:46
Ответы с готовыми решениями:

Математическое моделирование. Задача Иосифа Флавия
Задача Иосифа Флавия: Существует легенда, что Иосиф Флавий - известный историк...

флавия
Что не так с кодом?Не выдает правильные значения.(При n=1000 и k=999 должно...

обратная матрица
подскажите пожалуйста алгоритм определения обратной матрицы

Обратная матрица
Рассчитать обратную матрицу.Размер задается пользователем от 2х2 до 10х10

Обратная матрица
Здравствуйте... помогите пожалуйста написать программу... очень надо, срочно.....

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.12.2012, 20:46

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

Обратная матрица
как можно найти обратную матрицу 10х10? помогите пожалуйста!!!

Обратная матрица
Ребят помогите пожалуйста такое дело составить программу Дана рандомная...


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

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

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