Матрица и остальная бредятина

[BlonDino4Ka]

Чет не в курила я как её делать
может есть люди умные,помогут с задачкой и если не трудно и блок схемой.

[Sazary]

Кусок, который помечен как "{---- dlya proverki -- }" можно удалить. (он закомменчен)

uses crt;

var
A : array[1..10,1..10] of integer;
i,j,n,c : integer;
pr : longint;
srgeom : real;

begin
clrscr;
n := 4;

{---- dlya proverki -- }
{--randomize;
for i:=1 to n do
  begin
  for j:=1 to n do
   begin
   A[i,j] := random(20)+1;
   write(A[i,j]:5);
   end;
  writeln;
  end;
--}
{--------}

{ --- for release --}
for i:=1 to n do
 for j:=1 to n do
  begin
  write('Enter A[',i,',',j,']: ');
  readln(A[i,j]);
  end;


{-- Ishem sred. geometricheskoe el-v nad pobochnoj diagonaljyu--}
{ elementy glavnoj diagonali ne uchastvuyut -}
pr := 1;
c := 0;
for i:=1 to n do
 for j:=1 to n-i do
  begin
  pr := pr * A[i,j];
  inc(c);
  end;
srgeom := exp(ln(pr)/c);
writeln('Srednee geometricheskoe= ',srgeom:7:4);
{------}
{-- Ishem proizvedenie el-v >10 nad glav.diagonaljyu --}
pr := 1;
for i:=1 to n do
 for j:=i+1 to n do
  pr := pr * A[i,j];

writeln('Proizvedenie= ',pr);

readln;
end.

В следующий раз, пожалуйста, называйте тему более осмысленно. Иначе ее просто удалят.

[BlonDino4Ka]

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

Кусок, который помечен как "{---- dlya proverki -- }" можно удалить. (он закомменчен)

uses crt;

var
A : array[1..10,1..10] of integer;
i,j,n,c : integer;
pr : longint;
srgeom : real;

begin
clrscr;
n := 4;

{---- dlya proverki -- }
{--randomize;
for i:=1 to n do
  begin
  for j:=1 to n do
   begin
   A[i,j] := random(20)+1;
   write(A[i,j]:5);
   end;
  writeln;
  end;
--}
{--------}

{ --- for release --}
for i:=1 to n do
 for j:=1 to n do
  begin
  write('Enter A[',i,',',j,']: ');
  readln(A[i,j]);
  end;


{-- Ishem sred. geometricheskoe el-v nad pobochnoj diagonaljyu--}
{ elementy glavnoj diagonali ne uchastvuyut -}
pr := 1;
c := 0;
for i:=1 to n do
 for j:=1 to n-i do
  begin
  pr := pr * A[i,j];
  inc(c);
  end;
srgeom := exp(ln(pr)/c);
writeln('Srednee geometricheskoe= ',srgeom:7:4);
{------}
{-- Ishem proizvedenie el-v >10 nad glav.diagonaljyu --}
pr := 1;
for i:=1 to n do
 for j:=i+1 to n do
  pr := pr * A[i,j];

writeln('Proizvedenie= ',pr);

readln;
end.

В следующий раз, пожалуйста, называйте тему более осмысленно. Иначе ее просто удалят.

Извените а это точно работает я просто в паскаль все это набрала и нажимаю run вот и появляеться error: Iltlegal parameter:-Opentium3
что это такое я незнаю,плиз помогите пожалуйста оч прошу а то до зачет не поставят =(((

[Sazary]

BlonDino4Ka А на какую строчку указывает?
Вы точно полностью скопировали?
Лучше, если вы скрин выложите, где будет видна эта ошибка.

[puporev]

Программа абсолютно рабочая. А куда Вы там нажимаете и что у Вас за Паскаль, Ваши проблемы.

[Sm1Le]

Возможные причины :
1) Ник =)))))
2)

я просто в паскаль все это набрала

, САБЖ очепятка =)

[BlonDino4Ka]

Эээ оказалась что эт у меня паскаль глючит в универе набрала все норм только вопрос не считает значения с точкой например 6,2 считает только целые =( ПОМОГИТЕ ЧТО ИСПРАВИТЬ,!
И если не сложно сделайте Эээ ну сказать даже трудно,ну препод сказал чтоб программа была сделана так чтоб чет там прописывать путь на текстовик отдельный в котором записана матрица вот,запутал меня окончательно.

[Tkirill]

uses crt;
const
n=4;
var
fil:text;
name:string;
i,j,k:integer;
mas:array[1..n,1..n] of real;
sr,pr:real;
begin
clrscr;
write(' Имя файла -> ');
readln(name);
writeln;
assign(fil,name);
reset(fil);
for i:=1 to n do
begin
for j:=1 to n-1 do
begin
read(fil,mas[i,j]);
end;
readln(fil,mas[i,n]);
end;
close(fil);
sr:=1;
k:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
if (j<(n-i+1)) then begin sr:=sr*mas[i,j]; k:=k+1; end;
end;
end;
sr:=exp(ln(sr)*(1/k));
pr:=1;
for i:=1 to n do
begin
for j:=1 to n do
begin
if (j>(n-i+1)) and (mas[i,j]>10) then pr:=pr*mas[i,j];
end;
end;
writeln(' Среднее геометрическое -> ',sr:4:2);
writeln(' Произведение -> ',pr:4:2);
readln;
end.

[BlonDino4Ka]

блин ктонибудь может посчитать эту прогу
uses crt;
const
n=4;
var
fil:text;
name:string;
i,j,k:integer;
mas:array[1..n,1..n] of real;
sr,pr:real;
begin
clrscr;
write(' Имя файла -> ');
readln(name);
writeln;
assign(fil,name);
reset(fil);
for i:=1 to n do
begin
for j:=1 to n-1 do
begin
read(fil,mas[i,j]);
end;
readln(fil,mas[i,n]);
end;
close(fil);
sr:=1;
k:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
if (j<(n-i+1)) then begin sr:=sr*mas[i,j]; k:=k+1; end;
end;
end;
sr:=exp(ln(sr)*(1/k));
pr:=1;
for i:=1 to n do
begin
for j:=1 to n do
begin
if (j>(n-i+1)) and (mas[i,j]>10) then pr:=pr*mas[i,j];
end;
end;
writeln(' Среднее геометрическое -> ',sr:4:2);
writeln(' Произведение -> ',pr:4:2);
readln;
end.

матрица на картинке в самом верху
не понимаю паскаль не хочет считать
и при чем при открытии ваская он автоматом запускает последнюю программу в компиле-примари файл пуст нечего не выбрано я незнаю что твориться у меня паника зачет не как не могу получить
а когда нажимаю рун то вылазиет
ерор:Illegal параметр:-Opentium3

[BlonDino4Ka]

уже переустанавливала несколько рас паскаль даже под чистую вырезала люди помогите бьсь в конвульсиях об стену!