ANTICHAT Forum
HOME FORUMS MEMBERS RECENT POSTS LOG IN  
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Перезагрузить страницу Студентам с лабораторными сюда
   
 
 
Опции темы Поиск в этой теме Опции просмотра
Предыдущая Предыдущее сообщение   Следующее сообщение Следующая

  #11  
Старый 14.04.2010, 23:42
TPAXTOP
Познающий
Регистрация: 10.12.2009
Сообщений: 33
С нами: 8641138

Репутация: 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. 
Ты спаситель прям, СПАСИБО!!!
 
Ответить с цитированием
 



Предыдущая тема Следующая тема
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Американским студентам запретили пользоваться Skype KPOT_f!nd Мировые новости. Обсуждения. 1 28.09.2006 03:47
Любителям квестов сюда!! FoX's Болталка 10 25.01.2005 20:42



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.