Форум программистов [Powered by Invision Power Board]

Код


programm RooR;
var
i,j,k,h,n:integer;
a,b:array[1..100] of real;              
begin
Writeln('vvedite razmernost massiva');
readln(n);
for i:=1 to n do
for j:=1 to n do 
begin
write('a[',i,']=');
readln(a[i,j]);
end;

for k:=1 to n do
for h:=1 to n do
begin
b[k,h]:=1/(k+h-1);
end;
//дальше вывод по дефолту, массив b сформирован

Цитата(RooR @ 16.7.2006, 21:57

)

Условие неверное, или ты его неправильно написал, т.к. незачем задавать квадратную матрицу А ведь она не учавствует в вычислении

Цитата(axilesa @ 24.7.2006, 17:33

)

Условие правильное!(я девушка)Спасибо что откликнулся!

Цитата(axilesa @ 16.7.2006, 19:42

)

дана квадратная матрица А порядка n : Получить матрицу АВ:элементы матрицыв вычисляются по формуле bij=1/i+j-1

Код


Program RooR;
var
a:array[1..100,1..100] of integer;
b,c:array[1..100,1..100] of real;
i,j,n:integer;
begin
Writeln('vvedite poryadok matricbi');
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
Write('a[',i,j,']=');
Readln(a[i,j]);
end;
 for i:=1 to n do
 for j:=1 to n do
 begin
 b[i,j]:=1/i+j-1;
 end;
  for i:=1 to n do
  for j:=1 to n do
   begin
   c[i,j]:=a[i,j]*b[j,i];
   end;
.............. // тут вывод незнаю просто что выводить матрицу с или все ;-) 
end.

Код


Program RooR;
var
a:array[1..100,1..100] of integer;
c:array[1..20,1..20] of real;
b:array[1..20,1..20] of real;
i,j,n,k:integer;
t:real;
r:integer;
begin
Writeln('1) Vbichislenie');
Writeln('2) Uslovie');
Writeln('3) Avtor');
Writeln('4) Vbihod');
writeln;
writeln;
writeln;
Writeln('Vvedite nomer jelaemogo punkta i najmite ENTER!!!!!');
Readln(r);

case r of
1:
begin
t:=0;
Writeln('vvedite poryadok matricbi');
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
Write('a[',i,',',j,']=');
Readln(a[i,j]);
end;
 for i:=1 to n do
 for j:=1 to n do
 begin
 b[i,j]:=1/i+j-1;
 end;
  for i:=1 to n do
  for j:=1 to n do
   begin
  for k:=1 to n do
    begin
     t :=t+a[i,k]*b[k, j];
    end;
   c[i,j]:=t;
   t:=0;
   end;
   for i:=1 to n do
   begin
    for j:=1 to n do
   begin
   write(' ',c[i,j]:2:2);
   end;
   Writeln;
   end;
   Readln;
   Readln;
   Writeln;
   Writeln('vbichislenie okoncheno!! Vvedite nomer jekaemogo punkta');
   Readln(r);
   end;
2:
   begin
   Writeln('Dana kvadratnaya matrica A poradka n');
   Writeln('Poluchitb matricu AB');
   Writeln('Esli matrica B vbichislyatsa po formule b[i,j]=1/i+j-1 ');
   Readln;
   Writeln;
   Writeln('Vvedite nomer jelaemogo punkta!!!!!!!!!');
   Readln(r);
   end;

3: begin
   Writeln('Avtorom dannoy programbi yavlyaets Kylechova Natalya');
   Writeln('Gruppa A22');
   Writeln('Zadanie 700A');
   Readln;
   Writeln;
   Writeln('vvedite nomer jelaemogo punkta!!!!!!!!!');
   Readln(r);
   end;



4:
end;
end.