4 задачи!
Помогите, пожалуйста, решить задачи:
1. Определить, является ли натуральное число N степенью двойки. Задачу надо решить с помощью цикла For.
2. Дано натуральное число N. Вычислить: 1/sin1 + 1/(sin1+sin2) + ... + 1/(sin1+...+sinN). Решить надо также с помощью цикла For.
3. Вычислить с применением while ... do: y:=sqrt(a*x*sqrt(x)+exp(-a*sqr(cos(x)))), 0,25<=x<=0,8, a=1,75, дельта х=-0,05.
4. Вычислить с применением repeat ... until: b=1+(xlna)/1! + ((xlna)^2)/2! + ... + ((xlna)^n)/n!=a^x. Исходные данные: епсилон=0,01, х=3.0, альфа=2,5. Ответ: 15,62.
1. Определить, является ли натуральное число N степенью двойки. Задачу надо решить с помощью цикла For.
2. Дано натуральное число N. Вычислить: 1/sin1 + 1/(sin1+sin2) + ... + 1/(sin1+...+sinN). Решить надо также с помощью цикла For.
3. Вычислить с применением while ... do: y:=sqrt(a*x*sqrt(x)+exp(-a*sqr(cos(x)))), 0,25<=x<=0,8, a=1,75, дельта х=-0,05.
4. Вычислить с применением repeat ... until: b=1+(xlna)/1! + ((xlna)^2)/2! + ... + ((xlna)^n)/n!=a^x. Исходные данные: епсилон=0,01, х=3.0, альфа=2,5. Ответ: 15,62.
Цитата:
Originally posted by MoM
Вычислить с использованием подпрограммы - ф-ция:
y=
7
П * sqrt(sqr(x)+sqr(a))-k, x=0,07, a=0,8. Ответ: -223,78.
k=1
Вот моё решение:
С ответом не сходится. Что не правильно?
Вычислить с использованием подпрограммы - ф-ция:
y=
7
П * sqrt(sqr(x)+sqr(a))-k, x=0,07, a=0,8. Ответ: -223,78.
k=1
Вот моё решение:
Код:
uses CRT;
function funct: Real;
Var a,x,y: Real;
k: Integer;
begin
writeln('a,x');
readln(a,x);
for k:=1 to 7 do y:=sqrt(sqr(x)+sqr(a))-k;
funct:=y;
end;
begin
clrScr;
writeln(funct:3:2);
readln;
end.
function funct: Real;
Var a,x,y: Real;
k: Integer;
begin
writeln('a,x');
readln(a,x);
for k:=1 to 7 do y:=sqrt(sqr(x)+sqr(a))-k;
funct:=y;
end;
begin
clrScr;
writeln(funct:3:2);
readln;
end.
С ответом не сходится. Что не правильно?
вместо
Код:
for k:=1 to 7 do y:=sqrt(sqr(x)+sqr(a))-k;
надо написать
Код:
y:=1;
for k:=1 to 7 do y:=y*(sqrt(sqr(x)+sqr(a))-k);
for k:=1 to 7 do y:=y*(sqrt(sqr(x)+sqr(a))-k);
Цитата:
Originally posted by sp999
вместо
надо написать
вместо
Код:
for k:=1 to 7 do y:=sqrt(sqr(x)+sqr(a))-k;
надо написать
Код:
y:=1;
for k:=1 to 7 do y:=y*(sqrt(sqr(x)+sqr(a))-k);
for k:=1 to 7 do y:=y*(sqrt(sqr(x)+sqr(a))-k);
Спасибо за помощь!