![]() |
программирование на pascal
Вложений: 1
Нужна помощь в паскале, самому разобраться не хватает времени..(заочка)
|
Интересно, кто-то поможет?
|
Напости на http://delphimaster.ru/cgi-bin/forum.pl?n=18
Там вначале обязательно поприкалываются, потом возможно по делу напишут... В любом случае текучка там высокая, можно быдет всё обсудить... |
Спасибо, но ведь там делфи?
|
Цитата:
|
Те задачи, которые тебе нужно решить, не имеют никакого отношения к графике и объектам, т.е. там у тебя чисто паскаль (вычисления, функции).. Да и из-за высокой текучки на том форуме получишь первые ответы практически сразу...
Сам бы написал код, но заданий много - времени жалко (сам-то я писал за бабки студентам), но вот лень просто, мотивации нету... |
Цитата:
|
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. |
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. |
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. имхо, задание не достаточно точное. |
>Dinka
Как по мне, i = n-2,1 - это i = 1,2,...,n-2... При этом указанное правило никак не будет выполняться для нового вектора по отношению к самому себе. Посему остаётся вариант, что правило должно выполняться для нового вектора по отношению к старому... В 3 задании надо бы исключить из произведения повторное вхождение (в произведение) элемента A[q,w] |
Цитата:
Если преподаватель запросит убрать повторое включение этого элемента, то это легко исправить. 4 задание выражено не точно. два разных параметра выражены одним знаком. Если вопрос актуален, то просьба уточнить задание у преподователя. |
Время: 07:21. |
Время: 07:21.
© OSzone.net 2001-