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

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Натуська 555
#1

Массив,последовательность - Pascal

02.06.2010, 03:39. Просмотров 370. Ответов 3
Метки нет (Все метки)

Помогите пожалуйста!!!!!!!!!!! Задача такая: Найти сумму 30-ти членов последовательности,если каждый член вычисляется по формуле В(к-1)/корень(В к-1). Если В(1)=1,5 И в конце надо если сумма меньше заданного Х - напечатать сумму и В(29),если больше - сумму и В(30). Блин,я программу составила,но она ничего мне не выдаёт,пишет s= NAN У меня такого не было ни разу!
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.06.2010, 03:39
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Массив,последовательность (Pascal):

Дана последовательность натуралных чисел a1,а2,аn. создать массив из четных чисел этой последовательность. если таких чисел нет то вывести сообщение о - Pascal
Дана последовательность натуралных чисел a1,а2,аn. создать массив из четных чисел этой последовательность. если таких чисел нет то вывести...

Массив.Последовательность из N чисел. - Pascal
Друг попросил на форум кинуть задачи. 1.В заданном одномерном массив поменять местами соседние элементы, стоящие на чётных местах с...

Последовательность и статический массив - Pascal
помогите пожалуйста . навалилось очень много заданий , и со всеми справиться не могу помогите с двумя задачками плз 1)Дано вещественное...

Сформировать массив, содержащий последовательность десяти чисел - Pascal
Сформировать массив, содержащий последовательность десяти чисел –2; 1; 6; 13; 22; 33; 46; 61; 78; 97. Выведите исходный массив на экран....

Считать последовательность игральных карт и занести их в массив множеств - Pascal
вопрос такой: напишите процедуру которая бы считывала последовательность игральных карт и заносила их в массив множеств - по одному ...

Задана целочисленная последовательность X=(x1, x2, …, x10). Сформировать из неё одномерный массив Y - Pascal
решите пожалуйста все задачи

3
Arustarh Dark
57 / 56 / 4
Регистрация: 08.06.2008
Сообщений: 243
02.06.2010, 07:08 #2
Не плохо было-бы код показать.
0
AnTro.Net
131 / 127 / 16
Регистрация: 28.04.2010
Сообщений: 930
02.06.2010, 07:25 #3
Цитата Сообщение от Arustarh Dark Посмотреть сообщение
Не плохо было-бы код показать.
+1.

Достали уже.

"не работает, все сделал, но не работает, помогите" - как тут помочь, не зная где ошибка.

"не получается программка" - не получается определенное место или написать begin end не выходит?
0
Натуська 555
02.06.2010, 12:46 #4
Program Mass_1;
Type mas=array[1..30] of real;
Var B:mas;
k:byte;
s,x:real;
Begin writeln('Введите x->');
read(x);
for k:=2 to 30 do begin
B[1]:=1.5;
B[k]:=sqr(B[k-1])/sqrt(B[k-1]);
s:=0;
end;
for k:=1 to 30 do
s:=s+B[k];
If s<x then writeln('s= ',s:5:2,', B[30]=',B[k]:30)
else writeln('s= ',s:5:2,', B[29]=',B[k]:29);
readln;
end.
Вот так я составила,и где здесь ошибка?
02.06.2010, 12:46
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.06.2010, 12:46
Привет! Вот еще темы с ответами:

Дан массив. Получить все числа, которые входят в последовательность по 1-му разу - Pascal
Дан массив. Получить все числа, которые входят в последовательность по 1-му разу. Спасибо заранее!

Преобразовать массив так, чтобы получилось последовательность вида: S1,s21,S22,s2,s23,s24,......,s60 - Pascal
Преобразовать массив S(60) так ,чтобы получилось последовательность вида:S1,s21,S22,s2,s23,s24,......,s60! цифры...

Дана последовательность А1...А50. Получить новую последовательность, исключив отрицательные элементы - Pascal
Дана последовательность А1...А50. Получить новую последовательность, исключив отрицательные элементы

2. Дана целочисленная последовательность. Определить количество вхождений каждого числа в последовательность - Pascal
Написал программу var a,c:array of integer; count,i,p,u: integer; begin for i:=1 to 10 do begin read(p); a:=p; end;


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

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

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