
HELP!!! fucka
#1
Guest_Dronam_*
Posted 19 June 2006 - 14:05
Написать прогу на паскале вычисляющую значен функции заданной рядом тейлора с точностью до е=0,0001 .... arctg x =....
program qwe;
function stepen (n:real; i:integer):real;
var a,x,y:integer;
begin
x:=0;
y:=1;
for a:=1 to y do begin;
y:=y*x;
end;
stepen:=y;
end;
var a,e,r:real;
i,x:integer;
begin
a:=0;
i:=1;
r:=1;
e:=0.0001;
while r>e do begin
r:=stepen (-1, i+1)/(2*i+1)*stepen(x,2*i+1);
if r>e then a:=a+r;
i:=i+1;
end;
writeln(a);
end.
В чем ошибка...исправьте плиз кто может....
Сразу говорю этот полный бред писал не я=)))
#2
Guest_Dronam_*
Posted 19 June 2006 - 14:15
#4
Posted 19 June 2006 - 14:34
#5
Гость
Posted 19 June 2006 - 14:36
#7
Posted 19 June 2006 - 15:18
(=
Чувства -как Louis Vuitton- Или настоящие, или не надо
#8
Posted 19 June 2006 - 17:08
A замени на что-нибудь другое!var a,e,r:real;
#9
Posted 19 June 2006 - 17:49
п.с. перед этим я ему еще два задания сдал..в которых он мну тоже всякие извращения заставлял добавлять..видетели ему не нравится как она на экран выводит....*цензура*..таким казлам просто рожы бить надо в кровь...с 11 утра у него сидел...=(( сука... главное у половины вообще все не пашет у некоторых даже не проверял работает ли..задания одинаковые и ему пох а до нас с чуваком докапался...ну сука..ну урод...*цензура* я ему еще какенить говнецо то в суп подкину пидарку...
#10
Posted 19 June 2006 - 18:42

#11
Posted 19 June 2006 - 19:10
да все кароче это задание я сделал..этот казел сказал чтоя все списал и вообще непонятно откуда взял задание...дал другое..сделал ему другое...зашибись пашет ответы все выдает..он *цензура* как то у тя нетак написано тут чередование надо тут то се тут минус....*цензура* *цензура*..я ему уже сказал чтоб ставил три и допускал так эта сука грит пока все ему правлиьно не слделаю не допустит...блять вот попадаются же такие суки то а...урод...
п.с. перед этим я ему еще два задания сдал..в которых он мну тоже всякие извращения заставлял добавлять..видетели ему не нравится как она на экран выводит....*цензура*..таким казлам просто рожы бить надо в кровь...с 11 утра у него сидел...=(( сука... главное у половины вообще все не пашет у некоторых даже не проверял работает ли..задания одинаковые и ему пох а до нас с чуваком докапался...ну сука..ну урод...блять я ему еще какенить говнецо то в суп подкину пидарку...
Дронам жжошь =)))))
Вконтакте
Когда я купил коробку с WoW, на ней не было ни слова про теорикрафт и ротацию. Там было сказано: СТАНЬ ГЕРОЕМ, УБЕЙ ДРАКОНА.
Хочу назад в ванилу, никаких вещей за баджи, убил босса-полутал эпик, не убил ходи в синих трусах и зеленой рубахе, завидуй рейдерам в т1/2, молись на богов пве в т3.
#12
Posted 19 June 2006 - 19:22
-
Сюжета в сказке нет , он ушел еще вчера в синих ластах и очках
#13
Posted 19 June 2006 - 20:45
begin
!!!!x:=0;
y:=1;
for a:=1 to y do begin;
!!!!y:=y*x;
end;
stepen:=y;
end;
очень странно...
ты несколько раз походу умножаешь у на 0 )))))
если я не глючу...
поменяй тогда уж х во второй выделеной строки на а или задай увеличение х.
#14
Posted 19 June 2006 - 23:05
#15
Posted 20 June 2006 - 03:40
-
Сюжета в сказке нет , он ушел еще вчера в синих ластах и очках
#16
Posted 20 June 2006 - 10:57
Умножает только 1 раз, т.к. у цикла верхняя граница - у. После первого же прохода у него нижняя граница будет 2, а верхняя - 0.ты несколько раз походу умножаешь у на 0 )))))
#17
Posted 20 June 2006 - 20:57
хмммм
#18
Posted 21 June 2006 - 02:35
кстати мне надо таки одно задание подправить ... там как он говорит совсем чуть чуть исправить и оно будет пахать..кто может помочь?
все на том же паскале..
напишите плиз...в приват отправлю задание и вариант кода который подправить..=)) оч надо..у кого там мега задания были что аж мозги кипели..сделай мне простенькое..=)))
#19
Posted 22 June 2006 - 02:35
1 user(s) are reading this topic
0 members, 1 guests, 0 anonymous users