Форум программистов, компьютерный форум, киберфорум
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
Модератор
Эксперт по электронике
8492 / 4349 / 1644
Регистрация: 01.02.2015
Сообщений: 13,503
Записей в блоге: 8
20.02.2017, 21:52 0

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

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

Ответ

При удалении элемента (51-53) не копируете поле data. Скорее всего, из-за неправильного копирования содержимого следующего звена в списке (копируете только ссылку).

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

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

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

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

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

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

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

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

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

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

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