Здравствуйте) помогите составить задачи по паскалю)

+ 0 -

KristushaYU

08 авг. 2013 г., 0:41:08 (10 лет назад)

var
  j, n: integer;
  x: array[0..100] of double;

begin
  Write('Введите значение n: ');
  Readln(n);
  { Необходимо задать значения x[0], x[1] }
  x[0] := 1; x[1] := 1;
  for j := 2 to n do
  begin
    x[j] := sqr(cos(x[j - 1])) + sqrt(abs(ln(x[j - 2])));
    x[j - 2] := x[j - 1]; x[j - 1] := x[j];
    Write(x[j]:0:5, ' ')
  end
end.

Тестовое решение:

Введите значение n: 10
0.29193 2.02679 1.03442 0.44511 1.71431 0.75463 1.06134 0.48185 1.63972

const
  n = 100;

var
  k, m: integer;
  b: array[1..n] of real;
  s: real;

begin
  Write('Введите значение m: ');
  Readln(m);
  Randomize;
  s := 0;
  for k := 1 to m do
  begin
    b[k] := 50 * Random - 25;
    s := s + cos(b[k]) + ln(abs(b[k]))
  end;
  s := s + 2.4e-2;
  Writeln(s)
end.

Тестовое решение:

Введите значение m: 10
14.8684009707635

const
  n = 10;

var
  x: array[1..n] of integer;
  s, i: integer;

begin
  s := 0;
  Randomize;
  Write('Элементы массива: ');
  for i := 1 to n do
  begin
    x[i] := Random(101) - 50;
    Write(x[i]:4);
    s := s + x[i]
  end;
  Writeln;
  Writeln('Среднее=', s / n)
end.

Тестовое решение:

Элементы массива:    5 -43  50  38   9  32   4 -12   6  -2
Среднее=8.7