|
|
Другие темы раздела | |
Free Pascal Разбить на процедуры Помогите пожалуйста разбить код на процедуры. Промучался 2 часа. Ничего так и не получилось. Разбить таким образом, чтобы решение каждой подзадачи описывалось процедурой, а основная программа состояла бы из последовательности вызова процедур. const n=5;//размер матрицы var a:array of integer; //матрица из чисел от -70 до 70 x:array of longint;//вектор из чисел не более 70^5 ... https://www.cyberforum.ru/ free-pascal/ thread1828196.html |
Рисунок Free Pascal Создать круг и вокруг него на его ребрах равномерно расположить круги (типо лучи) в Паскале |
Free Pascal Сформировать новый массив С, переписав в него тот массив, где наименьшее значение находится ближе к началу
https://www.cyberforum.ru/ free-pascal/ thread1827679.html Дана задача, нужно написать программу. Вывести два одинаковой длины 1-мерных массива А и В целого типа. Сформатировать новый массив С, переписав в него тот массив (А или В), где наименьшее значения находятся ближе к началу этого массива. Полученный массив С распечатать на экране. Нужно сделать через процедуру. Помогите пожалуйста, не понял тему процедуры. Добавлено через 5 часов 39 минут... |
Free Pascal Работа с текстовыми файлами в FP https://www.cyberforum.ru/post9636473.html Вот тут мне сказали, что можно приписывать файлам любе расширение. Я решил написать код на Pascal. Вот какая проблема...(( https://www.cyberforum.ru/post9651347.html https://www.cyberforum.ru/ free-pascal/ thread1827512.html |
Построение цепных дробей целых гауссовых чисел Free Pascal Ребята, всем привет! Передо мной поставили такую задачу: написать программу, которая построит цепную дробь при делении целых гауссовых чисел. Как это сделать вручную, я знаю. Если нужен этот алгоритм, я напишу. Но вот как этот алгоритм сделать программой до меня не доходит. Помогите пожалуйста! |
Free Pascal Работа с файлами Требуется открыть файл для чтения считать 1 строку и занести в 4 обьявленные переменные значения ( например x=4.35 одна переменная ,y=12.421 вторая z=0.34 третья и v=134.35 четвретая) выполнить с ними вычисление и заменить старую строку на новою. Далее читать 2 строку занести знач переменных в 4 переменных (x,y,z,v)выполнить с ними вычисление и заменить старую строку на новою. и так далее... https://www.cyberforum.ru/ free-pascal/ thread1827410.html |
Free Pascal Удалить из матрицы, расположенной в файле, заданное количество последних столбцов 6. Целочисленная матрица, в которой число строк n вдвое меньше числа столбцов, хранится в текстовом файле. Сохранить в этом файле матрицу порядка nxn, удалив последние n столбцов. https://www.cyberforum.ru/ free-pascal/ thread1827028.html |
Вычислить сумму квадратов элементов матрицы, принадлежащих промежутку (E,F] Free Pascal Хелпуйте) 0) Надо вычислить сумму квадратов элементов, принадлежащих промежутку (E,F] 1) Вычислить сумму элементов t-ого столбца (t через readln) В совокупности с этим кодом) var N, i, j, E, F, t: integer; A: array of integer; begin |
Free Pascal Обработка ошибок открытия файла Как в pascal сделать так: Если (файл открылся), то делай что-то Иначе выведи(Я не смог открыть файл). И кстати, можно ли создавать файл прямо по ходу? Ну то есть я предлагаю в программе создать файл и создаю. И вот что: не будет ли работать такой (примерно) код(?): var s: string https://www.cyberforum.ru/ free-pascal/ thread1826336.html |
Free Pascal Подпрограмма: в строке символов заменить каждую из групп стоящих рядом точек многоточием
https://www.cyberforum.ru/ free-pascal/ thread1826133.html Написать подпрограмму которая в строке символов заменяет каждую из групп стоящих рядом точек многоточием. Очень нужна помощь! |
Определить, сколько чисел в последовательности больше предыдущего и следующего числа Free Pascal Дана последовательность а1...аn определить сколько чисел в последовательности больше предыдущего и следующего числа |
Free Pascal Процедура в процедуре
https://www.cyberforum.ru/ free-pascal/ thread1825523.html Возможно ли сделать так: procedure Glavnaya; var a:real; begin procedure odin; begin ... end; |
0 / 0 / 1
Регистрация: 18.10.2016
Сообщений: 22
|
|
18.10.2016, 21:12 [ТС] | 0 |
Выдать все четные числа от 0 до 10000, если х = 0; иначе выдать x^5 - Free Pascal - Ответ 966123118.10.2016, 21:12. Показов 1910. Ответов 6
Метки (Все метки)
Ответ
Это я уже сделал) Спасибо)
Вернуться к обсуждению: Выдать все четные числа от 0 до 10000, если х = 0; иначе выдать x^5 Free Pascal
0
|
18.10.2016, 21:12 | |
Готовые ответы и решения:
6
Машина Тьюринга. Выдать в качестве ответа слово 1, если число Q больше числа R, и слово 0 иначе Если заданные числа образуют арифметическую прогрессию, то выдать их сумму, если геометрическую - произведение... Пользователь вводит 10 чисел программа должна выдать 2 максимальных(берём от 1 до 10,если выпадает 2 10,то программа должна выдать 2 10,а не 10,9) Выдать на печать TRUE, если значение минимального числа меньше заданного числа К |
18.10.2016, 21:12 | |
18.10.2016, 21:12 | |
Помогаю со студенческими работами здесь
0
Выдать на печать TRUE, если значение минимального числа меньше заданного числа К Если все ячейки диапазона пустые, выдать сообщение Определить есть ли в файле повторяющиеся числа, и если да, то выдать их Есть метод класса внутри , есть проверка. Если условие сходится то метод должен выдать указатель, иначе булевую переменную |