значит надо возвести в (-1)степень i воспользовался FAQ выдаёт ошибку что преобразование типа bolean в byte
запрещено
Полная версия: Арифметический цикл
Чего запрещено? Boolean в Byte? С каких это пор, если это ЯВНОЕ приведение типов? Размер типов одинаковый, что хочу с ними то и делаю...
А ты читай букварь, как ВЫЗЫВАТЬ функции... То, что ты понаписал - ни один компилятор даже в бреду себе представить не мог...
А ты читай букварь, как ВЫЗЫВАТЬ функции... То, что ты понаписал - ни один компилятор даже в бреду себе представить не мог...
Да и вообще не нужно тебе м инус единицу возводить никуда, у тебя знакопеременный ряд, смотри вот пример как с ним работать: Ещё задачка
Function minusOnePower(i: Integer): Integer
класс!
ты можешь посчитать, чему равен integer в квадрате?
чему равен синус от real?
...а от компилятора требуешь.
| М | По моему смеяться не тебе нужно ... Бессмысленный флуд до добра еще никого не доводил. |
это истерический смех я посмотрел ту задачу не могу сообразить как мне записать свой как всётаки предствить -1 в своей задачи или както по другому сделать?
Цитата
или както по другому сделать?
Нда ... см. пост №3
Код
program chiclihescie;
var S,V,S1,B,A,X:real;n,m,i:integer;
begin
writeln ('vvedite A,B,N,M,X');
readln ( A,B,N,M,X);
S1:=A+B*V;
S:=S+S1;
begin
for I:=m to n do
if ODD(N)
then v:=(A+X*i)/(B+X*i);
if odd(n)
then v:=-v;
end;
end.
var S,V,S1,B,A,X:real;n,m,i:integer;
begin
writeln ('vvedite A,B,N,M,X');
readln ( A,B,N,M,X);
S1:=A+B*V;
S:=S+S1;
begin
for I:=m to n do
if ODD(N)
then v:=(A+X*i)/(B+X*i);
if odd(n)
then v:=-v;
end;
end.
откапал в какомто справочнике , товарищи модераторы я правильно сделал?
теперь смотри, что произойдет.
сначала v равно неизвестно чему (с высокой степенью вероятность 0)
ты считаешь
скорее всего, получаешь А
много раз высчитываешь в цикле v (считаешь его каждый раз или не считаешь ни разу в зависимости от четности n)
выходишь из цикла с последним значением v и в зависимость от четности n (опять же!) иногда меняешь знак.
А теперь объясни, в чем смысл этих шаманских действий? В S1 по-прежнему осталось А (а может, и не А)
В S вообще неизвестно что (вероятно - тоже А).
Не знаю, в каких справочниках ты копался, но лучше бы почитал FAQ и инфу по ссылкам, которые тебе дали.
сначала v равно неизвестно чему (с высокой степенью вероятность 0)
ты считаешь
S1:=A+B*V;
скорее всего, получаешь А
много раз высчитываешь в цикле v (считаешь его каждый раз или не считаешь ни разу в зависимости от четности n)
for I:=m to n do
if ODD(N) then
v:=(A+X*i)/(B+X*i);
выходишь из цикла с последним значением v и в зависимость от четности n (опять же!) иногда меняешь знак.
А теперь объясни, в чем смысл этих шаманских действий? В S1 по-прежнему осталось А (а может, и не А)
В S вообще неизвестно что (вероятно - тоже А).
Не знаю, в каких справочниках ты копался, но лучше бы почитал FAQ и инфу по ссылкам, которые тебе дали.
мисс графити мож исправиш сама работу горит ведь 
не знаю как сделать фак читал чото я уже намудрил неполучилось
не знаю как сделать фак читал чото я уже намудрил неполучилось
если никто не хочет помоч тк и напишите чтоб не ждал
Цитата(polic @ 24.12.2006 21:22) 
если никто не хочет помоч
Это сколько надо было мисс_граффити печатать вот это:
Цитата
теперь смотри, что произойдет.
сначала v равно неизвестно чему (с высокой степенью вероятность 0)
ты считаешь
S1:=A+B*V;
скорее всего, получаешь А
много раз высчитываешь в цикле v (считаешь его каждый раз или не считаешь ни разу в зависимости от четности n)
for I:=m to n do
if ODD(N) then
v:=(A+X*i)/(B+X*i);
выходишь из цикла с последним значением v и в зависимость от четности n (опять же!) иногда меняешь знак.
А теперь объясни, в чем смысл этих шаманских действий? В S1 по-прежнему осталось А (а может, и не А)
В S вообще неизвестно что (вероятно - тоже А).
Не знаю, в каких справочниках ты копался, но лучше бы почитал FAQ и инфу по ссылкам, которые тебе дали.
чтобы оказалось, что никто не хочет помочь? Может быть, для успешной помощи не хватает обоюдного желания?
что значит
ну а если поменять местами?
Цитата
скорее всего, получаешь А
почему?ну а если поменять местами?
блин, у меня у самой зачетная неделя!
завтра по инязу зачет, а у меня половина перевода не набрана.
может, наберешь?
горит ведь.
S1:=A+B*V;
чему равно при V=0?
завтра по инязу зачет, а у меня половина перевода не набрана.
может, наберешь?
горит ведь.
почему?
S1:=A+B*V;
чему равно при V=0?
у мя тож зачётная неделя если здам то... во такто правильно?
неправильно.
почему у тебя знак v определяется четностью n?
причем меняется один раз, уже после цикла.
наверное, некоторые операторы надо все-таки внутрь цикла засунуть, тебе не кажется?
почему у тебя знак v определяется четностью n?
причем меняется один раз, уже после цикла.
наверное, некоторые операторы надо все-таки внутрь цикла засунуть, тебе не кажется?
Цитата
наверное, некоторые операторы надо все-таки внутрь цикла засунуть, тебе не кажется?
хорошо засунул в цикл операторы
Цитата
почему у тебя знак v определяется четностью n?
ну потомучто мы умножаем v на -1 в степень n , а -1 в степени n это либо -1 либо 1
Цитата
причем меняется один раз, уже после цикла.
стёр
вроде поправил
чоещё поправить?
чоещё поправить?
посоветуйте чо изменить ещё чтоб было правильно
это я написалпросто забыл активировать ник
program chiclihescie;
var S,V,S1,B,A,X:real;n,m,i:integer;
begin
writeln ('vvedite A,B,N,M,X');
readln ( A,B,N,M,X);
begin {зачем этот бегин здесь? его надо поставить после заголовка цикла}
for I:=m to n do
if ODD(N) {ты проверяешь четность N. Почему? Посмотри внимательно на формулу и увидишь,
четность какой переменной тебя интересует}
then v:=(A+X*i)/(B+X*i); {a чему будет равно v, если переменная четная?
надо добавить соответствующий else}
S1:=A+B*V;
S:=S+S1;{перед циклом нужно инициализировать S, т.е. присвоить S значение 0}
end;
writeln ('S=',s:4:2);
readln (s);{вместо этого можно просто readln()}
end.
уже коечто 
Код
program chiclihescie;
var S,V,S1,B,A,X:real;n,m,i:integer;
begin
writeln ('vvedite A,B,N,M,X');
readln ( A,B,N,M,X);
S:=0;
for I:=m to n do
begin if ODD(i)
then v:=(A+X*i)/(B+X*i); {я так понмаю здесь v чётная}
else v:=-(A+X*i)/(B+X*i) {а здесь нечётную поставить}
S1:=A+B*V;
S:=S+S1;
end;
writeln ('S=',s:4:2);
readln;
end.
var S,V,S1,B,A,X:real;n,m,i:integer;
begin
writeln ('vvedite A,B,N,M,X');
readln ( A,B,N,M,X);
S:=0;
for I:=m to n do
begin if ODD(i)
then v:=(A+X*i)/(B+X*i); {я так понмаю здесь v чётная}
else v:=-(A+X*i)/(B+X*i) {а здесь нечётную поставить}
S1:=A+B*V;
S:=S+S1;
end;
writeln ('S=',s:4:2);
readln;
end.
Ну только + и - перепутал, а так вроде ок
ну вот общими усилиями разобрали прогу спасибо Michael_Rybak , вотвот а модеры не хотели исправить а ток посылали на ссылки как хош так и разбирайся 
, вотвот а модеры не хотели исправить а ток посылали на ссылки как хош так и разбирайся
Люди погите, пожалуста ,мне завтра здавать экзамен ,а у меня еще долг, одна задача не решена, и я незнаю как ее сделать: " Дано целое число К и текстовый файл. Создать строковый файл и записать в него все все
СЛОВА длины К из изходного файла СЛОВОМ считать набор симоволов, не содержащих пробелов,
знаков препинания и огран.пробелами, знаками препинания или началом/концом строки.
Если исходный файл не содержит слово длины К, то оставить результат пустым. Большая просьба кто сможет ,поопробуйте сделать!????((((
СЛОВА длины К из изходного файла СЛОВОМ считать набор симоволов, не содержащих пробелов,
знаков препинания и огран.пробелами, знаками препинания или началом/концом строки.
Если исходный файл не содержит слово длины К, то оставить результат пустым. Большая просьба кто сможет ,поопробуйте сделать!????((((
Paul - PoRtAl в банер его сдеть ток одна может быть задача
Цитата(polic @ 25.12.2006 21:18)
ну вот общими усилиями разобрали прогу спасибо Michael_Rybak
, вотвот а модеры не хотели исправить а ток посылали на ссылки как хош так и разбирайся Тебе мисс_граффити говорила то же самое, так что не будем ;)
Цитата
вотвот а модеры не хотели исправить а ток посылали на ссылки как хош так и разбирайся
Как решаются задачи на знакопеременный ряд, что нужно делать чтобы не возводить -1 в степень я тебе показал в посте #3, привел ссылку на похожую задачу, а надо было все послностью за тебя решить и здать ... извини. От меня по крайней мере никакой помощи можешь не ждать.
Вопрос решен тема закрыта.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.