Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.12.2010, 19:51   #1
Lilium K.
 
Аватар для Lilium K.
 
Регистрация: 23.12.2010
Сообщений: 3
По умолчанию Расчеты в Паскале.Программирование.

Помогите пожалуйста.Все задачи,кроме этих двух,решила сама.Тут же дошла до каких-то определенных строк и все.
1)arcsin x= x+(1/2)*((x*x*x)/3)+(1*3/2*4)*((x*x*x*x*x)/5)+(1*3*5/2*4*6)*((x*x*x*x*x*x*x)/7)+...;-1<x<1
тут я добралась до такого:
q= (2n-1)/2n*sqr(x)/(3n-(n-1))*q*(2n-1);
дальше же - не работает,а что работало,то неправильно.
2)Создать вектор А в размерности n.Сформировать вектор С,состоящий из компонент вектора А,следующих в обратном порядке.
Тут у меня есть вот это,причем в данном я абсолютно уверена.

for j:=1 to N do
begin
C[j]:=A[(N+1)-j];
write(C[j])
end;
Угрохала почти две недели,надо до 30 успеть,а эти две мне уже два раза на передел возвращали(
Protect me from what i want...

Последний раз редактировалось Lilium K.; 26.12.2010 в 19:54.
Lilium K. вне форума Ответить с цитированием
Старый 26.12.2010, 19:54   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

А лучше так:
Код:
var k:integer;
...
k:=1;
for j:=N to 1 do begin
 C[k]:=A[N];
 write(C[k]);
 inc(k);
end;
Читабельнее хотя бы.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 27.12.2010, 00:30   #3
Lilium K.
 
Аватар для Lilium K.
 
Регистрация: 23.12.2010
Сообщений: 3
По умолчанию

Спасибо)
Моя основная проблема в том,что я уже три года не могу освоить массивы...К сожалению.
Protect me from what i want...
Lilium K. вне форума Ответить с цитированием
Старый 27.12.2010, 01:24   #4
Novi4ok_11
Форумчанин
 
Регистрация: 11.12.2010
Сообщений: 110
По умолчанию

Код:
k:=1;
for j:=N downto 1 do
begin
C[k]:=A[j];
write(' ',C[k])
k:=k+1;
end;
а в первой не понял в чем суть (
Novi4ok_11 вне форума Ответить с цитированием
Старый 27.12.2010, 17:25   #5
Lilium K.
 
Аватар для Lilium K.
 
Регистрация: 23.12.2010
Сообщений: 3
По умолчанию

Цитата:
Сообщение от Novi4ok_11 Посмотреть сообщение
Код:
k:=1;
for j:=N downto 1 do
begin
C[k]:=A[j];
write(' ',C[k])
k:=k+1;
end;
а в первой не понял в чем суть (
В первой нужно расчитать при заданном n.Я,к сожалению,фото нормально вставить не смогла(
Protect me from what i want...
Lilium K. вне форума Ответить с цитированием
Старый 27.12.2010, 22:56   #6
ghjj
Новичок
Джуниор
 
Регистрация: 27.12.2010
Сообщений: 2
По умолчанию

помогите решить: дано действительное число а,среди чисел 1,1+1/2,1+1/2+1/3 . . .найти первое большее а
ghjj вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
программирование в с++ или паскале 1000tur Помощь студентам 2 09.06.2010 09:18
Расчеты Ins1De Общие вопросы C/C++ 4 30.05.2010 00:09
Платформы и расчеты Kenshi25 Gamedev - cоздание игр: Unity, OpenGL, DirectX 1 29.12.2008 11:43