pascal / правка кода

@deflion · Регистрация: 27.10.2013

Author24 — интернет-сервис помощи студентам

Добрый день! нужна помощь в написании пары прог
1)написать прогу для нахождения суммы S=1+1/4+1/9+...+(1/(n-1)^n)+1/sqr(n)
есть примерный код, но похожу он 100% не верен.

Pascal

var i,n:integer;
    sum,x1,x:real;
begin
  read(n);
  sum:=0;x:=1;i:=0;
  while i<>n do begin
  sum:=sum-x;
  //x:=1;
  x:=x*(sqr(n)*sqr(n)*(exp(n*ln(n-1))))/(exp(-n*ln(n+1)));
  i:=i+1;
  //write(x:5)
  end;
  writeln(sum)
  end.

2)Определить номер наименьшей среди сумм Ʃ^M_i:=1A_i, где m=1,2..n...
Примерную задачу проги понял но что то явно не так закодил. ошибки обработки видны при использовании матриц при n>4.

Pascal

const nmax=10;
var  m:array[1..nmax] of real;
      a:array[1..nmax,1..nmax] of real;
      sum,msum:real;
      i,j,n,k:integer;
begin
 read(n);
  for i:=1 to n do begin
   for j:=1 to n do begin
    a[i,j]:=random(5);
    end;
    writeln;
  end;  
  for i:=1 to n do begin
   sum:=0;
   for j:=1 to n do begin
    sum:=sum+a[i,j];
    m[i]:=sum;
   end;
 writeln(' №',i,'-',m[i]:2)
  end;
  writeln;
  msum:=m[1];
  for i:=1 to n do
   for j:=1 to n do
    if m[1]<=m[i+1] then
    msum:=m[i];
    write(msum)
end.

Заранее спасибо.

@00 · 27.10.2013, 18:42

что-то много всего там замудрено в первой проге, вот так вот:

Pascal

var x:integer;s:real;
begin
  cls;read(x);s:=0;
   for x:=1 to x do
   begin
   s:=s+(1/(x*x));
   end;
   write('s=',s);
   end.

@deflion · 27.10.2013, 18:57 **[ТС]**

моя любовь все усложнять меня погубит. спасибо

@deflion 5 / 5 / 5 Регистрация: 27.10.2013 Сообщений: 23
	27.10.2013, 18:57 [ТС]	3
	моя любовь все усложнять меня погубит. спасибо 0