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

@Timyr1 · Регистрация: 23.12.2012

Author24 — интернет-сервис помощи студентам

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

@Puporev · 14.12.2013, 15:20

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

@Timyr1 · 14.12.2013, 15:30 **[ТС]**

Она не работает. Пишет ,что модуль crt не найден.

@Puporev · 14.12.2013, 15:33

Сообщение от Timyr1

что модуль crt не найден.

Ну, если у тебя вТурбо Паскале нет этого модуля, то я не знаю что там вообще есть...

Добавлено через 1 минуту
Ну на бедность убери из программы 2 строки
uses crt;
...............
clrscr;

@Timyr1 · 14.12.2013, 15:46 **[ТС]**

если программа работает правильно, то она должна вычислять среднее арифметическое верхней строки а получившиеся значение ставить 3 числом в следующей строчке?

@Puporev · 14.12.2013, 16:04

Программа вычисляет среднее значение 3х соседних и меняет на него значение среднего элемента.

Добавлено через 19 секунд
Все в одной строке

@Timyr1 · 14.12.2013, 16:09 **[ТС]**

но программа делает именно так, как я написал выше.

@Puporev · 14.12.2013, 16:13

Ну раз делает сама....

Добавлено через 2 минуты
Извини, это не такая задача.

@Timyr1 · 14.12.2013, 16:14 **[ТС]**

Возможно я чего то не понимаю. Но вы когда проверяли она работала правильно?

@Puporev · 14.12.2013, 16:16

Там совсем другое задание, почитай.

Добавлено через 19 секунд
Вот твое

Pascal

uses crt;
const nmax=15;
type mas=array[1..nmax] of real;
procedure Smooth(var a:mas;n:byte);
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
clrscr;
randomize;
repeat
write('Размер массива A от 3 до ',nmax,' n=');
readln(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);
readln
end.

@Timyr1 · 14.12.2013, 16:24 **[ТС]**

Спасибо,теперь все работает. Я изначально видел различие в условие , но просто раз модератор пишет... И я еще к тому же не очень в паскале силен.

@Timyr1 0 / 0 / 0 Регистрация: 23.12.2012 Сообщений: 12
	14.12.2013, 16:24 [ТС]	11
	Спасибо,теперь все работает. Я изначально видел различие в условие , но просто раз модератор пишет... И я еще к тому же не очень в паскале силен. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	14.12.2013, 15:20	2
	Описать процедуру Smooth1(A, N), выполняющую сглаживание вещественного массива 1

@Timyr1 0 / 0 / 0 Регистрация: 23.12.2012 Сообщений: 12
	14.12.2013, 15:30 [ТС]	3
	Она не работает. Пишет ,что модуль crt не найден. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	14.12.2013, 15:33	4
	Сообщение от Timyr1 что модуль crt не найден. Ну, если у тебя вТурбо Паскале нет этого модуля, то я не знаю что там вообще есть... Добавлено через 1 минуту Ну на бедность убери из программы 2 строки uses crt; ............... clrscr; 1

@Timyr1 0 / 0 / 0 Регистрация: 23.12.2012 Сообщений: 12
	14.12.2013, 15:46 [ТС]	5
	если программа работает правильно, то она должна вычислять среднее арифметическое верхней строки а получившиеся значение ставить 3 числом в следующей строчке? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	14.12.2013, 16:04	6
	Программа вычисляет среднее значение 3х соседних и меняет на него значение среднего элемента. Добавлено через 19 секунд Все в одной строке 0

@Timyr1 0 / 0 / 0 Регистрация: 23.12.2012 Сообщений: 12
	14.12.2013, 16:09 [ТС]	7
	но программа делает именно так, как я написал выше. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	14.12.2013, 16:13	8
	Ну раз делает сама.... Добавлено через 2 минуты Извини, это не такая задача. 0

@Timyr1 0 / 0 / 0 Регистрация: 23.12.2012 Сообщений: 12
	14.12.2013, 16:14 [ТС]	9
	Возможно я чего то не понимаю. Но вы когда проверяли она работала правильно? 0