Подпрограммы

[Camelot_2012]

Uses crt;
const 
     n=3;
     e= 0.0001;

procedure one;
Var a: array [1..n,1..n] of integer;
    i,j,d,p1,p2:integer;
begin Clrscr;
for i:=1 to n do
for j:=1 to n do
begin
write('vvedite a[', i, ',', j, ']=');
readln(a[i,j]);
end;
for i:=1 to n do begin
writeln;
for j:=1 to n do
write(a[i,j]:6);
end;
for i:=1 to n do
begin
p1:=a[1,1]*a[2,2]*a[3,3]+a[1,2]*a[2,3]*a[3,1]+a[2,1]*a[3,2]*a[1,3];
p2:=a[1,3]*a[2,2]*a[3,1]+a[1,2]*a[2,1]*a[3,3]+a[2,3]*a[3,2]*a[1,1];
d:=p1-p2;
end;
writeln;
writeln;
writeln('det=',d:3);
readln;
end;

procedure two;
var a:array[1..n,1..n] of integer;
    i,j,k:integer;
begin clrscr;
for i:=1 to n do
for j:=1 to n do
begin
write('vvedite a[', i, ',', j, ']= ');
read(a[i,j]);
end;
for i:=1 to n do
begin
writeln;
for j:=1 to n do
write(a[i,j]:6);
end;
for i := 1 to n- 1 do 
for j := i + 1 to n do
if abs(a[i,i]) > abs(a[j,j]) then
begin
k := a[i,i];
a[i,i] := a[j,j];
a[j,j] := k;
end;
writeln;
for i:=1 to n do
writeln(a[j,j], ' ');
readln;
end;

procedure three;
var x,tg: real;
begin clrscr;
write('x= ');
readln(x);
tg:=(exp(x)-exp(-x))/(exp(x)+exp(-x));
writeln('tg(x)= ',tg:2:2);
readln;
end;

procedure four;
var x, t, s, n, c: real; 
begin clrscr;
x:=-1;
while x<=1 do
begin
if x < 0.5 then begin
s := 0; 
n := 0; 
c := 1; 
t := 1; 
while (t / c) > e do 
begin
n := n + 1; 
s := s + t / c; 
t := t * x * x; 
c := 1 + 4 * n; 
end; 
s := (x * x + 3 * x + 4) * s / (5 * x + 1);	 
end
else
begin
s := 0; 
n := 1; 
t := x; 
while n <= 10 do 
begin
s := s + t / n; 
t := t * x; 
n := n + 1; 
end; 
s := x * s / 3;    
end;
writeln('x= ',x:2:1,'  y=: ', s:2:3);
x:=x+0.1;
end;
readln;
end;

begin
         one;
         two;
         three;
         four
end.

Не выводит вторую подпрограмму, помогите пожалуйста!

[Hacker19_90]

может потому что выводить должен чёрти что?

for i:=1 to n do
writeln(a[j,j], ' ');

переменная j не имеет точного значения

[Camelot_2012]

Поменял на [i,i] не выводит все равно!

[Hacker19_90]

так...
Тоест после вывода первой процедуры
вы жмёте ентер и ничего не выводить
после чего вы жмёте ещё раз ентер и выводит 3 процедуру
правильно?

[Camelot_2012]

Сообщение от Hacker19_90

так...
Тоест после вывода первой процедуры
вы жмёте ентер и ничего не выводить
после чего вы жмёте ещё раз ентер и выводит 3 процедуру
правильно?

Сначала я ввожу матрицу в первой процедуре нажимаю на ентер и он выводит, во второй процедуре ввожу матрицу нажимаю на ентер, он не выводит, сразу переходит к 3 процедуре!

[Hacker19_90]

выводит! просто буфер у вас не пуст поэтому конечный ReadLn не стопит выполнение!
Вот так поправте

procedure two;
var a:array[1..n,1..n] of integer;
    i,j,k:integer;
begin clrscr;
for i:=1 to n do
for j:=1 to n do
begin
write('vvedite a[', i, ',', j, ']= ');
read(a[i,j]);
end;
ReadLn;
for i:=1 to n do
begin
writeln;
for j:=1 to n do
write(a[i,j]:6);
end;
for i := 1 to n- 1 do 
for j := i + 1 to n do
if abs(a[i,i]) > abs(a[j,j]) then
begin
k := a[i,i];
a[i,i] := a[j,j];
a[j,j] := k;
end;
writeln;
for i:=1 to n do
writeln(a[j,j], ' ');
readln;
end;

[Camelot_2012]

Сообщение от Hacker19_90

выводит! просто буфер у вас не пуст поэтому конечный ReadLn не стопит выполнение!
Вот так поправте

procedure two;
var a:array[1..n,1..n] of integer;
    i,j,k:integer;
begin clrscr;
for i:=1 to n do
for j:=1 to n do
begin
write('vvedite a[', i, ',', j, ']= ');
read(a[i,j]);
end;
ReadLn;
for i:=1 to n do
begin
writeln;
for j:=1 to n do
write(a[i,j]:6);
end;
for i := 1 to n- 1 do 
for j := i + 1 to n do
if abs(a[i,i]) > abs(a[j,j]) then
begin
k := a[i,i];
a[i,i] := a[j,j];
a[j,j] := k;
end;
writeln;
for i:=1 to n do
writeln(a[j,j], ' ');
readln;
end;

Спасибо за помощь!