Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Free Pascal Ребус https://www.cyberforum.ru/ free-pascal/ thread1923611.html
Решить задачу методом полного перебора Расшифровать ребус, полученный в результате замены одинаковых букв одинаковыми цифрами. Найти также такие значения цифр, при которых сумма цифр в результате окажется наибольшей ГОД+ГОД+ГОД+ГОД=ВЕК
Free Pascal Как реализовать красивую траекторию шара?
Есть шар(основной), внутри, которого шар меньшего радиуса. Надо реализовать движение меньшего шара внутри круга(недолжен из него выйти). Код: Uses wingraph,crt; Var Gd, Gm : smallint; x, y, N,M,x1,y1,yi : Integer; begin clrscr; Writeln('Write N'); Readln(N);//радиус большего шара Writeln('Write M');Readln(M);//радиус меньшего
Free Pascal Ошибка exitcode 1 Вылетает с ошибкой exitcode 1. Задание: Для задаваемых вещественного значения x (-1<x<1) и натурального значения n вычислить y по формуле: y=1/2-x/(3+1!)+x^2/(3^2+2!)-...+(-1)^n*(x^n)/(3^n+n!) program hfhfg; var z,c,y,x,f,r:real; i,n:integer; begin writeln('x='); readln(x); writeln('n='); https://www.cyberforum.ru/ free-pascal/ thread1922852.html Free Pascal Как избавиться от мерцания в графическом режиме на Free Pascal? Пишу программу с графикой 1 раз, и столкнулся с такой проблемой, что при движении объектов они как бы мерцают. Движение осущетсвяю так: отрисовываю новый элемент и закрашиваю старый. Да скорее всего проблема как раз в этом. Вот пример программы: uses Graph; var Gd,Gm: Integer;x:integer; BEGIn Gd:=Detect;Gm:=VGAHi; InitGraph (Gd,Gm,'..\bgi'); If GraphResult=grOk https://www.cyberforum.ru/ free-pascal/ thread1922650.html
Сдвиг массива вправо Free Pascal
Вот нашел интересную задачку. Вращение массива вправо. Объявите массив из 10 чисел и заполните его случайным образом. Напишите процедуру, перемещающую 1-й элемент на 2-е место, 2-й — на 3-е место и т.д. Последний элемент должен занять 1-е место. Сделал, неработало. Отладчик обьяснил почему. Даже если вручную прописать копирование, то tb:=tb;tb:=tb, или с попощью цикла, чилсло из первого...
Free Pascal Неориентированный Граф Доброго времени суток! Помогите пожалуйста решить задачу: Простой неориентированный граф задан матрицей смежности. Посчитайте количество рёбер в заданном графе. В первой строке входного файла задано число N (1<N<100) - количество вершин в графе. Далее следует N строк по N чисел - матрица смежности графа. Программа должна вывести в выходной файл целое число - количество рёбер в графе. ... https://www.cyberforum.ru/ free-pascal/ thread1922284.html
Free Pascal Расшифровать ребус Расшифровать ребус, полученный в результате замены одинаковых букв одинаковыми цифрами. Найти также такие значения цифр, при которых сумма цифр в результате окажется наибольшей ГОД+ГОД+ГОД+ГОД=ВЕК https://www.cyberforum.ru/ free-pascal/ thread1922272.html Free Pascal Вычислить максимальные нетривиальный делитель
Ввести натуральное k>1 и вычислить максимальный нетривиальный делитель.
Free Pascal Определить, через сколько лет вклад превысит заданный размер https://www.cyberforum.ru/ free-pascal/ thread1921257.html
Известен начальный вклад клиента в банк и процент годового дохода. Определить, через сколько лет вклад превысит заданный размер и каков при этом будет размер вклада.
Free Pascal Дан массив A(N). Получить массив B(N), i-й элемент которого равен среднему арифметическому первых i элементов Дан массив A(N). Получить массив B(N), i-й элемент которого равен среднему арифметическому первых i элементов массива А: bi = (a1 + a2 + ... + ai ) / i https://www.cyberforum.ru/ free-pascal/ thread1921254.html
Ошибка exitcode 201 Free Pascal
При вводе вектора выдаёт exitcode 201. Задание было такое: В задаваемом вещественном векторе A размерности n>5. Найти значение и индекс последнего минимального элемента program h56e; var a:array of integer; min,i,n,k:integer; begin repeat writeln('Введите размерность вектора');
Free Pascal Для заданного натурального числа N требуется найти ближайшее к нему двоякое число. Натуральное число называется двояким, если в его десятичной записи встречается не более двух различных цифр. Например, числа 3, 23, 33, 100, 12121 — двоякие, а числа 123 и 9980 — нет. Для заданного натурального числа N требуется найти ближайшее к нему двоякое число. Входные данные Во входном файле INPUT.TXT записано одно натуральное число N, не превосходящее 30 000. Выходные данные https://www.cyberforum.ru/ free-pascal/ thread1920434.html
4 / 4 / 5
Регистрация: 01.03.2016
Сообщений: 72
0

Задача Иосифа Флавия с использованием списков - Free Pascal - Ответ 10133072

20.02.2017, 01:11. Показов 1545. Ответов 3
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Народ, добрый день, вот код программы:
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
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
60
program legend;
uses crt;
type
  pItem = ^tItem;
  tItem = record
    data: byte;
    next: pItem;
  end;
var
  n,t,tmpn,i,count: integer;
  s,tmp: pItem;
 
 
  procedure push(var p:pItem; c:integer);// процедура добавляет новый элемент к списку 
    var
      i:pItem;
    begin
      new(i);
      i^.data:=c;
      i^.next:=p;
      p:=i;
    end;
 
 
 
begin
  clrscr;
  write('Enter number of soldires: ');
  readln(n);
  write('T: ');// через сколько солдат убивать 
  readln(t);
  //create list
  new(s);
  i:=1;
  s^.next:=nil;
  s^.data:=n;
  tmp:=s;
  tmpn:=n;
  while (i < tmpn) do
    begin
      dec(tmpn);
      push(s,tmpn);
//      writeln(s^.data);
    end;
  tmp^.next:=s;
 
  while ( s^.next <>  s) do
    begin
      for count:=1 to t do
        s:=s^.next;
        tmp:=s^.next;
        s^.next:=s^.next^.next;
        dispose(tmp);
    end;
 
  writeln(s^.data);
 
 
  readkey;
end.

Не могу найти ошибку, работает ед. пример, если 10 солдат с шагом 3, в остальных случаях чепуха, кто может, найдите ошибочку.

Вернуться к обсуждению:
Задача Иосифа Флавия с использованием списков Free Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.02.2017, 01:11
Готовые ответы и решения:

Задача Иосифа Флавия
Всем привет. Помогите пожалуйста с этой задачей. Никак допедрить не могу. вот код: ...

Задача Иосифа Флавия
Помогите написать общую программу по этой задаче Задача Иосифа Флавия или считалка Джозефуса —...

Задача Иосифа Флавия
100 человек стоят по кругу, им присвоены номера от 1 до 100. Они начинают считаться и каждый 19-й...

Задача Иосифа Флавия
(Считалка) n детей размещаются по кругу. Начиная отсчет от первого, исключают каждого k-го,...

3
20.02.2017, 01:11
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.02.2017, 01:11
Помогаю со студенческими работами здесь

Задача Иосифа Флавия
Решил попробовать сделать,через словарь. Затруднение в том,как убирать,каждый k-ый. Вокруг...

Задача Иосифа Флавия
Хмм, а что вы думаете о нем и его задаче? Очень интересно Ваше мнение т.к. пишу по этой теме работу

Задача иосифа флавия
N человек играют в следующую игру: стоя в кругу они начинают считалку. Счёт идёт до числа M....

Задача Иосифа Флавия
Даны натуральные n, m. Предполагается, что n человек встают в круг и получают номера, считая против...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru