Форум АНТИЧАТ - Студентам с лабораторными сюда

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

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

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

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

#11

14.04.2010, 07:50

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,l:integer;

sum,g,p:real;

begin

clrscr;

l:=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:1);

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

  end;

  x[i]:=sum;

  sum:=0;

  writeln;

end;

writeln;

write('X(');

for i:=1 to n do

begin

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

end;

write(')');

writeln;





for i:=1 to n do

begin

  for k:=1 to i do

  begin

    for j:=1 to k do

    begin

      l:=l*j;

    end;

  p:=x[k]/l;

  l:=1;

  end;

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

end;

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

writeln;

writeln('G= ',g:3:3);

readln;

end.