Новые сообщения · Правила  
Страница 2 из 4«1234»
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Математические задачи
Математические задачи
Дана последовательность неотрицательных чисел, последнее из которых равно нулю, причём других равных нулю чисел в последовательности нет. Вычислить произведение положительных чисел этой последовательности

решил так:

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" пишет ответ "В последовательности нет элементов" В чём ошибка подскажите плиз!!! Заранее огроменное спасибо
21 | Автор: tolyanl1985 | 2014-12-20, 10:03   |  Репутация: [ + 0 ]
Дано натуральное число n (n ≥ 5). Получить все пятерки
натуральных чисел x1, x2, x3, x4, x5 такие, что x1≥ x2≥ x3≥ x4≥ x5 и x1+…+
x5 = n.

22 | Автор: andrenalin | 2014-12-20, 10:03   |  Репутация: [ + 0 ]
Для заданного х вывести все положительные члены последовательности
$$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 и взаимно простые с ним
26 | Автор: tadimon | 2014-12-20, 10:03   |  Репутация: [ + 0 ]
Очень впечатлили "СПЕНЕНИ" в заголофке темы ---- тангенс это sin(x)/cos(x) ------а "спенени" - выружуй через лагагрифмы или логурифмы или лыгорихмы или лулугрифы или лапагримы или логагримы или не помню точно как их называют и чему они ровняются tongue
27 | Автор: admin | 2014-12-20, 10:04   |  Репутация: [ + 21 ]
Не понятный какой-то логарифм. 1/3- это основание? Для корректного отображения выражений лучше воспользоваться редактором формул на сайте. Вы имели ввиду такое выражение:
$$log_{1/3}(2x+y-2)>log_{1/3}(y+1)$$

Если вы не видите формул, то сделайте настройки отображения формул - у вас должно появляться сообщение над сайтом о том что математические шрифты в вашем браузере не настроены.

28 | Автор: admin | 2014-12-20, 10:04   |  Репутация: [ + 21 ]
программу для факториала можно найти на нашем сайте. о факториале - у тебя обычный факториал
1!=1
3!=1*2*3
5!=1*2*3*4*5
и то что в счетчике i перебирается по нечетным ника не влияет на факториал. для нечетной факториальной последовательности есть другое обозначение. у тебя же самый обыный факториал.
29 | Автор: admin | 2014-12-20, 10:04   |  Репутация: [ + 21 ]
var
a:byte;
begin
a:=1+3+5+7+9;
writeln('Значение искомой суммы:','a','=1+3+5+7+9');
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
30 | Автор: Berestovskiy | 2014-12-20, 10:04   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
30 | Автор: Berestovskiy | 2014-12-20, 10:04   |  Репутация: [ + 211 ]
Если все числа совпадают нужно выводить True?

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
31 | Автор: Berestovskiy | 2014-12-20, 10:04   |  Репутация: [ + 211 ]
Если у векторов a,b,c,d размерность n, то новый вектор в порядке убывания получить не выйдет, все элементы будут одинаковыми

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
32 | Автор: Berestovskiy | 2014-12-20, 10:04   |  Репутация: [ + 211 ]
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;
33 | Автор: Fireleo | 2014-12-20, 10:04   |  Репутация: [ + 30 ]
напиши правильно условие, ничего не понятно

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
34 | Автор: Berestovskiy | 2014-12-20, 10:04   |  Репутация: [ + 211 ]
Держи набросок:

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
35 | Автор: Berestovskiy | 2014-12-20, 10:04   |  Репутация: [ + 211 ]
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
36 | Автор: Berestovskiy | 2014-12-20, 10:04   |  Репутация: [ + 211 ]
Quote (tolyanl1985)
if a>0 then b:=b*a;


if a>=0 then b:=b*a;

поставь


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
37 | Автор: Berestovskiy | 2014-12-20, 10:04   |  Репутация: [ + 211 ]
а go to тут зачем хоть?

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
38 | Автор: Berestovskiy | 2014-12-20, 10:04   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
38 | Автор: Berestovskiy | 2014-12-20, 10:04   |  Репутация: [ + 211 ]
ты может быть как-то не правильно редактором формул воспользовался?
я закономерности не вижу, кроме увеличения знаменателя


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
39 | Автор: Berestovskiy | 2014-12-20, 10:04   |  Репутация: [ + 211 ]
Прошу прощения, но наверное из-за своей невнимательности или может просто тупости я не нашёл, где у ваш редактируется название тем. Спасибо не говорю ибо помощи не одержал, но рад хотя бы что Вы хоть чем-то потешились. Спокойной ночи.
40 | Автор: Sanya | 2014-12-20, 10:04   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Математические задачи
Страница 2 из 4«1234»
Поиск: