16.12.2008, 13:08 | #11 (permalink) |
Новичок
Регистрация: 16.12.2008
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
|
16.12.2008, 13:08 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Проблему будет решать проще, если набраться информации из похожих топиков Массивы. Паскаль Паскаль, три задачи на массивы Задача на массивы в Паскале |
16.01.2009, 10:24 | #12 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Может за вас еще экзамены сдать? За отдельную плату!
Судя по сложности заданий, поставивших вас в тупик - в школе вы вообще информатику не учили!
__________________
Убить всех человеков! |
22.12.2009, 12:30 | #14 (permalink) |
Новичок
Регистрация: 22.12.2009
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
помогите пожалуйста сделать лабу по массивам.
1)Найти в каждом столбце количество отрицательных элементов. Поменять местами четные строки исходной матрицы. -0,2 0,2 4 3,8 0,3 -2,1 2,5 7 1 4,1 2,5 3,2 2)дан целочисленный массив а(n,n), n=6 разработать процедуру определения максимального элемента среди элементов 1-го и последнего столбца массива , скалярного произведения элементов этих столбцов ввиде функции |
22.12.2009, 12:48 | #15 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Tolyann, все написанное в предыдущих постах IMHO и к Вам относится в полной мере. Ждите, может кто добрый и найдется, меня же от поиска максимальных значений в массивах уже не то, что тошнит - блевать, извините, тянет. И вообще мы всегда готовы помочь, если что-то непонятно и не получается, но тупо выполнять за нерадивых студентов рутинные лабы и задания - знаете, с какой стати? Учитесь, осваивайте азы программирования именно на таких элементарных упражнениях - в конце концов, Вам это надо в первую очередь. А если Вы целый семестр профилонили и спохватились в конце декабря - это Ваши проблемы.
Извините за тон, накипело. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
22.12.2009, 13:58 | #16 (permalink) |
Новичок
Регистрация: 22.12.2009
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Vladimir_S я конечно вас понимаю что к вам на сайт приходят с вопросами по "100" раз на дню...но войдите в мою ситуацию мнне надо было сделать 5 примеров и я смог собственными силами сделать только 3 из тех что мне задавали..а вот эти 2 я никак немогу сделать... программа не компилируется к 1)...
|
22.12.2009, 14:32 | #17 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Охо-хо, гореть мне в аду за ментальное растление лоботрясов... Ну что с Вами сделаешь?
Код:
CONST A:ARRAY[1..4,1..3] of REAL=((-0.2, 0.2, 4),(3.8, 0.3, -2.1), (2.5, 7, 1),(4.1, 2.5, 3.2)); VAR Number_of_Negative_Elements:ARRAY[1..3] of BYTE; R:REAL; i,j:INTEGER; BEGIN FOR i:=1 TO 4 DO BEGIN FOR j:=1 TO 3 DO Write(A[i,j]:6:1); WriteLn; END; WriteLn; FOR j:=1 TO 3 DO BEGIN Number_of_Negative_Elements[j]:=0; FOR i:=1 TO 4 DO IF A[i,j]<0 THEN INC(Number_of_Negative_Elements[j]); WriteLn('Number of negative elements in column ',j,' is ', Number_of_Negative_Elements[j]); END; WriteLn; FOR j:=1 TO 3 DO BEGIN R:=A[4,j]; A[4,j]:=A[2,j]; A[2,j]:=R; END; FOR i:=1 TO 4 DO BEGIN FOR j:=1 TO 3 DO Write(A[i,j]:6:1); WriteLn; END; ReadLn; END. |
22.12.2009, 15:20 | #18 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Код:
CONST A:ARRAY[1..6,1..6] of INTEGER ={дальше сами} TYPE AR=ARRAY[1..6] of INTEGER; VAR R1,R2:AR; i:INTEGER; FUNCTION Find_Max(Rfm:AR;Nfm:INTEGER):INTEGER; VAR i:INTEGER; BEGIN Find_Max:=Rfm[1]; FOR i:=2 TO Nfm DO IF Rfm>Find_Max THEN Find_Max:=Rfm[i]; END; FUNCTION Scalar_Product(Rsp1,Rsp2:AR;Nfm:INTEGER):INTEGER; VAR i:INTEGER; BEGIN Scalar_Product:=0; FOR i:=1 TO Nfm DO Scalar_Product:=Scalar_Product+Rsp1[i]*Rsp2[i]; END; BEGIN FOR i:=1 TO 6 DO BEGIN R1[i]:=A[i,1]; R2[i]:=A[i,6]; END; Writeln('Maximum element in column 1 is ',Find_Max(R1,6)); Writeln('Maximum element in column 6 is ',Find_Max(R2,6)); Writeln('Scalar product of columns 1 and 6 is ',Scalar_Product(R1,R2,6)); ReadLn; END. |
22.12.2009, 21:08 | #19 (permalink) |
Новичок
Регистрация: 22.12.2009
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Vladimir_S спасибо вам что откликнулись на мою просьбу о помощи побольше бы таких понимающих специалистов..но я не совсем понял что там должно быть после a:array[1..6,1..6] of integer= просто мы в универе делали через процедуры и ввод и вывод массива..в файл результата..
|
22.12.2009, 21:20 | #20 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|