Гость RusLotus Опубликовано 4 января, 2008 Жалоба Поделиться Опубликовано 4 января, 2008 Задача на процедуры и функции. (ПАСКАЛЬ) Вот сама задача: :bounce8: { Даны векторы A[10], B[8], C[6]. Получить y=min A. Все компоненты вектора В, предшествующие первой по порядку компоненте с наименьшим значением, заменить их квадратами. Символьной переменной Т присвоить значение TRUE, если компонента вектора С с наименьшим значением находится в первой половине вектора, и значение FALSE – в противном случае.} Распишите её пожалуйста по проще что бы я мог понять куда и что(Если конечно это вас не затруднит :) ). Заранее благодарен за выполненную работу :) !!! Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
Тролль Опубликовано 4 января, 2008 Жалоба Поделиться Опубликовано 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. Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
Гость RusLotus Опубликовано 4 января, 2008 Жалоба Поделиться Опубликовано 4 января, 2008 Большое спасибо. :) Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.