Арифметический цикл Опции

[Michael_Rybak]

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.

[polic]

уже коечто

[polic]

Код

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.

Сообщение отредактировано: polic - 25.12.2006 22:03

[Michael_Rybak]

Ну только + и - перепутал, а так вроде ок

[polic]

ну вот общими усилиями разобрали прогу спасибо Michael_Rybak , вотвот а модеры не хотели исправить а ток посылали на ссылки как хош так и разбирайся

[Paul - PoRtAl]

Люди погите, пожалуста ,мне завтра здавать экзамен ,а у меня еще долг, одна задача не решена, и я незнаю как ее сделать: " Дано целое число К и текстовый файл. Создать строковый файл и записать в него все все
СЛОВА длины К из изходного файла СЛОВОМ считать набор симоволов, не содержащих пробелов,
знаков препинания и огран.пробелами, знаками препинания или началом/концом строки.
Если исходный файл не содержит слово длины К, то оставить результат пустым. Большая просьба кто сможет ,поопробуйте сделать!????((((

[polic]

Paul - PoRtAl в банер его сдеть ток одна может быть задача

[Michael_Rybak]

ну вот общими усилиями разобрали прогу спасибо Michael_Rybak , вотвот а модеры не хотели исправить а ток посылали на ссылки как хош так и разбирайся

Тебе мисс_граффити говорила то же самое, так что не будем ;)

[klem4]

вотвот а модеры не хотели исправить а ток посылали на ссылки как хош так и разбирайся

Как решаются задачи на знакопеременный ряд, что нужно делать чтобы не возводить -1 в степень я тебе показал в посте #3, привел ссылку на похожую задачу, а надо было все послностью за тебя решить и здать ... извини. От меня по крайней мере никакой помощи можешь не ждать.

Вопрос решен тема закрыта.