|
|
Другие темы раздела | |
Turbo Pascal Описать функцию Cos1(x,eps), находящую приближенное значение функции cos(x) B) Описать функцию Cos1(x,eps) вещественного типа (параметры x, eps — вещественные, eps > 0), находящую приближенное значение функции cos(x): . В сумме учитывать все слагаемые, большие по модулю eps. С помощью Cos1 найти приближенное значение косинуса для данного x при шести данных значениях eps. https://www.cyberforum.ru/ turbo-pascal/ thread697136.html |
Описать функцию NMax(A,N), находящую номер максимального элемента массива Turbo Pascal A) Описать функцию NMax(A,N) целого типа, находящую номер максимального элемента массива A (массив состоит из N вещественных чисел). С помощью этой функции найти номера максимальных2 элементов массивов A, B, C размера NA, NB, NC соответственно. |
Turbo Pascal Решение уравнения методом дихотомии
https://www.cyberforum.ru/ turbo-pascal/ thread697131.html Выполните * отделение * корней * уравнения * с * * использованием * графической * оценки.* Разработайте*программу,*выполняющую*уточнение*корней*методом *дихотомии*на*найденном* промежутке*с*точностью*до*0.0001.*Выведите*на*экран*значения *корней*на*каждой*итерации,* при * достижении * требуемой * точности * вывести * количество * выполненных * итераций * и* уточненное*значение*корня.... |
Turbo Pascal Описать функцию PowerA(x,a,eps), находящую приближенное значение функции (1+x)²
https://www.cyberforum.ru/ turbo-pascal/ thread697127.html срочно помогите решить пожалуйста да завтра Задача: Описать функцию PowerA(x,a,eps) вещественного типа (параметры x, a, eps — вещественные, |x| < 1, a > 0, eps > 0), находящую приближенное значение функции (1+x)a: (1+x)a=1+ax+a(a-1)x^x/2!+...+(a-1)...(a-n+1)x^n/n!+... В сумме учитывать все слагаемые, большие по модулю eps. С помощью PowerA найти приближенное значение (1+x)a для данных x и a... |
Найти минимальный элемент 3-й строки, умножить на него все элементы матрицы Turbo Pascal Помогите, пожалуйста, решить задачу: 0,7 -0,4 0,1 -0,2 6 0,5 0,5 2 1 1,5 4 2,7 Найти минимальный элемент 3 - й строки, умножить на него все элементы матрицы? |
Turbo Pascal Составить пользовательскую процедуру или функцию для вычисления произведения
https://www.cyberforum.ru/ turbo-pascal/ thread697095.html Составить пользовательскую процедуру или функцию для вычисления произведения: (1/(1+1)2) * ( 2/(2+1)2) * ( 3/(3+1)2) * ••• * (n/(n+1)2). |
Turbo Pascal Записи. Дана група людей (пол,рост). Определить средний рост мужчин Дана група людей (пол,рост). Определить средний рост мужчин https://www.cyberforum.ru/ turbo-pascal/ thread697054.html |
Turbo Pascal Упорядочить по убыванию элементы каждой строки матрицы 1. Составьте программу, упорядочивающую по убыванию элементы каждой строки матрицы размером m*n. |
Turbo Pascal Если целое число m делиться на целое число n, то вывести на экран частное от деления Помогите пожалуйста решить задачу. Задача: Если целое число m делиться на целое число n, то вывести на экран частное от деления, в противном случае вывести на экран сообщение "m на n нацело не делиться" Я сделал но почему то выдаёт ошибку где if после знака больше (>) Вод само решение: var m,n:integer; y:Real; begin Writeln('BBECTu m'); Readln(m); https://www.cyberforum.ru/ turbo-pascal/ thread697012.html |
Turbo Pascal Если длина строка больше 80 символов, копировать в новый файл по 80 символов
https://www.cyberforum.ru/ turbo-pascal/ thread696985.html Условие: написать программу копирования текста при условии: 1. если длина строка больше 80 символов, копировать в новый файл по 80символов. 2. пустые строки не копируются. Программа: Program DZ; Uses CRT; Var S,S1:string; ... |
Turbo Pascal Проверить, является ли число четырехзначным "счастливым" Написать программу: Дано натуральное число. Проверить, является ли оно четырехзначным "счастливым" (т.е. сумма первых двух цифр равна сумме последних двух) |
Turbo Pascal Найти произведение элементов массива, расположенных в строках, которые начинаются с отрицательного элемента Дан квадратный массив размерностью 5*5. Найти произведение элементов массива, расположенных в строках, которые начинаются с отрицательного элемента. https://www.cyberforum.ru/ turbo-pascal/ thread696952.html |
0 / 0 / 1
Регистрация: 25.09.2012
Сообщений: 191
|
|
0 | |
Описать процедуру Smooth(A,N), заменяющую элементы массива на их среднее арифметическое со своими соседями - Turbo Pascal - Ответ 369587314.11.2012, 07:46. Показов 2092. Ответов 1
Метки (Все метки)
Описать процедуру Smooth(A,N), заменяющую каждый элемент вещественного массива A размера N на его среднее арифметическое со своими соседями ("сглаживание массива"). С помощью этой процедуры выполнить пятикратное сглаживание данного массива A размера N, выводя на экран результаты каждого сглаживания.
Вернуться к обсуждению: Описать процедуру Smooth(A,N), заменяющую элементы массива на их среднее арифметическое со своими соседями Turbo Pascal
0
|
14.11.2012, 07:46 | |
Готовые ответы и решения:
1
Заменить каждый элемент одномерного массива на его среднее арифметическое со своими соседями Описать процедуру Smooth(A,N), выполняющую сглаживание вещественного массива Описать процедуру Smooth(A,N), выполняющую сглаживание массива A размера N Описать функцию Smooth(A,N), заменяющую элементы массива на их среднее арифметическое со своими соседями |
14.11.2012, 07:46 | |
14.11.2012, 07:46 | |
Помогаю со студенческими работами здесь
0
Подпрограмма: Описать процедуру, заменяющую каждый элемент массива на его среднее арифметическое со своими соседями... Описать процедуру Smooth(A,N), заменяющую каждый элемент вещественного массива A размера N на его Описать процедуру Smooth(A,N),выполняющую сглаживание вещественного массива А размера N Описать процедуру Mean(X, Y, AMean, GMean), вычисляющую среднее арифметическое и среднее геометрическое |