Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Turbo Pascal Описать функцию Cos1(x,eps), находящую приближенное значение функции cos(x) B) Описать функцию Cos1(x,eps) вещественного типа (параметры x, eps — вещественные, eps > 0), находящую приближенное значение функции cos(x): . В сумме учитывать все слагаемые, большие по... https://www.cyberforum.ru/ turbo-pascal/ thread697136.html Описать функцию NMax(A,N), находящую номер максимального элемента массива Turbo Pascal
A) Описать функцию NMax(A,N) целого типа, находящую номер максимального элемента массива A (массив состоит из N вещественных чисел). С помощью этой функции найти номера максимальных2 элементов...
Turbo Pascal Решение уравнения методом дихотомии https://www.cyberforum.ru/ turbo-pascal/ thread697131.html
Выполните * отделение * корней * уравнения * с * * использованием * графической * оценки.* Разработайте*программу,*выполняющую*уточнение*корней*методом *дихотомии*на*найденном*... 		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), находящую приближенное значение...
Найти минимальный элемент 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 нацело не... 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...
Turbo Pascal Проверить, является ли число четырехзначным "счастливым"
Написать программу: Дано натуральное число. Проверить, является ли оно четырехзначным "счастливым" (т.е. сумма первых двух цифр равна сумме последних двух) 		Turbo Pascal Найти произведение элементов массива, расположенных в строках, которые начинаются с отрицательного элемента Дан квадратный массив размерностью 5*5. Найти произведение элементов массива, расположенных в строках, которые начинаются с отрицательного элемента. https://www.cyberforum.ru/ turbo-pascal/ thread696952.html
Почетный модератор
64287 / 47586 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
14.11.2012, 10:10 0

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

14.11.2012, 10:10. Показов 2002. Ответов 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
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 - 2023, CyberForum.ru