Студентам с лабораторными сюда

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

14.04.2010, 00:44

TPAXTOP

Познающий

Регистрация: 10.12.2009

Сообщений: 33

Провел на форуме:
19460

Репутация: 0

Цитата:

Сообщение от EndLeSSDre@M

в общем вот код как я понял задачу:

PHP код:


		
			
uses crt;

const n=5;

var 

a:array[1..n,1..n] of real;

x:array[1..n] of real;

i,j,k:integer;

sum,g,p:real;

begin

clrscr;

k:=1;

writeln('Massiv');

for i:=1 to n do

begin

  for j:=1 to n do

  begin

     a[i,j]:=exp(ln(2)*(i-j))*abs(i-4)+3*ln(3)/ln(abs(sqr(i)-exp(ln(j)*3)));

     write(a[i,j]:4);

     sum:=sum+a[i,j];

  end;

  x[i]:=sum;

  sum:=0;

  writeln;

end;



write('X(');

for i:=1 to n do

begin

write(x[i],', ');

end;

write(')');

writeln;





for i:=1 to n do 

begin



  for k:=1 to i do

  begin

    for j:=1 to k do

    begin

      k:=k*j;

    end;

  p:=x[k]/k;

  k:=1;

  end;



  sum:=sum+(sin(x[i])-p);

end;

G:=ln(2)/ln(abs(sum));

writeln('G= ',g);

readln;

end.

на работоспособность не проверял... возможны не большие недочеты.... писал в блокноте, лень проверять... если что пиши в ЛС! Пожалуйста

сорь что без процедур и се такое... просто не люблю я их

да и еще, я знаю только 2 диагонали матрицы... главную и побочную, где еще взять 3 не понял... тупо сделал как сумма строк..

СПАСИБИЩЕ!!!!!!!!!
ОГРОМНОЕ!!!!ОЧЕНЬ ВЫРУЧИЛ!!!
Компиль проходит, но Ран пишет: "Error 207: Invalid floating point operation", а Дебаг-> Аутпат: "Masiv Runtime error 207 at 0356:0006"