|
|
| Другие темы раздела | |
| Turbo Pascal Определить, есть ли в заданном одномерном массиве два соседних четных элемента Ребят, нужно решить задачу с помощью функций: 1. Определить, есть ли в заданном одномерном массиве два соседних четных элемента. Заранее спасибо !! https://www.cyberforum.ru/ turbo-pascal/ thread657428.html |
Проверить условия сходимости и выписать расчетные формулы с точностью до Е=10 в минус 4. Turbo Pascal Тема: "Решение алгебраических и трансцендентных уравнений" Порядок выполнения работы: Проверить условия сходимости и выписать расчетные формулы с точностью до Е=10 в минус 4. Выбрать начальное приближение корня из указанного отрезка... Пример: x - 1/3+sin3.6x=0 *икс минус (в числителе 1 делить на 3+sin3.6x); все равно 0* отрезок,содержащий корень: прибл. знач. корня: 0.2624 ... |
|
Turbo Pascal Правильность решения. Вычисление площади кольца
https://www.cyberforum.ru/ turbo-pascal/ thread657415.html Для вин 7 х64 не нашёл паскаля турбо, так что проверьте пожалуйста кому не трудно... Найти площадь кольца, внутренний радиус которого равен R1, а внешний радиус равен R2 (R1 < R2). В качестве значения Pi использовать 3.14. Program zad1; var a,b,c,d:real; begin writeln('Vvedite vneshiy radiys'); readln(a); writeln('Vvedite vnuntreniy radiys'); readln(b); |
Turbo Pascal Правильность решения. Если значения равны - присвоить 0, иначе максимум
https://www.cyberforum.ru/ turbo-pascal/ thread657411.html Для вин 7 х64 не нашёл паскаля турбо, так что проверьте пожалуйста кому не трудно... Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной максимальное из этих значений, а если равны, то присвоить переменным нулевые значения. Program pr2; var a,b:integer; begin write('vvedite a='); read(a); write('vvedite b='); read(b); |
|
Turbo Pascal Условный оператор: 3 задачи 1) Определить, существуют ли среди чисел a, b, c хотя бы одна пара взаимопротивоположных чисел. 2) Решить уравнение ax+c>0. 3) Определить, существуют ли среди чисел a, b, c хотя бы одна пара взаимно обратных чисел. Все задачи нужно решить с "if" |
Turbo Pascal Дан одномерный массив. Найти количество различных чисел в нем Дан одномерный массив. Найти кол-во различных чисел в нем. https://www.cyberforum.ru/ turbo-pascal/ thread657382.html |
|
Turbo Pascal Дана последовательность слов. Проверить правильность написания слогов "жи", "ши"
https://www.cyberforum.ru/ turbo-pascal/ thread657381.html Дана последовательность слов. Проверить правильность написания слогов "жи", "ши". Тема: строки |
Turbo Pascal Дан массив из n элементов. В нем четные числа заменить на 0, нечетные на -1 и вывести итоговый массив Дан массив из n элементов. В нем четные числа заменить на 0, нечетные на -1 и вывести итоговый массив. |
| Turbo Pascal Среднее арифметическое элементов Найти среднее арифметическое элементов массива, больших заданного значения. Элементы массива и значение вводятся пользователем с клавиатуры. Программа должна содержать хотя бы одну процедуру и функцию. Найти среднее арифметическое элементов, больших задаваемого с клавиатуры значения. Программа должна содержать хотя бы одну процедуру и функцию. https://www.cyberforum.ru/ turbo-pascal/ thread657238.html | Turbo Pascal Вычислить сумму ряда Помогите пожалуйста( Для заданного вещественного числа X и малой величины Е, которая равна 0,0001, вычислить сумму ряда: 1+x+\frac{{x}^{2}}{2!}+\frac{{x}^{3}}{3!}+...+\frac{{x}^{n}}{n!} Включив в неё только те слагаемые, которые превышают число Е(ипсилон) (количество слагаемых ряда надо запросить у пользователя) 1+x можно представить как \frac{{x}^{0}}{0!} https://www.cyberforum.ru/ turbo-pascal/ thread657228.html |
|
Turbo Pascal Написание пакетной утилитыl,которая будет подсчитывать количество подкаталогов Помогите с заданием или хотя бы книжки подскажите,где можно найти информацию по этому вопросу.Задание: Написать пакетную утилиту ОС средствами языка высокого уровня,использовать модуль DOS системы Turbo Pascal,которая будет подсчитывать количество подкаталогов. |
Turbo Pascal Кольцевая очередь: моделирование работы кассира (изменить) 1) Из линейной очереди переделать в кольцевую. 2) Добавить предельное время нахождения в очереди.. Как только предельное время заканчивается клиент покидает очередь. 3) Убрать момент прихода. Задача: Дан список клиентов, желающих посетить банк в некоторый период времени. Для каждого клиента заданы имя, момент прихода и время обслуживания. В банке работает один кассир. Если в момент прихода... https://www.cyberforum.ru/ turbo-pascal/ thread657184.html |
|
2 / 2 / 2
Регистрация: 24.09.2012
Сообщений: 45
|
|
| 25.09.2012, 16:56 [ТС] | 0 |
Удалить из массива все четные элементы, стоящие на нечетных местах и сжать массив - Turbo Pascal - Ответ 348660025.09.2012, 16:56. Показов 2034. Ответов 4
Метки (Все метки)
Ответ
В том то и дело, мне требуется решить задачу с использованием Функций, + ещё сжать полученный массив, т.е. решение будет сильно отличаться от Удалить все четные элементы, стоящие на нечетных местах ))
Ребят, помогите пожалуйста )) Спасибо заранее) Вернуться к обсуждению: Удалить из массива все четные элементы, стоящие на нечетных местах и сжать массив Turbo Pascal
0
|
|
| 25.09.2012, 16:56 | |
|
Готовые ответы и решения:
4
Элементы массива Х[i] стоящие на четных местах переписать в массив Y[i] а стоящие на нечетных местах в Z[i] Удалить положительные элементы массива, стоящие на нечетных местах |
| 25.09.2012, 16:56 | |
| 25.09.2012, 16:56 | |
|
Помогаю со студенческими работами здесь
0
Удалить все четные элементы, стоящие на нечетных местах
|
Наверх