Jump to content
СофтФорум - всё о компьютерах и не только

Прошу помочь с решением задачи.


Guest RusLotus
 Share

Recommended Posts

Guest RusLotus

Задача на процедуры и функции. (ПАСКАЛЬ)

Вот сама задача: :bounce8:

{ Даны векторы A[10], B[8], C[6]. Получить y=min A.

Все компоненты вектора В, предшествующие первой по порядку компоненте с

наименьшим значением, заменить их квадратами.

Символьной переменной Т присвоить значение TRUE, если компонента

вектора С с наименьшим значением находится в первой половине вектора,

и значение FALSE – в противном случае.}

Распишите её пожалуйста по проще что бы я мог понять куда и что(Если конечно это вас не затруднит :) ).

Заранее благодарен за выполненную работу :) !!!

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...