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

Turbo Pascal

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

Найти первый член y - Turbo Pascal

13.01.2013, 18:29. Просмотров 214. Ответов 1
Метки нет (Все метки)

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

Найти первый член последовательности - Turbo Pascal
Помогите пожалуйста! Дана последовательность чисел 1 ,2,4,8,16...Найти первый член последовательности ,превосходящий заданное число...

Найти первый член последовательности - Turbo Pascal
Добрый день! Только начал изучать программирование, надеюсь с вашей помощью постигнуть азы. Буду признателен за помощь. Рассмотрим...

Найти u — первый отрицательный член последовательности - Turbo Pascal
№1. Найти u - первый отрицательный член последовательности cos(ctg n), n =1,2,3... №2. Дана S - строка символов длиной n. Заменить в...

Найти первый отрицательный член последовательности - Turbo Pascal
найти U-первый отрицательный член последовательности: cos(ctg(n)),при n=1,2,3... Применить оператор цикла с постусловием. такой...

Найти первый член отрицательной последовательности - Turbo Pascal
Дано действительное число b>0. Псоледовательность a1,a2... ,образована по следующему закону a1=b, ai=ai-1 - 1/(i), (i=2,3..). Найти...

Найти первый отрицательный член последовательности. - Turbo Pascal
задача:

1
Das Gespenst
Лучи добра
171 / 169 / 17
Регистрация: 08.06.2012
Сообщений: 292
13.01.2013, 19:02 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program z;
uses crt;
var i:integer; e:real;
y:array [0..1000] of real;
begin
     clrscr;
     y[0]:=0;
     repeat
           write('Ââåäèòå ýïñèëîГ*: ');
           readln(e);
     until e>0;
     repeat
           inc(i);
           y[i]:=(y[i-1]+1)/(y[i-1]+2);
           writeln('y[',i,']=',y[i]);
     until y[i]-y[i-1]<e;
     write('ÐåçóëüòГ*ГІ: ',i);
     readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.01.2013, 19:02
Привет! Вот еще темы с ответами:

Найти первый отрицательный член последовательности - Turbo Pascal
найти U-первый отрицательный член последовательности: cos(ctg(n)),при n=1,2,3...

Найти первый неотрицательный член последовательности - Turbo Pascal
Написать программу, находящую первый неотрицательный член последовательности sin(tg n), n=1, 2, 3,… и его номер поготите кто может...

Найти первый отрицательный член последовательности - Turbo Pascal
найти первый отрицательный член последовательности sin(tg(n/2)) для n, изменяющегося следующим образом: n=1,2,3... Задачу нужно решить...

Найти первый отрицательный член последовательности - Turbo Pascal
Найти первый отрицательный член последовательности cos(ctg i), где i =1,2,…


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

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

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