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

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
KIKIMIKI
9 / 9 / 1
Регистрация: 17.09.2012
Сообщений: 65
#1

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

18.12.2012, 20:46. Просмотров 631. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Обратная задача Иосифа Флавия (Turbo Pascal):

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

флавия - Turbo Pascal
Что не так с кодом?Не выдает правильные значения.(При n=1000 и k=999 должно выдавать 344,если не ошибаюсь)Надо реализовать программу через...

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

Обратная матрица!!! - Turbo Pascal
Ввести матрицу, вывести обратную. Заранее спасибо!

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

Обратная матрица - Turbo Pascal
написала программу, которая виполняет операции над матрицами и почему то обратную матрицу находит неверно. помогите найти ошыбку. вот...

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

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

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

Обратная матрица - Turbo Pascal
Ребят помогите пожалуйста такое дело составить программу Дана рандомная квадратная матрица из нее сделать обратную матрицу (A^-1) и...

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


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

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

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