| Типы программирования, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
Подчитать сумму цифр числа Ограничения ввода ! Число "Математико" - итальянская игра Дайте задание, пожалуйста Uninstall Key WinDos.tpu, WinCrt.tpu - помогите найти, WinDos.tpu, WinCrt.tpu - помогите найти запись в файл, кодировка не та что ли? Метод итерраций, The method Задача про календарь!!!, Помогите разобраться!;) Условие входа в тело Перечислимый тип данных определить какие буквы гласные соглассные, Помогите пожалуста разобраться Eror 15: File Not Found (GRAPH.TPU), как исправить Возведение в нецелую степень Паскаль и простые числа, Распределение расстояний между пр.числам Как проверить, есть ли строковое значение в реестр, Как проверить, есть ли строковое значени Имитация нажатий на кнопоки, Free Pascal Кнопка, как поменять цвет кнопки.. Строковый тип данных *.tpu Ошибка - файл не найден, всю голову сломал уже :( Задача последовательности. graph AnsiString в TStrings АБРАКАДАБРА Люди подскажите ссылку........, А то у нас в городе не найдешь ......... 2VIT, А где FAQ то? Давайте что-нить организуем..., тематика - Паскаль Делаем Утилиту d:) изменения числа Вопросы теории! free pascal, где взять? Помогите решить задачу, Плиз .Срочно нужно Тест, Помогите составить тест Функция? ФУНКЦИЯ!!!!!!!, вопрос жизни и смерти writeln( chr(s[2]) ); - Ошибка!, сори за элементарные вопросы Помогите пожалуйста написать программу! Крипто библиотеки, Где достать? OpenDialog в dll Создание курсора, Как в SVGA создать мышиную стрелку? Цикл с шагом или другое решение, Помогите решить, плиз Приктикум по Pascal, задачи, алгоритмы и решения... Как Вы относитесь к курящим девушкам? Помогите решить задачу на Pascal Плиз ,помогите решить, Умоляю Создание файла Помогите перевернуть бокалы, Курсовая дубль два Помогите с задачкой, плиз Кратчайший путь в матрице, нахождение кратчайшего пути в матрице Чё надо от меня Delphi? Замена sqrt, адресуется, в частности, к Aleche ОШШШИБКА - Нужна помощь, всякая фигня Задача, Посмотрите ... Поиск подстроки в строке по маске, Срочно! C++ to Turbo Pascal 7.0, help ПАСКАЛЬ - стэк - ФОРТРАН, вопрос экспертам Помогите решить задачу на ГРАФЫ или инфы подкиньте, Графы Подсчет кол-ва дней, пАмАгитИ! %) Рогатая гусеница. Проблема с компиляцией. Полезная документация, Где найти? Как сделать на дельфях прогу типа ХуперТерминал?, Как сделать на дельфях прогу типа ХуперТ Turbo Pascal For Windows, рекумендую! Где скачать Turbo Pascal 7 или Pascal for Windows БИЛЕТ Легкая задача на строки как проверить двудольность графа? Построение магического квадрата, любой размерности Особенности Pascal, GNU COMPAQ Метод покоординатного спуска, очень нужен алгоритм проги!!! |
Платные хостинги Раскрутка сайта Книги по программированию Паскаль и простые числа, Распределение расстояний между пр.числам
- Граждане коллеги! Подскажите пожалуйста как можно в Паскале замутить график распределение расстояний между простыми числами. Алгоритм нахождения самих чисел я сделал. - В каком виде тебе нужен график??? Чего с чем??? Можешь поподробнее рассказать??? - Да собсно... бегишь по массиву простых, вычитаешь предыдущее, подсчитываешь количество, добег до конца - строишь график...В чем проблема-то? - Druidik25 Рассказываю побробно: Есть программа собств. производства, выводит простые числа на экран. Но это фигня. Необходимо, чтобы этаже самая программа, после того как нашла эти числа, построила обыкновенный график в двух осях координат (как в геометрии). По одной оси (например оХ) откладываем расстояния (измеряем в количестве составных чисел между двумя соседними простыми), а по другой оси откладываем эти самые простые числа - Вот примерно так.Код uses graph; function prime(a:longint):boolean;begin {твоя функция определения простоты числа}end;var i,j,n:longint; gd,gm:integer; last:integer;begin gd:=detect; InitGraph(gd,gm,''); {инициализируем графический режим} for i:=1 to n do {здесь n - в роли максимального числа} if Prime(i) then begin PutPixel(i,i-last,white); {ставим точку белого цвета} last:=i; end; closegraph; {закрываем графический режим}end.highlightSyntax('delphihMjYwY','delphi'); - Ну по мере вывода наполняй массив разностей текущего и предыдущегоCount(NextSimple-PreviousSimple) = Count(NextSimple-PreviousSimple) +1в результате у тебя i-й элемент массива содержит количество разностей, равных i, в ряду простых чисел.Или проблема в том как нарисовать график? - Akina Мне необходимо построить ГРАФИК а не просто набор точек. В двух осях, как в алгебре и геометрии, просто график функции R( I[1]-I[2] ). Где R-расстояние между 2 соседними простыми числами, I- простое число - Ну и строй... набор R( I[1]-I[2] ) у тебя есть... какие проблемы? - Сначала берёшь максимальное расстояние между числами и сравниваешь его с высотой экрана GetMaxY, чтобы график поместился полностью в высоту + оставить некоторое пространство для других деталей. Аналогично с шириной графика.Далее, делишь ширину на кол-во найденных простых чисел, чтобы узнать зазор между каждым.Код MX - GetMaxXMY - GetMaxYMarginX - зазор между графиком и экраном по оси XMarginY - зазор между графиком и экраном по оси YOrigX - начальная координата графика по оси XOrigY - начальная координата графика по оси YHeight - высота графикаWidth - ширина графикаWBar - ширина столбика (допустим, 10)Step - зазор между столбикамиMaxDist - макс. растояние между простыми числами (собственно, высота столбика)ScaleY - масштаб высоты столбикаhighlightSyntax('nocolorYmViZT','nocolor');Код //определение начала координат графикаOrigX := (MX - 2 * MarginX) div 2;OrigY := (MY - 2 * MarginY) div 2;Step := (Width - WBar * PrimeCount) div (PrimeCount - 1);ScaleY := Height div MaxDist;For k := 1 to PrimeCount dobegin BarHeight := ScaleY * Distance[k]; DrawBar (BarHeight, k); // рисуешь к-тый столбик высотой BarHeight. Позицию вычисли самend;highlightSyntax('delphilOTJkY','delphi');Надеюсь, разъяснил более (менее?) понятно. - Ребята, вы меня наверное неправильно поняли, .... а может я вам неправильно объяснял Мне короче говоря,чтобы сразу отвергнуть всякие недопонимания, нужно полуичть в итоге примерно такую штуку график Добавлено @ 09:02 Это конечно я так, на бумаге, только до 71, но выглядеть на машине должно так же. Ребята помогите пожалуйста, очень надо. - spectr1) Давать файлам имена с нацсимволами в Инете не принято.2) Твоя просьба все больше напоминает "сделайте за меня"... это в раздел "Работа". Или все-таки начинай ДЕЛАТЬ. - spectr Файл не качается. Сделай его с английским именем. - Насколько я понимаю, график должен быть из дискретных значений, а не непрерывным.Fedor, http://www.spectr.nm.ru/%E3%F0%E0%F4%E8%EA2.jpg - так поможет? - Нет, не поможет однозначно. Переименуй файл в grafik.jpg или нечто аналогичное - но БЕЗ РУССКИХ БУКВ!!! - Переименовал.Akina Я не прошу сделать за меня, я прошу подсказать как это сделать. Просто у кого не спрошу,все руками разводят. Я у вас как у опытных спецов спрашиваю. Добавлено @ 07:16 График  |