Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
for_tuna
0 / 0 / 1
Регистрация: 05.11.2009
Сообщений: 97
#1

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

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


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

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

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

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

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

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

11
кот Бегемот
Платежеспособный зверь
8447 / 3886 / 1511
Регистрация: 28.10.2009
Сообщений: 10,062
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 / 1
Регистрация: 05.11.2009
Сообщений: 97
10.02.2010, 09:36  [ТС] #3
не работает...может я что то не то пишу в начале программы?ПОМОГИ ПОЖАЛУЙСТА,НАПИШИ ВСЮ ПРРОГУ)
0
Puporev
Модератор
54128 / 41761 / 28874
Регистрация: 18.05.2008
Сообщений: 98,288
10.02.2010, 09:55 #4
for_tuna, Так Вы хоть условие напишите по человечески, что за последовательность, как формируется. Или это натуральный ряд или массив или еще что.
0
кот Бегемот
Платежеспособный зверь
8447 / 3886 / 1511
Регистрация: 28.10.2009
Сообщений: 10,062
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 / 1
Регистрация: 05.11.2009
Сообщений: 97
10.02.2010, 19:46  [ТС] #6
последовательность именно та,0которая в условии дана)))
0
Puporev
Модератор
54128 / 41761 / 28874
Регистрация: 18.05.2008
Сообщений: 98,288
10.02.2010, 19:51 #7
Цитата Сообщение от for_tuna Посмотреть сообщение
именно та,0которая в условии дана))
А в условии какая-то последовательность дана? Что-то я в упор не вижу.
0
for_tuna
0 / 0 / 1
Регистрация: 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
кот Бегемот
Платежеспособный зверь
8447 / 3886 / 1511
Регистрация: 28.10.2009
Сообщений: 10,062
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 / 2
Регистрация: 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
кот Бегемот
Платежеспособный зверь
8447 / 3886 / 1511
Регистрация: 28.10.2009
Сообщений: 10,062
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
Привет! Вот еще темы с решениями:

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

Сколько нужно просуммировать членов ряда, чтобы сумма была больше заданного значения
Вот, собственно, задание: ...

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

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


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

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

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