Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > PascalABC.NET
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
PascalABC.NET Ошибка времени выполнения: Индекс находился вне границ массива Помогите пожалуйста , написал кодировщик,работает с небольшими текстами. Как только создаю файл с большим текстом выдаёт Ошибка времени выполнения: Индекс находился вне границ массива. Что нужно... https://www.cyberforum.ru/ pascalabc-net/ thread2378720.html PascalABC.NET Переделать букву
Есть буква В, нужно "отпилить" верхнюю часть, чтобы получилась буква D Заранее спасибо) uses graphABC; var x,p:array of point; w,h,z,i,j,sh,sw,k,xz,yz:integer; begin writeln('введите высоту,...
PascalABC.NET Переделать график под формулу Декартового листа вместо спирали Здравствуйте, помогите пожалуйста, есть код для PascalABC.NET, нужно переделать под формулу Декартового листа, вместо спирали, и вместо анимации Шарика сделать анимацию квадрата, помогите пожалуйста,... https://www.cyberforum.ru/ pascalabc-net/ thread2378674.html PascalABC.NET Программа, считающая приближенное значение интеграла функции по формулам прямоугольников и трапеций https://www.cyberforum.ru/ pascalabc-net/ thread2378643.html
Задача: написать программу, считающую интеграл степенной функции 5{x}^{4}-3{x}^{2}+3 по формулам: прямоугольников, трапеций. Ввод: Интервал для функции и число разбиения интервала на отрезки....
Большое задание с массивом PascalABC.NET
Дан массив целых чисел P,состоящий из 30 элементов.Заполнить его с клавиатуры. 1.Заменить первый отрицательный элемент нулем 2.Умножить все элементы, кратные 3,на третий элемент массива 3.Из... 		PascalABC.NET Создайте программу, которая отображает на экране монитора график или поверхности (Клотоида) https://www.cyberforum.ru/ pascalabc-net/ thread2378591.html
Здравствуйте не получается написать программу , задание очень трудное для меня так как я начинающий программист :) Задание Создайте программу, которая отображает на экране монитора график или...
PascalABC.NET Добавить в начало списка новый элемент со значением D1, а в конец – новый элемент со значением D2 https://www.cyberforum.ru/ pascalabc-net/ thread2378587.html
Здравствуйте подскажите пожалуйста как написать программу по заданию Даны числа D1 и D2 и указатель P0 на один из элементов непустого дву-связного списка. Добавить в начало списка новый элемент... 		Как сортируется список? PascalABC.NET
Доброго времени суток. Мне нужно создать односвязный список, элемент которого хранит 2 переменные: Дата(date : string) и Температура(temp : integer). В интерфейсе FormsABC вводятся дата и...
PascalABC.NET Оператор выбора Помогите написать программу, которая подсчитайте количество дней от начала века (21) до введенной даты. Три дня мучаюсь:( https://www.cyberforum.ru/ pascalabc-net/ thread2378336.html PascalABC.NET Шифрование методом двойной перестановки (столбцы и строки) Нужно сделать программу шифрования двойной перестановкой ключ для строк 2 5 3 1 4 ключ для столбцов 7 4 5 1 3 8 6 2 строк 5 столбцов 8 текст должен быть 40 символов https://www.cyberforum.ru/ pascalabc-net/ thread2378186.html
Генераторы псевдослучайной последовательности (Рекурренты в конечном поле ) PascalABC.NET
Нужно сделать генератор псевдослучайной последовательность тип генератора - рекурренты в конечном поле параметры генератора {x}_{t+1}=11{x}_{t}+5{x}_{t-1}+17{x}_{t-2}+7 mod 255 x0=7 , x1=21,... 		PascalABC.NET В интервале целых чисел [n1; n2] найти такое, произведение нечетных делителей которого - наименьшее https://www.cyberforum.ru/ pascalabc-net/ thread2378051.html
2)В интервале целых чисел найти такое, произведение нечетных делителей которого - наименьшее.
0 / 0 / 0
Регистрация: 23.12.2018
Сообщений: 2
0

Описать функцию Smooth(A,N), заменяющую элементы массива на их среднее арифметическое со своими соседями - PascalABC.NET - Ответ 13186724

23.12.2018, 16:09. Показов 1863. Ответов 2
Метки (Все метки)
Студворк — интернет-сервис помощи студентам
Приветствую, скоро сессия и требуется помощь умных(не то что я) людей. Написал такое же задание, но только с помощью процедуры, может кому надо. Код снизу

Описать функцию Smooth(A,N), заменяющую каждый элемент вещественного массива A размера N на его среднее арифметическое со своими соседями ("сглаживание массива"). С помощью этой функции выполнить пятикратное сглаживание данного массива A размера N, выводя на экран результаты каждого сглаживания.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40

const nmax=15;
type mas=array[1..nmax] of real;
 
function Smooth(var a:mas;n:byte) of real;
var i:byte;
    x,y,z:real;
begin
x:=a[1];
y:=a[2];
write(a[1]:5:2);
for i:=2 to n-1 do
 begin
  z:=a[i+1];
  a[i]:=(x+y+z)/3;
  write(a[i]:5:2);
  x:=y;
  y:=z;
 end;
writeln(a[n]:5:2);
end; 
 
var a:mas;
    n,i:integer;
begin
randomize;
repeat
write('Размерность массива от 3 до ',nmax,' n=');
read(n);
until n in [3..nmax];
writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=9*random;
  write(a[i]:5:2);
 end;
writeln;
writeln('Работа процедуры сглаживание');
for i:=1 to 5 do
Smooth(a,n);
end.


Вернуться к обсуждению:
Описать функцию Smooth(A,N), заменяющую элементы массива на их среднее арифметическое со своими соседями PascalABC.NET
0
Лучшие ответы (1)
Сообщение: #13186880
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 23.12.2018, 16:09
Готовые ответы и решения:

Описать процедуру Smooth(A,N), заменяющую элементы массива на их среднее арифметическое со своими соседями
Описать процедуру Smooth(A,N), заменяющую каждый элемент вещественного массива A размера N на его...

Подпрограмма: Описать процедуру, заменяющую каждый элемент массива на его среднее арифметическое со своими соседями...
Описать процедуру Smooth(A,N), заменяющую каждый элемент вещественного массива A размера N на его...

Заменить каждый элемент одномерного массива на его среднее арифметическое со своими соседями
Описать процедуру, заменяющую каждый элемент одномерного массива на его среднее арифметическое со...

Описать процедуру Smooth(A,N), заменяющую каждый элемент вещественного массива A размера N на его
Описать процедуру Smooth(A,N), заменяющую каждый элемент вещественного массива A размера N на его...

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 23.12.2018, 16:09
Помогаю со студенческими работами здесь

Описать функцию average(ar, n), вычисляющую среднее арифметическое первых n элементов массива
Дано описание: Type artype=array of real; Описать функцию average(ar,n), вычисляющую среднее...

Написать функцию, заменяющую все элементы массива A, меньшие заданного x, единицами
Здравствуйте, уважаемые участники форума! Помогите, пожалуйста, написать программу типа void,...

Описать функцию вычисляющую среднее арифметическое и вызвать через делегат
Описать функцию MeanА(X, Y), вычисляющую среднее арифметическое AMean = (X+Y)/2 двух ...

Описать функцию или процедуру, находящую среднее арифметическое элементов списка
Описать функцию или процедуру, которая находит среднее арифметическое элементов непустого списка L...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru