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

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

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

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

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

#11

14.04.2010, 23:42

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; 

max,sum,g,p:real; 

begin 

clrscr; 

p:=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))+sin(i*j)/exp(ln(i+j)*3);

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

  end; 

   

  sum:=0; 

  writeln; 

end;



for i:=1 to n do

begin

max:=a[i,1];

  for j:=1 to n do

  begin

    if a[i,j]>max then max:=a[i,j];

  end;

x[i]:=sqr(max);

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 

    sum:=ln(2)/ln(abs(x[k]))   

  end;

  sum:=sum+x[i];

  p:=p*sum; 

end; 

g:=p; 

writeln; 

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

readln; 

end.