Помогите написать программу

[Rustam2503]

Помогите написать программу

Помогите написать программу на языке паскаля

 

[poiu]

вроде не ошибся))

const n = 5;
const t = 0.85;
const a: array[0..4] of real = (3, -4.2, 5.3, -6.1, 2.8);

var
u: array [0..4] of real;
k: byte;
z: real;
begin
u[0]:= 1;
u[1]:= t;
for k:= 2 to n-1 do
begin
u[k]:= 2*t*u[k-1]-u[k-2];
end;
z:= 0;
for k:= 1 to n do
begin
z:= z+(a[k-1]*u[k-1]);
end;
writeln('Z= ', z);
readln;
end.

 

[Vladimir_S]

вроде не ошибся))

Нет, не ошиблись. Вот только непонятно, зачем надо было сдвигать нумерацию на СИ-шный манер?

 

[poiu]

а как научили =). нумерация массива с 0.

 

[Vladimir_S]

а как научили =). нумерация массива с 0.

В СИ - да. А вот в Паскале (и это одно из его, с моей точки зрения, преимуществ) границы диапазонов НЕ РЕГЛАМЕНТИРОВАНЫ. Это может быть [0..123], или [1..48], а может и вовсе быть [-53..215]. Пожалуйста! Как удобно, так и назначаете.