|
|
| Другие темы раздела | ||||||||||||||||||
| Free Pascal Вычислить функцию с заданной точностью, используя рекурсивный алгоритм Помогите пожалуйста решить задачу в процедурах. Вычислить функцию с заданной точностью, используя рекурсивный алгоритм:e^x^2=cумма от n=0 до бесконечности (-1)^n*(x^2n/n!) . Для X < 1. https://www.cyberforum.ru/ free-pascal/ thread718686.html |
Free Pascal Поразрядная сортировка Здравствуйте! :) помогите, пожалуйста, разобраться (добавить комментарии) в функции function numberpos и процедуре procedure sortmas. Ооооочень нужно. Заранее спасибо! :) Program xa; uses crt; type itype=longint; {Тип сортируемых данных} TTImas=array of itype; TImas=^TTImas; | |||||||||||||||||
| Free Pascal Можете исправить эту задачу так чтобу вместо 3 сравнивались 2 очереди. Можете исправить эту задачу так чтобу вместо 3 сравнивались 2 очереди. Program Ochered; uses crt; type Alfa=String; PComp=^Comp; Comp=record sD:Alfa; pNext:PComp; end; https://www.cyberforum.ru/ free-pascal/ thread718306.html |
Free Pascal Вывести фамилии студентов, которым необходимо повысить успеваемость в порядке убывания
https://www.cyberforum.ru/ free-pascal/ thread718205.html Составить программу, которая выводит список фамилий студентов, которым по итогам сессии необходимо повысить успеваемость до фактического среднего уровня, если для каждого студента известны 5 полученных в сессию оценок. Всего 10 студентов, список фамилий требуется составить в порядке убывания среднего балла, полученного за сессию. Оценки храните в двумерном массиве, фамилии - в одномерном. | |||||||||||||||||
|
Random. Задать диапазон. Free Pascal Как задать диапазон от -200 до 0? |
Free Pascal Составить программу создания средствами ООП набора управляемых с клавиатуры графических объектов
https://www.cyberforum.ru/ free-pascal/ thread717749.html Составить программу создания средствами ООП набора управляемых с клавиатуры графических объектов. Организовать управление движением объектов курсорными клавишами по вертикали, по горизонтали и по диагоналям. Ввести возможность менять цвет объектов и др. Набор из 10 пикселей трех цветов, квадрата и параллелограмма и двух эллипсов. Предусмотреть возможность изменения высоты параллелограмма, угла... | |||||||||||||||||
|
Free Pascal Найти координаты параметрической кривой
https://www.cyberforum.ru/ free-pascal/ thread717443.html рассчитать координаты точек кривых (заданных в полярных координатах) для полярного угла F,изменяющегося на отрезке с шагом дельтаF, при каждом из указанных значений А. Сделал так: шаг у меня пи на 36, начало каждого отрезка это шаг+ предыдущий шаг. Далее по заданной формуле R:=A*sin((2*F)/180) нахожу радиус( расстояние между (0,0) и нашей новоиспеченной точкой) беру его как 1 сторону... |
Создать целочисленный файл с помощью гениратора целых чисел через процедуру Free Pascal Нужно создать целочисленный файл, с помощью гениратора целых чисел , сделать это нужно через процедуру. В чем он выдает ошибку я не понимаю. program sortirovka2; var f:file of integer; a,b,i,r,k:integer; t:boolean; Procedure SozdF(var f:file); var i,n,k:integer; Begin n:=10; | |||||||||||||||||
| Free Pascal Работа с двумерными массивами: Проверить входит ли меньший массив полностью в больший Необходимо обработать несколько одномерных массивов объединенных в двумерный массив. Два массива размером 200 и 5 элементов, соответственно, заполните в случайном порядке символами, коды которых расположены в диапазоне от 40 до 200. Проверить входит ли меньший массив полностью в больший и, если это так, то в большем массиве все элементы, принадлежащие меньшему ... https://www.cyberforum.ru/ free-pascal/ thread717424.html |
Free Pascal Определить количество положительных, отрицательных и нулевых элементов, расположенных между минимальным и максимальным его элементами
https://www.cyberforum.ru/ free-pascal/ thread717399.html В целочисленном векторе vectorn определить количество положительных, отрицательных и нулевых элементов, расположенных между минимальным и максимальным его элементами. Предусмотреть случай, когда таких элементов нет (все элементы вектора равны между собой). Входные данные: n=10 v_min=-5 v_max=10 Исходный вектор: 7 0 1 -5 -2 5 2 0 -1 9 Выходные данные: | |||||||||||||||||
|
Функция SeekEoLn SeekEoF Free Pascal Дана последовательность вещественных чисел {Aj} (длина последовательности заранее не известна, использовать функцию SeekEoLn или SeekEoF). Hайти сумму чисел, целая часть котоpых делится на 3, наименьшее из таких чисел и номеp этого числа в последовательности |
Free Pascal Файлы и множества: Сформировать новое множество Y=(X3+X2)*(X2-X1), из которого выделить подмножество нечетных чисел
https://www.cyberforum.ru/ free-pascal/ thread716985.html Даны три множества Х1,Х2,Х3, содержащие целые числа из диапазонов 1..100. Известно, что мощность каждого из этих множеств равна10. Сформировать новое множество Y=(X3+X2)*(X2-X1), из которого выделить подмножество нечетных чисел. На экран вывести исходные и полученные множества. Значения элементов исходных множеств, ввести с клавиатуры. Застрял) Prog
Лучшие ответы (1)
Наверх
| |||||||||||||||||
