Процедуры и функции Опции

[KriN]

1)Для заданных N и х1,х2,х3...хN написать программу,используяподходящую функцию
р1=произведение от i=1 до N(abs(i))/i!

p2=произведение от i=1 до N(abs(sqr(xi-p1)))/i!

p3=произведение от i=1 до N(abs(xi-p2)^3)/i!



2)Используя процедуру,поменять местами в кв.матрице заданного размера диагонали,прилегающие к главной диагонали

Сообщение отредактировано: KriN - 2.03.2009 17:46

[KriN]

program lab9;
type x=array[1..10000,1..10000] of real;
var
i,j,n :integer;
k:real;
procedure changediag( x:x;
var
i,j,n :integer;
k :real);
begin
For i := 1 To n do
For j := 1 To n do
k := 0;
For i := 1 To n - 1 do
For j := 1 To n - 1 do
k := x[i, i + 1] ;
x[i, i + 1] := x[j + 1, j] ;
x[j + 1, j] := k ;
end;
begin
For i := 1 To n do
For j := 1 To n do
write('n=');
readln(n);
writeln('x[',i,j:2,']=');
For i := 1 To n do
For j := 1 To n do
changediag(i,j,n,k,x[i,j]);
writeln(' x',x[i,j]:5:1);
end.




Проверьте пожалуйста