Помогите написать программу
Вложений: 1
Помогите написать программу на языке паскаля
|
вроде не ошибся))
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. |
Цитата:
|
а как научили =). нумерация массива с 0.
|
Цитата:
|
Часовой пояс GMT +4, время: 07:50. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.