Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Помогите доделать задачу я залип.

Автор: KuznecSeti 16.05.2007 18:52

Народ вот такая задача точнее две:

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.


А с этой я ваще в панике незнаю куда сюда подпрограмму пихать и чего тут ваще еще нужно.
Спасайте!!!!!

Автор: мисс_граффити 17.05.2007 3:40

 ! 
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...


Исправляй.