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

  #11  
Старый 14.04.2010, 07:50
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,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. 
СПАСИБИЩЕ, но у меня та же проблема пишет, это наверное Паскаль мой глючит..
 
Ответить с цитированием
 



Предыдущая тема Следующая тема
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Американским студентам запретили пользоваться 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.