Паскаль в голове 2

[br.dmitriy]

Граждане свободного города, решите примерчик...
Сам ещё только читаю книжку по Паскалю...вникаю.


Обработка одномерных числовых массивов. Вычислить: Y

Дано:
a 1,8 3,2 4,1 0,5 0,6 1,5 0,9

x - 0,1 0,2 0,3 0,5 0,1 0,2 0,4

Дана дробь:
Y = ___ ∑xi*cos*ai + ∑ai*xi___
∑a ²i*xi + sin ∑xi

[Night Angel]

Код: выделить все

const
    a:array[1..7] of real = (1.8, 3.2, 4.1, 0.5, 0.6, 1.5, 0.9);
    x:array[1..7] of real = (0.1, 0.2, 0.3, 0.5, 0.1, 0.2, 0.4);
var
  i:integer;
  y,q,w,e,r:real;

begin
for i:=1 to 7 do
begin
   q := q + x[i]*cos(a[i]);
   w := w + a[i]*x[i];
   e := e + sqr(a[i])*x[i];
   r := r + x[i];
end;
y := (q + w)/(e + sin(r));
writeln('Y=', y);readln;

end.

[Scalder]

2br.dmitriy
[off]
Типа сесия чтоль началась?

[Night Angel]

Лабы наверное сдаёт