Паскаль!

[AnyaPonomareva]

ПОМОГИТЕ ПОЖАЛУЙСТА РЕШИТЬ ЗАДАЧИ!
7. Дано A0=cos(в квадрате)1; A1=-sin(в квадрате)1;Aк=2Ak-1 - Ak-2; K=2,3,... Найти сумму квадратов тех чисел a1, …, a100, которые не превосходят двух.
_____________
9. Даны действительные числа a, b (a < b), натуральное число n, функ-ция у = f(x), определенная на отрезке [а, b]. Для значений аргумента xi = a+ih (i = 0, 1, ..., n), h=(b – а)/n вычислить значения функции yi=f(xi) (i = 0, 1, ..., n). Вывести хi и уi (i = 0, 1, ..., n) в виде таблицы из двух колонок. В i-ю строку таблицы заносятся соответствующие значения хi и уi. Рассмотреть следую функцию:у =корень х(в квадрате)+2 , а = –3, b = 5, n = 40;
________________
10.Рассматривается последовательность a1, …, a1000. Требуется определить, сколько членов последовательности с номерами 1, 2, 4, 8, 16, ... имеют значение, меньшее, чем 0.25. При этом считать, что a1, …, a1000 – заданные действительные числа;
____________________

[unbanned]

10)

var
  m: array[1..1000] of real;
  i, k: integer;

begin
  {заполнение массива}
  i := 1;k:=0;
  while i <= 1000 do 
  begin
    if m[i] < 0.25 then inc(k);
    i := 2 * i;
  end;
writeln(k);
end.

7)

var
  a: array[1..100] of real;
  i: integer;
  s: real;

begin
  a[1] := -sqr(sin(1));
  a[2] := 2 * a[1] - sqr(cos(1));
  for i := 3 to 100 do
    a[i] := 2 * a[i - 1] - a[i - 2];
  s := 0;
  for i := 1 to 100 do
    if a[i] < 2 then s := s + sqr(a[i]);
  writeln(s:0:4);
end.

[AnyaPonomareva]

Спасибо большое !
а остальные 2 как решать?)

[AnyaPonomareva]

10 задача не выводит нужное количество членов. почему?

[unbanned]

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

10 задача не выводит нужное количество членов. почему?

потому что надо заполнить массив

[AnyaPonomareva]

а как его надо заполнить? подскажите пожалуйста

[Leo08]

for j := 1 to 100 do
a[j]:=Random(10)-5;

[unbanned]

ну тогда уже как-то так

randomize;
for i:=1 to 1000 do
a[i]:=random(10)-0.25;

[AnyaPonomareva]

а 9 задача вообще как решаема?

[demeros]

9)

var x,y,h:real;
    a,b,i:integer;
begin
a:=-3;
b:=5;
  h:=(b-a)/40;
  for i := 0 to 40 do
  begin
    x:=a+(i*h);
    y:=Sqrt(sqr(x)+2);
    Writeln(i,' x=',x:4:2,' y=',y:4:2);
  end;
readln;
end.

Вот,если правильно условие понял.