Напишите 2 проги с циклами

@artem2010 · Регистрация: 15.06.2010

Студворк — интернет-сервис помощи студентам

82. Дано действительное число x. Вычислить
(x-2)(x-4)(x-8)... (x-64)
-------------------------.
(x-1)(x-3)(x-7)... (x-63)

80. Дано действительное число x. Вычислить
3 5 7 9 11 13
x-x /3!+x /5!-x /7!+x /9!-x /11!+x /13!

@Black-cat · 15.06.2010, 23:47

80

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program zad;
uses crt;
var i,k,n:integer;
    s,x,x1:real;
begin
clrscr;
writeln('Введите x');
readln(x);
k:=1;
s:=x;
x1:=x;
n:=1;
for i:=2 to 7 do
begin
k:=k+2;
n:=n*(k-1)*k;
x1:=x1*sqr(x);
if (odd(i)=false) then
s:=s-x1/n
else
s:=s+x1/n;
end;
writeln('s=',s:3:3);
readln;
end.

Добавлено через 15 минут
82

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program zad;
uses crt;
const n=63;
var i:byte;
    x:longint;
    a,b,s:real;
begin
clrscr;
a:=1;
b:=1;
s:=1;
write('Ââåäèòå x=');
readln(x);
For i:=1 to n do
begin
if not(x-1-i=0) then
s:=s*(x-i)/(x-1-i)
else writeln('Îøèáêà âû÷èñëåíèÿ!!!!');
end;
if s<>0 then
writeln('s=',s:3:1);
readln;
end.

бредовое задание.... x не может быть in [2..64]....

@artem2010 · 16.06.2010, 01:05 **[ТС]**

А можно пояснение

@Black-cat · 16.06.2010, 01:23

Сообщение от Black-cat

80

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program zad;
uses crt;
var i,k,n:integer;
    s,x:real;     {Объявление переменных}
begin
clrscr;                            {Очистка экрана}
writeln('Введите x');
readln(x);
k:=1;
s:=x;
n:=1;
for i:=2 to 7 do    {Цикл}
begin
k:=k+2;     {Значение факториала}
n:=n*(k-1)*k;   {Вычисление факториала каждого элемента}
x:=x*sqr(x);    {Вычисление числителя каждого элемента}
if (odd(i)=false) then  {Обеспечение смены знака (проверкой на четность/нечетность)}
s:=s-x1/n
else
s:=s+x1/n;
end;
writeln('s=',s:3:3); {Вывод результата}
readln;
end.

Добавлено через 15 минут
82

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program zad;
uses crt;
const n=63;          {Объявление константы}
var i:byte;                              {Объявление переменных}
    x:longint;
    a,b,s:real;
begin
clrscr;   {Очистка экрана}
a:=1;
b:=1;
s:=1;
write('Введите x=');
readln(x);
For i:=1 to n do    {Цикл}
begin
if not(x-1-i=0) then   {Проверка деления на ноль}
s:=s*(x-i)/(x-1-i)     {Вычисление значения}
else writeln('Ошибка вычисления!!!!');
end;
if s<>0 then
writeln('s=',s:3:1);
readln;
end.

бредовое задание.... x не может быть in [2..64]....

добавила пояснения... если непонятно - спрашивай конкретно

@artem2010 · 16.06.2010, 14:06 **[ТС]**

А можешь написать прогу с экспонентой

Даны комплексное число Z (пара вещественных чисел) и вещественное
число е>0. Вычислить с точностью до е значение следующей
комплексной функции:

exp(z*z);

Новые блоги и статьи Все статьи Все блоги /
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .

@artem2010 0 / 0 / 0 Регистрация: 15.06.2010 Сообщений: 11

	Напишите 2 проги с циклами 15.06.2010, 23:26. Показов 1352. Ответов 4 Метки нет (Все метки) 82. Дано действительное число x. Вычислить (x-2)(x-4)(x-8)... (x-64) -------------------------. (x-1)(x-3)(x-7)... (x-63) 80. Дано действительное число x. Вычислить 3 5 7 9 11 13 x-x /3!+x /5!-x /7!+x /9!-x /11!+x /13! 0

@artem2010 0 / 0 / 0 Регистрация: 15.06.2010 Сообщений: 11
	16.06.2010, 01:05 [ТС]
	А можно пояснение 0

@artem2010 0 / 0 / 0 Регистрация: 15.06.2010 Сообщений: 11
	16.06.2010, 14:06 [ТС]
	А можешь написать прогу с экспонентой Даны комплексное число Z (пара вещественных чисел) и вещественное число е>0. Вычислить с точностью до е значение следующей комплексной функции: exp(z*z); 0