Люди хелп,надеюсь на ваше понимание!Вообщем так,кто знает PASCAL?

ты чё!!! в натуре ОПУХ?! совсем со своей математикой, здесь решаются глобальные задачи национальной важности....народ кто завтра со мной выпьет

Я знаю ПАСКАЛЬ, но то что ты написал трудно разобрать.

№1:
Uses crt;
Var
y:array[1..7]of real;
x:integer;
BEGIN
ClrScr;
for x:=1 to 7 do
begin
y[x]=2*sin(2*x-1.5)*cos(2*x+1.5)-6;
Writeln(y[x]);
end;
END.

№2
uses crt;
Var
y:array[1..7,1..4] of real;
x, n:integer;
BEGIN
ClrScr;
For x:=1 to 7 do
For n:=1 to 4 do
Begin
y[x,n]:=2*sin(2*x-1.5)*cos(2*x+1.5)-6;
gotoXY(x*5, n);
Write(y[x, n]);
End;
END.
Вроде так. Если где ошибся, не пинай сильно.

Вот тебе приблизительное решение, внимательней пиши условия: что за параметр х?
{1}
var k:integer;
var Y:Array[1..7] of real;
var x:real;

Begin
x:=0.5; {x - какой-то параметр, присвоено значение 0,5}
for k:=1 to 7 do Y[k]:=2*sin(2*x-1.5)*cos(2*x+1.5)-6;
{Вот и все, значения в массиве}
end.

{2}
var k,n:integer;
var Y:Array[1..7,1..4] of real;
var x:real;

begin
x:=0.5; {x - какой-то параметр, присвоено значение 0,5}
for k:=1 to 7 do begin
for n:=1 to 4 do Y[k,n]:=n*2*sin(x)*sin(2*x-1.5)*cos(2*x+1.5)-6;
{В исходной формуле пропущен операнд, заменен на x}
end;

{а теперь выводим на экран}
for k:=1 to 7 do begin
for n:=1 to 4 do write(Y[k,n],' ');
writeln;
end;
end.