Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
for_tuna
0 / 0 / 0
Регистрация: 05.11.2009
Сообщений: 97
#1

Сколько чисел нужно взять в последовательности чтобы получить число, больше чем N? - Turbo Pascal

09.02.2010, 19:23. Просмотров 670. Ответов 11
Метки нет (Все метки)

Сколько чисел нужно взять в последовательности чтобы получить число, больше чем N?
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.02.2010, 19:23
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Сколько чисел нужно взять в последовательности чтобы получить число, больше чем N? (Turbo Pascal):

Сколько чисел нужно взять в последовательности , чтобы получить число, больше чем N - Turbo Pascal
Доброго времени суток. Уважаемые господа помогите с решением задачи! Сколько чисел нужно взять в последовательности 1/2+1/3+1/4+..., ...

Составить программу поиска таких трёхзначных чисел на которые нужно умножить число 777 чтобы получить шестизначное число - Pascal
В общем не доходит до меня тупого, безграмотного, парня, которого не берут в армию, как сделать эту задачу с помощью циклического...

Сколько членов суммы нужно взять, чтобы результат оказался не менее 1.999 - Turbo Pascal
Программа пишет ошибку либо переполнения переменной а,либо проходит лишь 2жды по циклу(результат меняется при изменении типа переменных),в...

Определить, сколько чисел последовательности меньше K, равно K и больше K - Turbo Pascal
Задана последовательность из N вещественных чисел. Определить сколько чисел меньше K, равно K и больше K.

Определить, сколько раз нужно к числу 61 ПРИСТАВИТЬ число 61, чтобы полученное число делилось на 2013 - Turbo Pascal
Всем привет, помогите составить программу для решения следующей задачи: сколько раз нужно к числу 61 ПРИСТАВИТЬ число 61, чтобы...

Массивы. Определить, на сколько положительных чисел больше, чем отрицательных - Pascal
данна последовательность из 12 чисел. Написать программу, определящую, на сколько в ней положительных чисел больше, чем отрицательных.

11
кот Бегемот
Платежеспособный зверь
8237 / 3815 / 714
Регистрация: 28.10.2009
Сообщений: 9,832
09.02.2010, 19:54 #2
Цитата Сообщение от for_tuna Посмотреть сообщение
Сколько чисел нужно взять в последовательности чтобы получить число, больше чем N?
Pascal
1
2
3
4
5
6
7
while s<=n do
begin
readln(a);
s:=s+a;
inc(kol);
end;
writeln(kol);
0
for_tuna
0 / 0 / 0
Регистрация: 05.11.2009
Сообщений: 97
10.02.2010, 09:36  [ТС] #3
не работает...может я что то не то пишу в начале программы?ПОМОГИ ПОЖАЛУЙСТА,НАПИШИ ВСЮ ПРРОГУ)
0
Puporev
Модератор
53013 / 40824 / 14070
Регистрация: 18.05.2008
Сообщений: 94,965
10.02.2010, 09:55 #4
for_tuna, Так Вы хоть условие напишите по человечески, что за последовательность, как формируется. Или это натуральный ряд или массив или еще что.
0
кот Бегемот
Платежеспособный зверь
8237 / 3815 / 714
Регистрация: 28.10.2009
Сообщений: 9,832
10.02.2010, 10:41 #5
подразумевается, что вводится число N и произвольная последовательность чисел

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
a,s,n,kol:integer;
begin;
writeln('vvedite n');
readln(n);
while s<=n do
begin
writeln('vvedite chislo');
readln(a);
s:=s+a;
inc(kol);
end;
writeln('vvedeno ',kol,' chisel');
readln;
end.
0
for_tuna
0 / 0 / 0
Регистрация: 05.11.2009
Сообщений: 97
10.02.2010, 19:46  [ТС] #6
последовательность именно та,0которая в условии дана)))
0
Puporev
Модератор
53013 / 40824 / 14070
Регистрация: 18.05.2008
Сообщений: 94,965
10.02.2010, 19:51 #7
Цитата Сообщение от for_tuna Посмотреть сообщение
именно та,0которая в условии дана))
А в условии какая-то последовательность дана? Что-то я в упор не вижу.
0
for_tuna
0 / 0 / 0
Регистрация: 05.11.2009
Сообщений: 97
10.02.2010, 20:11  [ТС] #8
Блин))))жутко извиняюсь....не заметила)))последовательность 1/2+1/3+1/4+...

Добавлено через 11 минут
что-то набросала,но ничего не выводит...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program eee;
uses crt;
var k,b,s,n:real;
begin
ClrScr;
WriteLn('введите n');
Readln(n);
K:=1;
b:=1/k;
s:=s+b;
while s<=n do
begin
k:=k+1;
Readln(k);
b:=(1/k)+1;
Readln(b);
s:=s+b;
Readln(s);
end;
Writeln('понадобится ',k,'чисел');
Readln;
end.
0
кот Бегемот
Платежеспособный зверь
8237 / 3815 / 714
Регистрация: 28.10.2009
Сообщений: 9,832
10.02.2010, 20:15 #9
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
a,n,kol:integer;
s:real;
begin;
writeln('vvedite n');
readln(n);
a:=1;
while s<=n do
begin
inc(a);
s:=s+1/a;
inc(kol);
end;
writeln('vvedeno ',kol,' chisel');
readln;
end.
1
Alexsey1991
1 / 1 / 0
Регистрация: 27.11.2009
Сообщений: 34
10.02.2010, 20:23 #10
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
n,kol:integer;
s:real;
begin;
writeln('vvedite n');
readln(n);
while s<=n do
begin
inc(kol);
s:=s+1/kol;
end;
writeln(kol,' chisel');
readln;
end.
посмотри вот эту!
1
Puporev
10.02.2010, 20:34
  #11

Не по теме:

Блин))))жутко извиняюсь....не заметила)))последовательность 1/2+1/3+1/4+...
alexevt, Век живи, век учись...

0
кот Бегемот
Платежеспособный зверь
8237 / 3815 / 714
Регистрация: 28.10.2009
Сообщений: 9,832
10.02.2010, 20:36 #12
Цитата Сообщение от Alexsey1991 Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
n,kol:integer;
s:real;
begin;
writeln('vvedite n');
readln(n);
while s<=n do
begin
inc(kol);
s:=s+1/kol;
end;
writeln(kol,' chisel');
readln;
end.
посмотри вот эту!
у вас последовательность начинается с 1 а надо с 1/2

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

Не по теме:

Puporev , я писал прогу по тому, что видел: не задана, значит произвольная

0
10.02.2010, 20:36
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.02.2010, 20:36
Привет! Вот еще темы с ответами:

Сколько нужно просуммировать членов ряда, чтобы сумма была больше заданного значения - Turbo Pascal
Вот, собственно, задание: S=1-\frac{x}{1!}+\frac{x^^3}{3!}-\frac{x^^5}{5!}+... При каком n S&gt;4?

Определить, сколько членов последовательности нужно перемножить, чтобы выполнилось условие - Turbo Pascal
Числовая последовательность заданная формулой ({C}_{I}=2{i}^{3}+3/I+4) какое количество членов этой последовательности надо перемножить...

Сколько раз нужно переместить числа заданной последовательности, чтобы упорядочить по возрастанию - Turbo Pascal
Нужно написать программу. Сколько раз приходилось перемещать числа заданной последовательности для того,что бы их расставить по...

Определить, сколько чисел последовательности содержит в своей записи все цифры больше некоторого числа N - Turbo Pascal
помогите пожалуйста написать программу Процедуры и функции в паскаль: Дана последовательность К чисел. определить, сколько чисел...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
12
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru