Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиПоискОблакоComboВсе проекты

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

DmeX DmeX Ученик (97), закрыт 14 лет назад
????
у меня завтра контрольная,нада сделать задачку до завтра строчно!!!

если кто сможет,помогите!
Вот 2 маленьких задачки:
Создать и ввести масив Y с елементами 2sin(2x-1.5)cos(2x+1.5)-6
k=1.2,..7

вторая задача:
Создать и ввести масив Y с елементами Ykn=n*2sin*sin(2x-1.5)cos(2x+1.5)-6
k=1.2...7
n=1.2...4
Ввести его на экран в в
Сергей Мудрец (14353) 15 лет назад
ты чё!!! в натуре ОПУХ?! совсем со своей математикой, здесь решаются глобальные задачи национальной важности....народ кто завтра со мной выпьет
kas-cor Мастер (1217) 15 лет назад
Я знаю ПАСКАЛЬ, но то что ты написал трудно разобрать.
Магус Профи (670) 15 лет назад
№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.
Вроде так. Если где ошибся, не пинай сильно.

Источник:
Андрей Макарычев Мудрец (10412) 15 лет назад
Вот тебе приблизительное решение, внимательней пиши условия: что за параметр х?
{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.
Похожие вопросы