Правила форума
Прочтите прежде чем задавать вопрос!
1) Составить подпрограмму формироваия вектора из максимально отрицательных элементов столбцов вещественной матрицы. С помошью этой подпрограммы сформировать указанные вектора из матрицы А(-3:3,-4:2).
Мои соображения по этой задаче.
program kt2;
uses crt;
var
mas:array[-3..3,-4..2] of integer;
i,j,g:integer;
max,min:real;
m,k,l:integer;
begin
clrscr;
for i:=-3 to 3 do
for j:=-4 to 2 do
begin
writeln('vvedite chislo');
read(mas[i,j]);
end;
max:=mas[2,-4];
min:=mas[2,-4];
for i:=-3 to 3 do
for j:=-4 to 2 do
begin
if mas[i,j]<0 and mas[i,j] then
begin
max:=mas[i,j];
k:=i;
end;
if mas[i,j]>0 and mas[i,j] then
begin
min:=mas[i,j];
l:=i
end;
end;
for j:=-4 to 2 do
begin
m:=mas[k,j];
mas[k,j]:=mas[l,j];
mas[l,j]:=m;
end;
writeln('max',max);
read(g);
end.
помогите что тут не так как сюда подпрограмму вписать какая она должна быть?
2) С использованием оператор-функции для вычисления
3
X 2
Y(X)=---(1+X ) (игрек от икс равную икс в 3 степени деленое на 3 и умноженое на скобки в скобках один
3 3
плюс икс в квадрате) составить подпрограмму вычисления Z(X)=1-Y(X-0,3) для значений от Xначал до Xконеч с шагом в h резуьтат вывести на экран в виде таблицы
______________
|X |
|_____|________
|Y(X) |
|_____|________
|Z(X) |
|_____|________
Мои соображения по этому поводу
Program kt3;
Var
a,b,h:real;
k:integer;
y,z:array[1..100] of real;
begin
writeln('Vvedite nach. i konech. znach.');
readln(a,b,h);
k:=(b-a)/2+2;
for i:=1 to k do
begin
y[i]:=((sqr(a-0.3)*(a-0.3)/3)*(1+sqr(-0.3)));
z[i]:=1-(sqr(y)*y);
a:=a+h;
end;
write('|',y,'|');
write('|',y,'y');
end.
А с этой я ваще в панике незнаю куда сюда подпрограмму пихать и чего тут ваще еще нужно.
Спасайте!!!!!
Сообщение отредактировано: KuznecSeti -
