Помогите решить задачи , пожалуйста! Паскаль!
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 – заданные действительные числа;
____________________
_____________
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 – заданные действительные числа;
____________________
10.Рассматривается последовательность a1, …, a1000. Требуется определить, сколько членов последовательности с номерами 1, 2, 4, 8, 16, ... имеют значение, меньшее, чем 0.25. При этом считать, что a1, …, a1000 – заданные действительные числа;
____________________[/QUOTE]
[HTML]
var
A: array[1..1000] of Real;
i: Integer;
kol: Integer;
begin
kol:= 0;
i:= 1;
repeat
if (A < 0.25) then
Inc(kol);
i:= i*2;
until (i > 1000);
end;
[/HTML]
____________________[/QUOTE]
[HTML]
var
A: array[1..1000] of Real;
i: Integer;
kol: Integer;
begin
kol:= 0;
i:= 1;
repeat
if (A < 0.25) then
Inc(kol);
i:= i*2;
until (i > 1000);
end;
[/HTML]
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;
[/QUOTE]
[HTML]
const
a = -3;
b = 5;
n = 40;
var
y, x: Real;
i: Integer;
h: Real;
begin
h:= (b-a) / n;
for i:= 0 to n do
begin
x:= a + i*h;
y:= Sqrt(Sqr(x)+2);
Writeln(x, ' ', y);
end;
end;
[/HTML]
[/QUOTE]
[HTML]
const
a = -3;
b = 5;
n = 40;
var
y, x: Real;
i: Integer;
h: Real;
begin
h:= (b-a) / n;
for i:= 0 to n do
begin
x:= a + i*h;
y:= Sqrt(Sqr(x)+2);
Writeln(x, ' ', y);
end;
end;
[/HTML]
Это раздел про web-программирование? Как мне приготовить борщ на костре?
Цитата: int
Это раздел про web-программирование? Как мне приготовить борщ на костре?
Код:
Ха-Ха-Ха. Ты кажется заблудился. Здесь не готовят борщ.
Пример про kde2 под фряху несколько банален. Да и юмор там был построен на том, что все анимешники - линуксоиды/юниксоиды. А тут так сразу не подберёшь ничего подходяшего.