Question

Найти сумму чисел ряда 1,2,3,... ,используя функцию. Program Summa; uses crt; var n:integer; { n -глобальная переменная } function Sum(m: integer): integer; { m -параметр-значение функции } var i,s: integer; { i,s - локальные переменные } begin s:=0; for i:=1 to m do s:=s+i; Sum:=s {- присваивание имени функции значения } end; Begin clrscr; write('До какого числа суммировать? :'); readln(n); write('Сумма чисел ряда S=',Sum(n)) { -вызов функции Sum с парам.} readkey; End. З А Д А Н И Я: 1. Набрать и исполнить программу. 2. Изменить программу так, чтобы была найдена сумма чисел от m до числа n, вводимых с клавиатуры.

Answer 1

Ответ:

Program Summa; uses crt;

var n,m:integer; { m,n -глобальные переменные }

function Sum(m: integer; n: integer): integer; { m,n -параметры-значения функции }

var i,s: integer; { i,s - локальные переменные }

begin

s:=0;

for i:=m to n do s:=s+i;

Sum:=s {- присваивание имени функции значения }

end;

Begin

clrscr;

write('От какого числа суммировать? :'); readln(m);

write('До какого числа суммировать? :'); readln(n);

write('Сумма чисел ряда S=',Sum(m,n)); { -вызов функции Sum с парам.}

readkey;

End.

Answer 2

Для изменения программы и нахождения суммы чисел от m до n, введенных с клавиатуры, необходимо внести следующие изменения:

pascalCopy code
Program Summa;

uses crt;

var
  m, n: integer; { m, n - глобальные переменные }

function Sum(start, endValue: integer): integer;
var
  i, s: integer; { i, s - локальные переменные }
begin
  s := 0;
  for i := start to endValue do
    s := s + i;
  Sum := s; { - присваивание имени функции значения }
end;

Begin
  clrscr;
  write('Введите значение m: ');
  readln(m);
  write('Введите значение n: ');
  readln(n);

  write('Сумма чисел ряда от ', m, ' до ', n, ' S=', Sum(m, n)); { - вызов функции Sum с параметрами }
  readkey;
End.

Теперь программа будет запрашивать два числа - m и n, а затем находить сумму чисел от m до n.