Составить алгоритм
10-11 класс
|
вычисления значения суммы членов
бесконечного ряда методом итераций s = 1 +
const
x = 0.75;
eps = 0.5e-3;
var
s, y1, y2, n, sgn, x2, prevf: real;
begin
{для второго члена последовательности}
x2 := sqr(x);
prevf := 2;
y1 := 1; {первый член последовательности}
y2 := x2 / prevf; {второй член последовательности}
s := y1; {накопленная сумма ряда}
n := 1; {последний член последовательности в сумме}
sgn := 1; {знак очередного члена ряда}
while abs(y1 - y2) >= eps do
begin
s := s + y2; {продолжаем накопление}
n := n + 1;
y1 := y2;
x2 := x2 * sqr(x);
prevf := prevf * (2 * n - 1) * 2 * n;
sgn := -sgn;
y2 := sgn * (2 * n - 1) * x2 / prevf
end;
writeln('Сумма ряда из ',n, ' членов равна ', s)
end.
Тестовое решение:
Сумма ряда из 5 членов равна 1.24291779994965
Недавно с одним очень знающим (без кавычек) человеком на эту тему тоже говорили, по поводу составления запросов в Акцессе. Естественно, он такое не воспринимал всерьез и говорил, что только в SQL можно создать сложный запрос. Предложил мне создать в Акцессе запрос (наверно, сложный в формате SQL), а получилось так, что я его создал с помощью одной только мыши, не набирая даже не одного символа на клаве)))
Конечно, это скорее всего, исключение, но все-же!)))
Комментарий удален
Естественно! Поэтому меня и злит, когда начинают навешивать ярлыки. И когда говорят, что "самый лучший - это... ". Нет универсального инструмента. А если и есть, то работа с ним будет не самая эффективная.
Другие вопросы из категории
по итогам сессии из 5 экзаменов. Стипендия в размере 900 рублей
начисляется студенту, не имеющему троек. Посчитать сумму, необходимую
для выплаты стипендии и вывести список студентов, получающий стипендию.
наком после запятой). В ответе укажите только число без единиц измерения.
7.Решите пожалуйста цикл с предусловием и с постусловием, блок схемы и программы.
Читайте также
Составьте алгоритм(в паскале\на алгоритмическом языке), в котором вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних месяцев, осенних месяцев.
2.Составить алгоритм вычисления разности кубов цифр, заданного восьмизначного числа.
3. Для заданного действительного числа К вычислить значение произведения
(99/k^3-98)*(97/k^3+96)*(95/k^3-94)*...*(3/k^3+2)
Извлечение данных из архива
2. Составить алгоритм записи информации на компакт-диски различных видов.
Организация информации на компакт-диске с интерактивным меню.
цикла (do ...while, while, for). В алгоритме и программе массивов не использовать.
Я здесь набросал все ,что мог, помогите доработать, написать до конца все эти операторы в одну программу,не получается.
#include <iostream>
#include <cstdlib>
#include <conio.h>
#include <math.h>
using namespace std;
int main()
{
float a,z,xn,xk,dx,R,max,min; float count=0,x;
a = 2.94;xn = 1.5;xk = 5.5;dx = 0.4;
while (xn <= xk)
for (x >= xn; x <= xk; x+=dx, dx = dx + 0.4)
{
do
{
z = a*pow((a*x*x*x*x*x*x*x/cos(a*a*a)+1,31),(1/5));
printf("X = %10f, Z = %10f \n", x, z);
dx = dx + 0.4;
}
while (x <= xk);
return 0;
}
{
max = x;min = z;
if (x > max) max = x;
if (z < max) min = z;
if (count > 2) count = 0;
if (count == 2) printf("X = %10f, Z = %10f \n", x, z);
count=0;
}
cout<<"max="<<max<<"\t min="<<min<<"\n";
cout<<"R="<<min-max<<"\n";
system("PAUSE");
return 0;
}
Составить алгоритм вычисления
площади поверхности цилиндра S= 2*π*r(h+r).