|
Математические задачи
|
|
Дана последовательность неотрицательных чисел, последнее из которых равно нулю, причём других равных нулю чисел в последовательности нет. Вычислить произведение положительных чисел этой последовательности
решил так:
program Posledovatelnost;
var
a,b:integer;
begin
Writeln('Введите через пробел последовательность положительных чисел, окончание ввода "0"');
read(a);
b:=1;
while a<>0 do begin
if a>0 then b:=b*a;
read(a);
end;
if b<>1 then writeln('Произведение положительных чисел последовательности = ',b)
else writeln('В последовательности кроме нуля нет элементов');
end.
Всё считает, но есть загвоздка когда вводишь последовательность "1 0" пишет ответ "В последовательности нет элементов" В чём ошибка подскажите плиз!!! Заранее огроменное спасибо
|
|
|
|
Дано натуральное число n (n ≥ 5). Получить все пятерки
натуральных чисел x1, x2, x3, x4, x5 такие, что x1≥ x2≥ x3≥ x4≥ x5 и x1+…+
x5 = n.
|
|
|
|
Для заданного х вывести все положительные члены последовательности
$$x, (x-1)*2, (x-2)*3, (x-3)*4,.....$$
с помощью оператора go to и рекурсии. Не знаю как сделать(( очень плохо с программированием(
№ 23 | Автор: binbo |
2014-12-20, 10:03 | Изменено: binbo - Ср, 2013-05-08, 18:24
|
Репутация: [ + 0 ]
|
|
|
|
Помогите!! Найти сумму ряда $$y={x}^{3}+\frac{{x}^{2}}{2!}+x+ \frac{{x}^{4}}{4!}+\frac{{x}^{3}}{6!}+...+\frac{{x}^{n}}{(2n)!}+...,$$ где $$x\prec 1$$ с точностью $$\epsilon$$
№ 24 | Автор: AlexanderBry |
2014-12-20, 10:03 | Изменено: AlexanderBry - Чт, 2013-05-16, 17:23
|
Репутация: [ + 0 ]
|
|
|
|
По вещественным числам e>0 и t вычислить величину
((1-(cos(t/4))^4)^1/4)+((1-arctag(t/200))^1/5)*(((1-/(3+t^2))^1/9).
Корни вычислить с точностью e , используя ряд Тейлора
(1+x)^a=1+ax+(a(a-1)/2!)*(x^2)+(a(a-1)(a-2)/3!)*(x^3)+... (|x|<=1, a>0).
Написать функцию для вычисления корня.
http://piccy.info/view3/6084855/7c8094ef9e8b24c9cee3e515cbc12673/
ссылка на скрин задачиДобавлено (19.03.14, 18:42)
---------------------------------------------
function summa(x: real): real;
const e = 0.0001; //точность
var s,a,l,g: real; //сумма, член ряда
n,i: integer; //номер члена ряда
begin
g:=2;
s := 1+a*l;
n := 1; //номер первого члена ряда
repeat
for i:=1 to n do
begin
g:=g*n;
end;
s:= s+(s*(a*(a-(i))))/g;
inc(i) //следующее
until abs(a) < e;
summa := s
end;
var a, y, t: real;
begin //основная программа
write('a = '); //ввод a
readln(a);
begin //вычисляем
y:=exp(ln(1-arctan(t/200))*(1/5))+exp(ln(1-sqr(sqr(cos(t/4))))*(1/4))*exp(ln(1-t/(3+sqr(2)))*(1/9));
writeln('f(a) = ', y); //выводим результат
end;
readln
end.
вот нароботки
№ 25 | Автор: snauk3 |
2014-12-20, 10:03 | Изменено: snauk3 - Вт, 2014-03-18, 15:33
|
Репутация: [ + 0 ]
|
|
|
|
|
дано натуральное число n .Получить все натуральные числа меньше n и взаимно простые с ним
|
|
|
|
Очень впечатлили "СПЕНЕНИ" в заголофке темы ---- тангенс это sin(x)/cos(x) ------а "спенени" - выружуй через лагагрифмы или логурифмы или лыгорихмы или лулугрифы или лапагримы или логагримы или не помню точно как их называют и чему они ровняются 
|
|
|
|
Не понятный какой-то логарифм. 1/3- это основание? Для корректного отображения выражений лучше воспользоваться редактором формул на сайте. Вы имели ввиду такое выражение:
$$log_{1/3}(2x+y-2)>log_{1/3}(y+1)$$ Если вы не видите формул, то сделайте настройки отображения формул - у вас должно появляться сообщение над сайтом о том что математические шрифты в вашем браузере не настроены.
|
|
|
|
программу для факториала можно найти на нашем сайте. о факториале - у тебя обычный факториал
1!=1
3!=1*2*3
5!=1*2*3*4*5
и то что в счетчике i перебирается по нечетным ника не влияет на факториал. для нечетной факториальной последовательности есть другое обозначение. у тебя же самый обыный факториал.
|
|
|
|
var
a:byte;
begin
a:=1+3+5+7+9;
writeln('Значение искомой суммы:','a','=1+3+5+7+9');
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Если все числа совпадают нужно выводить True?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Если у векторов a,b,c,d размерность n, то новый вектор в порядке убывания получить не выйдет, все элементы будут одинаковыми
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Code
Function pow(x:integer;n:real):real;
begin
if n=0 then
begin
result:=1;
exit;//выход из подпрограммы
end;
if n>0 then result:=x*pow(x,n-1)//тут все по формуле
else
result:=1/pow(x,abs(n));//abs - модуль числа
end;
|
|
|
|
напиши правильно условие, ничего не понятно
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Держи набросок:
var
i,n:integer;
s:string;
begin
readln(n);
i:=1;
while n>1 do begin
str(i,s);
n:=n - length(s);
i:= i+1;
end;
writeln(s);
end.
осталось только определить когда выводить первую, когда вторую цифру, а так - вроде пашет
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
const
n=100;
var
a:array[1..n]of integer;
i,aa:integer;
begin
read(aa);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i] mod aa = 0 then writeln(a[i],' ');
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (tolyanl1985) if a>0 then b:=b*a;
if a>=0 then b:=b*a;
поставь
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
а go to тут зачем хоть?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
ты может быть как-то не правильно редактором формул воспользовался?
я закономерности не вижу, кроме увеличения знаменателя
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
Прошу прощения, но наверное из-за своей невнимательности или может просто тупости я не нашёл, где у ваш редактируется название тем. Спасибо не говорю ибо помощи не одержал, но рад хотя бы что Вы хоть чем-то потешились. Спокойной ночи.
|
|
|
|
