программирование на pascal

[TauRus]

Нужна помощь в паскале, самому разобраться не хватает времени..(заочка)

[TauRus]

Интересно, кто-то поможет?

[CyraxZ]

Напости на http://delphimaster.ru/cgi-bin/forum.pl?n=18
Там вначале обязательно поприкалываются, потом возможно по делу напишут...
В любом случае текучка там высокая, можно быдет всё обсудить...

[TauRus]

Спасибо, но ведь там делфи?

[kim-aa]

Спасибо, но ведь там делфи?

Надеюсь Вы учитесь не на медика?

[CyraxZ]

Те задачи, которые тебе нужно решить, не имеют никакого отношения к графике и объектам, т.е. там у тебя чисто паскаль (вычисления, функции).. Да и из-за высокой текучки на том форуме получишь первые ответы практически сразу...

Сам бы написал код, но заданий много - времени жалко (сам-то я писал за бабки студентам), но вот лень просто, мотивации нету...

[TauRus]

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

[Dinka]

1. не вижу квадратного уравнения. написана только степенная и синусоидальная функции.
2.
program lab(output);
var
A: array[0..10, 0..10] of real;
i,j: integer;
begin
writeln('Acckij massiv A[11,11]');

for i:=0 to 10 do
begin
for j:=0 to 10 do
begin
A[i,j]:=4*(3.5-i)-1.5*j*j+20*cos(i*j);
write(A[i,j]:10:2);
end;
writeln();
end;
end.

[Dinka]

3.
program lab(output);
var
A: array[0..10, 0..10] of real;
B: array[0..10, 0..10] of integer;
vektor: array[0..10] of real;
i,j: integer;
q,w, min:integer;
proizv :real;

begin
writeln('Acckij massiv A[11,11]');

for i:=0 to 10 do
begin
for j:=0 to 10 do
begin
A[i,j]:=4*(3.5-i)-1.5*j*j+20*cos(i*j);
write(A[i,j]:10:4);
end;
writeln();
end;

for i:=0 to 10 do
begin
for j:=0 to 10 do
begin
IF A[i,j]<0 then B[i,j]:=i*j
else
B[i,j]:=0
end;
end;

min:=100;
for i:=0 to 10 do
begin
for j:=0 to 10 do
begin
if (B[i,j]<min) and (B[i,j]<>0) then
begin
min:=B[i,j];
q:=i;
w:=j;
end;
end;
end;
writeln('Pervoe otricatel~noe chislo:', A[q,w]:10:4);
writeln('Nomer stroki i stolbca pervogo otricatel~nogo chisla:', q,',',w);

proizv:=1;
for j:=0 to 10 do
begin
proizv:=proizv*A[q,j];
end;

for i:=0 to 10 do
begin
proizv:=proizv*A[i,w];
end;

for i:=0 to 9 do
begin
vektor[i]:=A[i,5];
end;

vektor[10]:=proizv;

writeln('Chudo vektor');
writeln;
for i:=0 to 10 do
begin
writeln(vektor[i]:15:4);
end;

end.

[Dinka]

3. Из матрицы A получить компоненты вектора X={xi}, i=1,2,...,n, по следующему правилу: в качестве последнего элемента вектора взять произведение значений элементов той строки и того столбца матрицы, на пересечении которых находится ее первый отрицательный элемент. Все предыдущие элементы вектора заполнить элементами столбца ] (n+1)/2 [ (функция Round), отбросив последний.


что значит первый отрицальнный элемент? От Владивостока или от Калининграда он будет первым?
мой вариант находит первый отрицательный элемент с левого верхнего угла матрицы.

4. Преобразовать вектор в соответствии с правилом i-й элемент вектора равен
(хi + хn-i + хn-i-1)/3 где i=n-2,1.

i-ый элемент. те i-переменная, порядковый номер числа. и тут же утверждается, что i=n-2,1 те в моем случае 8 и 9.
имхо, задание не достаточно точное.

[CyraxZ]

>Dinka
Как по мне, i = n-2,1 - это i = 1,2,...,n-2...
При этом указанное правило никак не будет выполняться для нового вектора по отношению к самому себе. Посему остаётся вариант, что правило должно выполняться для нового вектора по отношению к старому...

В 3 задании надо бы исключить из произведения повторное вхождение (в произведение) элемента A[q,w]

[Dinka]

В 3 задании надо бы исключить из произведения повторное вхождение (в произведение) элемента A[q,w]

в задании написано: "произведение значений элементов той строки и того столбца матрицы". То есть умножаем строку на столбец подряд.
Если преподаватель запросит убрать повторое включение этого элемента, то это легко исправить.

4 задание выражено не точно. два разных параметра выражены одним знаком. Если вопрос актуален, то просьба уточнить задание у преподователя.