Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
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
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
14.11.2012, 10:10 0

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

14.11.2012, 10:10. Показов 2066. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Vad1k как решение

Решение

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
41
42
43
44
45
46
47
48
49
50
51
52
uses crt;
const nmax=100;
type mas=array[1..nmax] of real;
procedure Smooth(var a:mas;n:byte);
var i:byte;
    x,y,z:real;
begin
i:=2;
x:=a[1];
y:=a[2];
z:=a[3];
repeat
a[i]:=(x+y+z)/3;
x:=y;
y:=z;
i:=i+1;
z:=a[i+1];
until i=n;
end;
procedure Print(var a:mas;n,k:byte);
var i:byte;
begin
writeln('Сглаживание ',k);
for i:=1 to n do
write(a[i]:0:2,' ');
writeln;
writeln;
end;
var a:mas;
    n,i:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=10*random;
  write(a[i]:0:2,' ');
 end;
writeln;
writeln;
for i:=1 to 5 do
 begin
  Smooth(a,n);
  Print(a,n,i);
 end;
readln
end.


Вернуться к обсуждению:
Описать процедуру Smooth(A,N), заменяющую элементы массива на их среднее арифметическое со своими соседями Turbo Pascal
2
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.11.2012, 10:10
Готовые ответы и решения:

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

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

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

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

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

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

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

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

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru