|
|
| Другие темы раздела | |
|
Free Pascal Установить, из каких цифр состоит натуральное число
https://www.cyberforum.ru/ free-pascal/ thread2141541.html Установить, из каких цифр состоит натуральное число помогите написать прогу =((((( |
Мерцание и изменение цвета Free Pascal Помогите, пожалуйста. Циклически заполняя строки выводить на экран свои данные: фамилию и имя. Вывод осуществляется дальше, если на запрос пользователь нажимает клавишу «Y» и прекращается по нажатии клавиши «N». Установить эффекты мерцания и изменения цвета при каждом новом выводе. |
|
Free Pascal Массив: Найти количество нечётных чисел.
https://www.cyberforum.ru/ free-pascal/ thread2126295.html Условие: Дана линейная таблица размером n. Найти количество нечётных чисел. Задачу решить через массив. Вот я пробовал, но мне пишет, что какая-то ошибка. program p42; var i,s,n:integer; a:array of integer; begin readln(n); s:=0; for i:=1 to n do begin |
Free Pascal Функция: подсчитать количество элементов кольцевого двунаправленного списка L, у которых равные соседи Пусть L обозначает двунаправленный список с заглавным звеном. Описать функцию или процедуру, которая подсчитывает количество элементов списка L, у которых равные соседи. Но нужно написать полностью программу на Pascal. Очень нужна помощь, сам справиться не могу. Есть рабочая программа на C. #include<stdio.h> #include<stdlib.h> #include<conio.h> #include<time.h> struct tList { ... https://www.cyberforum.ru/ free-pascal/ thread2126294.html |
|
Free Pascal Ошибка "вызвал класс исключения 'external sigsegv' на 6 строке" Ошибка "вызвал класс исключения 'external sigsegv' на 6 строке" program Laba0301; uses crt; var a:array of integer; i, n, k:integer; Function ParamStr(Param : Integer) : Ansistring; begin if ParamStr(1) = '-h' then begin writeln('С клавиатуры задан массив a. Найти длину самой длиной «пилообразной» последовательности чисел (начиная с меньшего).'); |
Free Pascal Вычислить член последовательности по заданному условию Здравствуйте, помогите пожалуйста выполнить это задание, как правильно написать программу, Заранее спасибо) Найти член последовательности, удовлетворяющий заданному условию: A_{n+1}=\lg \left|A_n-A_{n-1} \right|,\ A_0=1,\ A_1=100,\ \left|A_n+1.42 \right|\,<\,10^{-4},\ n=13 https://www.cyberforum.ru/ free-pascal/ thread2125328.html |
|
Free Pascal Записи: определить стоимость самого дорогого конструктора; напечатать название наиболее дорогих игрушек
https://www.cyberforum.ru/ free-pascal/ thread2125147.html Ребят помогите.Надо решить задачу: Учитывая сведения об игрушках: указываются названия игрушки, ее стоимость в рублях и возрастные границы, определить стоимость самого дорогого конструктора; напечатать название наиболее дорогих игрушек (цена которых отличается от цены самой дорогой игрушки не более чем на 50 рублей). Я не могу найти самый дорогой конструктор)) Эта задача находится у меня в... |
Free Pascal Вычислить сумму ряда Здравствуйте, помогите пожалуйста выполнить это задание, как правильно написать программу, Заранее спасибо) Вычислить сумму ряда: \sum_{n=1}^{24}\frac{\sin\left(\frac{\pi}{2}+\pi n \right)}{n\sqrt{n^{\,}}}\,,\ \ \ s=-0.7610 |
|
Free Pascal Как сделать чтобы предметы появлялись в определенной точке и скатывались наискось
https://www.cyberforum.ru/ free-pascal/ thread2124867.html Как можно сделать сделать чтобы предметы появлялись в определенной точке и скатывались наискось |
Free Pascal Массивы с выборкой гласных букв В массивах М1(10),М2(8) и М3(5),элементы которых представлены 5-ти символьными словами,осуществить выборку тех из них,которые содержат 2 и более гласных букв.Из этих элементов сформировать новые массивы с подсчетом числа элементов. Помогите убрать функции и сделать чтобы работало во free pascal program laba; Uses crt; const n1=10; n2=8; n3=5; n4=23; type mas=array of string; ... https://www.cyberforum.ru/ free-pascal/ thread2124794.html |
|
Free Pascal Что за кракозябры при выводе? Что за кракозябры при выводе? P.S. Программы должна выводить заданные числа в обратном порядке Program anc; Var a:array of real; input, output:text; n,i,x:integer; Begin |
Free Pascal Найти наименьшее произведение чисел, сумма которых равна n
https://www.cyberforum.ru/ free-pascal/ thread2123551.html Найти найменьшее произведение цифр сумма которых равна n. N ввести с клавиатуры. |
|
0 / 0 / 0
Регистрация: 23.11.2017
Сообщений: 10
|
|
| 0 | |
Образовать новый вектор из отрицательных элементов заданного вектора - Free Pascal - Ответ 1187384023.11.2017, 02:31. Показов 1364. Ответов 1
Метки (Все метки)
Напишите пожалуйста , кто знает как этот код, пожалуйста.Не могу чего то сделать..Спасибо заранее! Вернуться к обсуждению: Образовать новый вектор из отрицательных элементов заданного вектора Free Pascal
0
|
|
| 23.11.2017, 02:31 | |
|
Готовые ответы и решения:
1
Образовать новый вектор, который состоит из отрицательных элементов X Образовать новый вектор, состоящий из элементов двух векторов с заменой элементов Ввести два вектора целых чисел и образовать третий вектор с их общих элементов
|
| 23.11.2017, 02:31 | |
| 23.11.2017, 02:31 | |
|
Помогаю со студенческими работами здесь
0
Массив: Сформировать вектор B из отрицательных элементов исходного вектора.
Напишите программу, которая из элементов заданного вектора X формирует вектор Y
Если среднее арифметическое значение отрицательных элементов вектора больше (-5), то отсортировать вектор по убыванию |