нужна помощь

[DIzza]

2)составить программу проверки справедливости соотношения:
1/2+2/2^2+3/2^3+....n/2^n=2-(n+2/2^n)
3)задано натуральное число представить в виде римских цифр учесть что x=10,v=5,m=1000,D=500,c=100,L=50,I= 1.

там ещё прикреплённый файл..




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

[capta1n]

Код 1 программы полностью:

{$N+}
program ex1;
const
 n = 10;
var
 k,m : byte;
 x,Y : real;
 l : integer;


 function power (x : real; k : integer) : real;
 begin
   power:=exp(ln(x)*k)
 end;
 function fact( l : integer) : extended;
begin
  if l=0 then fact:=1
  else
  fact:=fact(l-1)*l;
end;
begin
  writeln ('Viberete nomer primera iz faila 1.doc: 1, 2, 3?');
  readln (m);
  case m of

    1 :
    begin
      writeln ('Vvedite x: ');
      readln (x);
      writeln ('----------------------');
      writeln ('    x      |     y    ');
      writeln ('----------------------');
      Y:=0;
      for k:=1 to n do
       Y:=Y+power(x,k)/exp(k-1);
      writeln ('    ',x:0:1,'    |','     ',y:0:1,'     ')
    end;
    2 :
    begin
      writeln ('Vvedite x: ');
      readln (x);
      writeln ('----------------------');
      writeln ('    x      |     y    ');
      writeln ('----------------------');
      Y:=1;
      for k:=1 to n do
       Y:=Y*k*power(x,k-1);
      writeln ('    ',x:0:2,'   |','     ',y:0:2,'     ')
    end;
    3 :
    begin
      writeln ('Vvedite n: ');
      readln (l);
      writeln ('----------------------');
      writeln ('    n      |     y    ');
      writeln ('----------------------');
      writeln ('    ',l,'      |','     ',fact(sqr(l)+1):0:0,'     ')
    end
    else writeln ('Takogo nomera net!');

  end;
  readln;
end.
{$N-}

[DIzza]

а без функция никак не сделать?

[capta1n]

можно, просто так нагляднее и проще для понимания - можешь переделать, только за работу отзыв попросил бы )

[capta1n]

с функцией факториал намного удобнее сделать через функцию, чем через циклы перемножения, но можешь сделать и циклы

[DIzza]

уже оставил))

[capta1n]

у меня скоро экзамен по вышмату, поэтому нет времени на следующие задачи

[maladoy]

задание №2
program vyr;
uses crt;
var

s,s1: real;
l,n : integer;
function power (x : real; k : integer) : real;
begin
power:=exp(ln(x)*k)
end;
begin
clrscr;
writeln ('Vvedite n: ');
readln (n);
y:=0;
for l=1 to n do
s:=s+(n/power(2,n));
s1:= 2-((n+2)/power(2,n));
if s=s1 then writeln ('sootnoshenie verno ');
end.

[capta1n]

хорошая программа, только знаешь в чем прикол - была похожая программа где надо было вычислить сумму 1+2+3+..+n - если делать через циклы - это такой ппц )))) сделал на n=100000000 и цикл пошел for i:=1 to n do sum:=sum+n )))) у меня эта прога выполнялась 2 часа и так и не выполнилась - поэтому не всегда циклами хорошо такие суммы делать - вот в этой программе естественно я узрел арифметическую прогрессию и заюзал по формуле S=(a1+an)*n/2 - прогрмама выполнялась влет - моэет и здесь формулу найти?? а то циклами для больших чисел долго будешь ждать результата

[maladoy]

Сообщение от capta1n

хорошая программа, только знаешь в чем прикол - была похожая программа где надо было вычислить сумму 1+2+3+..+n - если делать через циклы - это такой ппц )))) сделал на n=100000000 и цикл пошел for i:=1 to n do sum:=sum+n )))) у меня эта прога выполнялась 2 часа и так и не выполнилась - поэтому не всегда циклами хорошо такие суммы делать - вот в этой программе естественно я узрел арифметическую прогрессию и заюзал по формуле S=(a1+an)*n/2 - прогрмама выполнялась влет - моэет и здесь формулу найти?? а то циклами для больших чисел долго будешь ждать результата

эта формула как раз для проверки и служит