Вычислить значение выражения

@JuliaLenny · Регистрация: 04.12.2016

Студворк — интернет-сервис помощи студентам

Помогите разобраться с заданием, никак не получается

Для введенных с клавиатуры значений A, B, n, m и X вычислить S:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> S=A+B\sum_{i=m}^{n}(-1)^i\,\frac{A+X\cdot i}{B+X\cdot i}<br />$

Pascal

 Program Cikly;
 
{Входное данное: A,B,X,m,n
Выходные данные: S}
Var
 
 
 
A,B,X,f,S:Real;
i,m,n:Integer;   
 
Begin
 
  Begin
  clrscr;
  WriteLn('Введите значение A');
  WriteLn('Введите значение B');
  WriteLn('Введите значение X');
  WriteLn('Введите значение m');
 WriteLn('Введите значение n');
  readln(A,B,X,m,n);
 end;
 
 F:=0;
 
for var i:=m to n do begin
if (i mod 2=0) 
then
F:=F+(A+X*i)/(B+X*i) 
else
F:=F-(A+X*i)/(B+X*i);
  end;
 
 begin
{Вычисление суммы}
 f:=A+B*F; S:=S+f;
 readln;
 End;
writeln('Сумма = ', s);
 
 End.

@Cyborg Drone · 05.12.2016, 19:52

Вроде всё правильно, только в строке 36 что-то странное написано... Я бы всё это дело вот так написал:

Pascal

  S := 0;
  for var i := m to n do S := S + (1 - (i mod 2) * 2) * (A + X * i) / (B + X * i); 
  S := A + B * S;
  writeln('Сумма = ', s);
  readln
End.

А переменную F выбросил бы в Ганг.

Добавлено через 9 минут
Да, и ещё... Нужна программа на Pascal ABC.NET - вот и пишите в Pascal ABC.NET, это же логично. Если уж писать для PABC, то лучше так, что ли:

Pascal

Var A, B, X, S: Real;
    m, n: Integer;   
Begin
  A := ReadlnReal('Введите значение A: ');
  B := ReadlnReal('Введите значение B: ');
  X := ReadlnReal('Введите значение X: ');
  m := ReadlnInteger('Введите значение m: ');
  n := ReadlnInteger('Введите значение n: ');
  S := 0;
  for var i := m to n do S := S + (1 - (i mod 2) * 2) * (A + X * i) / (B + X * i); 
  S := A + B * S;
  writeln('Сумма = ', S);
  readln
End.

Всего лишь... Ну, ещё было бы неплохо добавить проверку корректности ввода.

Опции темы