Guest RusLotus Posted January 4, 2008 Report Share Posted January 4, 2008 Задача на процедуры и функции. (ПАСКАЛЬ) Вот сама задача: :bounce8: { Даны векторы A[10], B[8], C[6]. Получить y=min A. Все компоненты вектора В, предшествующие первой по порядку компоненте с наименьшим значением, заменить их квадратами. Символьной переменной Т присвоить значение TRUE, если компонента вектора С с наименьшим значением находится в первой половине вектора, и значение FALSE – в противном случае.} Распишите её пожалуйста по проще что бы я мог понять куда и что(Если конечно это вас не затруднит :) ). Заранее благодарен за выполненную работу :) !!! Quote Link to comment Share on other sites More sharing options...
Тролль Posted January 4, 2008 Report Share Posted January 4, 2008 RusLotus: Для таких вопросов есть специальная тема в списке важных тем в начале раздела: "Заказы "Сделайте все за меня"". Заранее благодарен за выполненную работу С таким заданием ее никто не выполнит. Символьной переменной нельзя присвоить значение TRUE, это не символ. Вероятно, имелось в виду "булевской (логической) переменной". Кроме того, так как "Задача на процедуры и функции", то будем их использовать, хотя толку от них в такой маленькой задачке практически нет. Тогда: var A:array[1..10]of real; B:array[1..8]of real; C:array[1..6]of real; y:real; T:boolean; i:integer; procedure Input(var M:array of real); var i:integer;begin for i:=0 to high(M) do Read(M[i]); ReadLn end;function IMin(M:array of real):integer; var i:integer; p:real;begin IMin:=1; p:=M[0];for i:=1 to high(M) do if M[i]<p then begin p:=M[i]; IMin:=i+1 end end;beginWrite('A=');Input(A); Write('B=');Input(B); Write('C=');Input©;y:=A[iMin(A)]; for i:=1 to IMin(B)-1 do B[i]:=sqr(B[i]); T:=IMin©<=3;WriteLn('y=',y:9:2);Write('B='); for i:=1 to 8 do Write(B[i]:9:2); WriteLn;WriteLn('T=',T);ReadLnend. Числа каждого массива при вводе разделяются пробелами, после ввода последнего числа массива нажимается Enter. Quote Link to comment Share on other sites More sharing options...
Guest RusLotus Posted January 4, 2008 Report Share Posted January 4, 2008 Большое спасибо. :) Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.