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.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

27.12.2013, 19:23

Ответы с готовыми решениями:

составьте пожалуйста алгоритм по этой программе
Program vec; Uses crt; const m = 25; var Vector: array of integer; i, max, min,...

нужно написать алгоритм к этой программе:
PROGRAM Boyer_Moore_2; { Алгоритм Бойера-Мура для определения вхождения подслова P в слово S } ...

Что означает в этой программе K, SR и S?
program laba3; var x,y,sr,z,s,k,u:real; begin writeln(' x y u');...

Извините я не понял в этой программе
Подсчитать, сколько раз строка b входит в строку a, если длина первой меньше. Почему здесь...

	27.12.2013, 19:23

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

27.12.2013, 19:23

Помогаю со студенческими работами здесь

Что в этой программе не так?
была задача: Написать программу, в которой описывается массив записей, хранящий следующую...

скажите , что в этой программе лишнее
const n=10; var i,j,a,b:integer; Ar:Array Of Integer; Begin writeln('BBeDuTe a u b');...

Какой тип данных в этой программе
Какой тип данных в этой программе uses crt; type kultura=(kr,kp,sv,ps,kk,ms); mnz=set of...

с какой целью inc нужен в этой программе
Program N_2; uses crt; const n = 15; var x : array of real; i, kn, kp, kz : byte;...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх